Rechercher et remplacer un caractère dans une seule colonne
Résolu
kifran
-
Kifran92 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Kifran92 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Excel rechercher et remplacer dans une seule colonne
- Déplacer une colonne excel - Guide
- Trier colonne excel - Guide
- Word et excel gratuit - Guide
- Rechercher et remplacer word - Guide
- Formule somme excel colonne - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonsoir,
chez moi, ton code ne modifie que la colonne B.
chez moi, ton code ne modifie que la colonne B.
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?
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