Discussion :

[PPN83]

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

[illight]

Je pense que tu cherche trop compliqué

Dans un premier temps, avec une formule classique sans passer par VBA tu aurais pu t'en sortir

Dans un second temps, et pour répondre à ta question, utilises la fonction mid pour vérifier ton 2e caractère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if mid(Cells(x, 5).value,2,1) <> "0" then
   cells(x,6).value = left(cells(x,5).value,2) & "000" 
end if

A Adapter avec où tu veux positionner tes données

[EngueEngue]

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
16
Sub Test()
 
Dim code As String
 
For x = 2 To 20
code = Cells(x, 5)
 
If right(left(code,2),1) <> "0" then
cells(x,6)= left(code,2) & "000"
else
cells(x,6)=code
end if
 
Next
 
End Sub

[illight]

Prem's !

Sinon, pour rajouter une couche, et donc sans passer par VBA mais par une formule dans une cellule, tu peux écrire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=SI(STXT(A1;2;1) <>"0";GAUCHE(A1;2) & "000";A1)

[PPN83]

Merci de la première réponse ça fonctionne parfaitement

Pourquoi faire simple alors que l'on peut faire compliqué !!!