Rechercher et remplacer un caractère dans une seule colonne [Résolu/Fermé]

Signaler
-
Messages postés
3
Date d'inscription
mardi 3 octobre 2017
Statut
Membre
Dernière intervention
4 octobre 2017
-
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.

1 réponse

Messages postés
11755
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
6 août 2020
673
bonsoir,
chez moi, ton code ne modifie que la colonne B.
Messages postés
3
Date d'inscription
mardi 3 octobre 2017
Statut
Membre
Dernière intervention
4 octobre 2017

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?
Messages postés
11755
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
6 août 2020
673 >
Messages postés
3
Date d'inscription
mardi 3 octobre 2017
Statut
Membre
Dernière intervention
4 octobre 2017

peux-tu partager ton fichier?
Messages postés
3
Date d'inscription
mardi 3 octobre 2017
Statut
Membre
Dernière intervention
4 octobre 2017
>
Messages postés
11755
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
6 août 2020

C'est compliqué c'est confidentiel comme fichier
Messages postés
3
Date d'inscription
mardi 3 octobre 2017
Statut
Membre
Dernière intervention
4 octobre 2017

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