imcompatibilité de type

[akramenergie]

Bonjour les amis,
j'ai un peuti probléme je veut enregistrer un nombre sous format text je tape cette ligne de code :
Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(0, 1).NumberFormat = "000"


mais il me dans la cellule excel il est définit sous format Spécial "000" moi ce que je veut c'est de l'enregistrer sous la forme text avec les troi chifre
exempl "001" mais que sa soit sous format text


de l'aide svp

 

[wilfried_42]

Re : imcompatibilité de type

bonjour

essaye cela

Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(0,1).NumberFormat = "@" ' Format texte
Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(0, 1).value = right$("000" & mavaleur,3) ' mise en place de la valeur avec les zeros devant

 

[akramenergie]

Re : imcompatibilité de type

Merci wilfried
j'ai oublier de sité que mon numéro je le choisi pas je choisie just un nom et la macro elle imcrémont le nombre assosié au nom. voila toute la partie de mon code pour mieu me comprendre :

'ajouté les clients et leur ID
Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(1, 0) = TextBox1
Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(0, 1) = CInt(Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(-1, 1)) + 1
'------------------------------------------------------------------------------


Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(0, 1).NumberFormat = "@" ' Format texte
Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(0, 1).Value = Right$("000" & mavaleur, 3) ' mise en place de la valeur avec les zeros devant

 

[wilfried_42]

Re : imcompatibilité de type

re:

Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(1, 0) = TextBox1
Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(0, 1).numberFormat = "@"
Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(0, 1) = right("000" & CInt(Worksheets("Sheet1").Range("A65536").End(xlUp ).Offset(-1, 1)) + 1,3)

devrait faire l'affaire (si j'ai tout compris)

 

[akramenergie]

Re : imcompatibilité de type

Ok Merci sa marche comme il faut cool
🙂