Discussion :

[arthur83fr]

bonjour,

de nouveau je crie "a l'aide".

j'ai deux variables que j'assemble dans un Label : Label1.Caption = Var_AnneeMois & Var_NumClient
cela, je sais faire.

Mon problème :

Var_NumClient est stocké sur une feuille dans une cellule au format spécial 000000
cela me donne dans la cellule "000001" pour une entrée de "1"

Code VBA :

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

Var_NumClient = Worksheets("Clients").Range("A" & Rows.Count).End(xlUp).Value

et c'est la que je butte.

Code VBA :

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

Var_NumClient   me donne la valeur "1"  au lieu de ce que je voudrais c'est a dire "000001"

J'ai essayé différentes approches dont le Var_NumClient.FormatNumber = "000000",
mais cela marche pas



une piste me serait agréable

merci

[arthur83fr]

bonjour,

je viens de trouver la solution une petite révélation lol


je déclare ma variable Dim intVar_NumClient As Integer,

je déclare ma variable Dim Var_NumClient As String,

ensuite intVar_NumClient = Worksheets("Clients").Range("A" & Rows.Count).End(xlUp).Value,

et pour finir Var_NumClient = Format(intVar_NumClient, "000000").


et la cela marche j'obtiens bien "201606000001".

[Menhir]

Il n'est pas nécessaire de passer par une variable intermédiaire :

Code :

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

Label1.Caption = Format(Var_AnneeMois, "yyyymm") & Format(Var_NumClient, "000000")

[unparia]

Bonjour,
je lis :

Var_NumClient est stocké sur une feuille dans une cellule au format spécial 000000

Pourquoi reformater ce qui l'est déjà ?
La propriété Text (pas Value, mais Text)de cette cellule retourne son contenu formaté, tel qu'affiché ...

[arthur83fr]

bonjour,

comme vous vous en doutez je ne suis pas très doué en VBA

Je vous remercie donc pour vos réponses