Rechercher et remplacer un caractère dans une seule colonne

Résolu/Fermé
kifran - 3 oct. 2017 à 17:35
Kifran92 Messages postés 3 Date d'inscription mardi 3 octobre 2017 Statut Membre Dernière intervention 4 octobre 2017 - 4 oct. 2017 à 16:42
Bonjour,

Je souhaite avoir votre éclairage car ça commence à me rendre fou!!!

Je voudrais supprimer la lettre "C" uniquement dans la colonne B.
Or, il me supprime tous les "C" des tout le classeur excel.
Voyez-vous quelque chose qui cloche dans ma macro, svp :

Buniq = Range("B65536").End(xlUp).Row

Range("B2:B" & Buniq).Replace What:="C", Replacement:="", LookAt:=xlPart

D'avance merci.

A voir également:

1 réponse

yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
3 oct. 2017 à 20:25
bonsoir,
chez moi, ton code ne modifie que la colonne B.
0
Kifran92 Messages postés 3 Date d'inscription mardi 3 octobre 2017 Statut Membre Dernière intervention 4 octobre 2017
4 oct. 2017 à 08:57
Bonjour,
Merci pour ta réponse
C'est ça que je ne m'explique pas car des fois cela fonctionne et des fois non
Est-ce qu'il n'y aurais pas une option dans excel qui modifie ce genre de truc?
0
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471 > Kifran92 Messages postés 3 Date d'inscription mardi 3 octobre 2017 Statut Membre Dernière intervention 4 octobre 2017
4 oct. 2017 à 11:54
peux-tu partager ton fichier?
0
Kifran92 Messages postés 3 Date d'inscription mardi 3 octobre 2017 Statut Membre Dernière intervention 4 octobre 2017 > yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024
4 oct. 2017 à 15:45
C'est compliqué c'est confidentiel comme fichier
0
Kifran92 Messages postés 3 Date d'inscription mardi 3 octobre 2017 Statut Membre Dernière intervention 4 octobre 2017
Modifié le 4 oct. 2017 à 16:45
J'ai réussi à feinter en collant ma colone dans un nouveau classeur ;)
Avec ce code :

Columns("B:B").Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\690773\Desktop\Macro impayés\ORFI.xlsx"
ActiveSheet.Paste
Selection.Replace What:="C", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Modèle Macro Impayés 1.xlsx").Activate
Columns("B:B").Select
ActiveSheet.Paste
Windows("ORFI.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("Modèle Macro Impayés 1.xlsx").Activate

Merci quand même pour ton aide yg_be, ça aide parfois à réfléchir de ne pas se sentir seul lol
0