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 cell
vous trouverez le fichier joint!

Merci d'avance
IDH