Discussion :

[vivelesgnous]

bonjour
en VB pou EXCEL j'ai des cellules contenant des code chiffres de 10 chiffres et je voudrais récupérer les 4 derniers (DROITE...) le soucis vient quand les quatres derniers chiffres sont du style 0097 je e récupère que 97
alors j'ai éssayé ça mais ça marche pas :

Code :

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

1
2
Sheets("T_Accoup").Cells(j, 6) = CStr(Sheets("T_Accoup").Cells(j, 6))
Sheets("T_Accoup").Cells(j, 6) = Right(Sheets("T_Accoup").Cells(j, 6), 4)

si quelqu'un peux m'expliquer qu'est ce qu'ily a et question subsidiaire quand est ce qu'on est obligé ou non de mettre les indications de type sheets("T_Accoup")

[ouskel'n'or]

Code :

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

Sheets("T_Accoup").Cells(j, 6) = Format(CStr(Sheets("T_Accoup").Cells(j, 6)),"0000")

Tu dis

A+

[vivelesgnous]

je viens d'essayer ta solution mais le problème reste entier j'obtiens toujours 97 au lieu de 0097 je n'avais pas préciser que dans cette colone il y a aussi quelque string qui se promène déjà est-ce ça ne risque pas de posé un problème avec la routine format???

[SfJ5Rpw8]

change le format de la cellule en format texte ...:

Code :

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

1
2
3
 
Sheets("T_Accoup").Cells(j, 6).NumberFormat = "@"
Sheets("T_Accoup").Cells(j, 6) = Right(Sheets("T_Accoup").Cells(j, 6), 4)

[vivelesgnous]

alleluia ça marche merci beaucoup
bon week-end à vous