Discussion :

[idhmida]

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

[SfJ5Rpw8]

Bonjour,

rajoute une apostrophe devant ton 019 :

'019