Bonjour,
Je voudrais remplacer la valeur 19 par le texte "019", j'ai utilisé le code suivant, mais cela ne fonctionne pas... help please!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 nblignetot = 223 Cells.Find(What:="MES", LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate ligne = ActiveCell.Row colonne = ActiveCell.Column For Each cell In Range(Cells(ligne + 1, colonne), Cells(NbligneTot, colonne)) cell.Replace What:="19", Replacement:="019", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Next cellvous trouverez le fichier joint!
Merci d'avance
IDH
Partager