Format d'une varaiable en VBA
Bonjour
Je créé un format de facture. Pour l'instant, j'ai fait le plus difficile, la numérotation automatique.
Elle se créé par un variable "compteur" qui s'incremente par la ligne ci dessous :
ligne = Workbooks("Archivage des factures.xlsx").Worksheets("Recapitulatif").Range("A1").End(xlDown).Row
MsgBox "La facture aura le numéro " & (ligne) - 1
C'est le End(xlDown).Row qui travaille.
Bref je voudrais que ce numero s'affiche dans ma cellule D1 sous 0001 quand je suis en ligne = 1, 0002 quand je suis en ligne =2
Mais je sèche. J'ai bien trouvé des chose mais cela je n'arrive pas à finaliser.
Voici la partie ou je sèche :
Dim dte As Date
Dim J As Byte, m As Byte, archive As String, nom As String
Dim a As Integer
ligne = Workbooks("Archivage des factures.xlsx").Worksheets("Recapitulatif").Range("A1").End(xlDown).Row
MsgBox "La facture aura le numéro " & (ligne) - 1
MsgBox "Le numéro de facture se créé automatiquement à l'ouverture de classeur" _
& " Si vous ne cliquez pas sur le bouton en bas de page" _
& " La facture ne sera pas créée"
Compteur = ligne - 1
Range("D1").Value = Compteur ' je n'arrive pas à ce que D1 prenne la valeur 0001. Compteur étant à 1
Bonjour,
Il y a peut être plus optimisé :
compteur = Format(ligne - 1, "0000")
Range("D1").NumberFormat = "@"
Range("D1") = compteurj'essaie cela .. de suite
Simple mais il fallait y penser.. Merci Beaucoup pour ton aide. SUPER!!!!!