Bonjour,

Je souhaite remplacer les 3 derniers caractères d'un code à 5 caractères par des 0 si le 2ème caractère est différent de 0
Ex A7500 alors A7000

le code ci dessous me retourne faux dans la cellule pour un code par exemple A3500 et vrai pour un code A4000
Les lignes 8 et 9 fonctionnent correctement.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
 
Dim code As String
 
For x = 2 To 20
code = Cells(x, 5)
 
If code Like "?0???" Then Cells(x, 6) = code
If code Like "?00??" Then Cells(x, 6) = code
If code Like "?[1-9]*" Then Cells(x, 6) = Mid(code, 3, 3) = "000"
 
Next
 
End Sub
Merci d'avance de votre aide