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

kifran - 3 oct. 2017 à 17:35 - Dernière réponse : Kifran92 3 Messages postés mardi 3 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention
- 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.

Afficher la suite 

5 réponses

Répondre au sujet
yg_be 4109 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - 3 oct. 2017 à 20:25
0
Utile
4
bonsoir,
chez moi, ton code ne modifie que la colonne B.
Kifran92 3 Messages postés mardi 3 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - 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?
yg_be 4109 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention > Kifran92 3 Messages postés mardi 3 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - 4 oct. 2017 à 11:54
peux-tu partager ton fichier?
Kifran92 3 Messages postés mardi 3 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention > yg_be 4109 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 11 décembre 2017 Dernière intervention - 4 oct. 2017 à 15:45
C'est compliqué c'est confidentiel comme fichier
Kifran92 3 Messages postés mardi 3 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - 4 oct. 2017 à 16:42
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
Commenter la réponse de yg_be