Rechercher et remplacer un caractère dans une seule colonne
Résolu
kifran
-
Kifran92 Messages postés 3 Statut Membre -
Kifran92 Messages postés 3 Statut Membre -
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.
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.
1 réponse
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonsoir,
chez moi, ton code ne modifie que la colonne B.-
-
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
-
