[VBA-E][débutant]conversion en string

Version imprimable

24/02/2006, 23h25
vivelesgnous

[VBA-E][débutant]conversion en string
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:

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")
24/02/2006, 23h35
ouskel'n'or

Code:

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

Tu dis

A+
24/02/2006, 23h45
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???

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

Code:

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

25/02/2006, 14h39
vivelesgnous

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