boucle numerotation et format 00001

[slaurent01]

bonjour le forum,

Je dois numéroter des liasses, j'ai un code vba qui fonctionne :

Sub Numeroation()
    Dim numdepart As Integer
    Dim nbrefeuille As Integer
    Dim i As Integer

    numdepart = 1     'numéro de départ des tickets
    nbrefeuille = 30    'nombre de feuille dans le fichier Excel
    
    For i = 0 To nbrefeuille - 1
   
        Sheets(i + 1).Cells(9, 2).Value = numdepart + (4 * i)
        Sheets(i + 1).Cells(22, 2).Value = numdepart + (4 * i + 1) '& Number.Format = "00000"
        Sheets(i + 1).Cells(34, 2).Value = numdepart + (4 * i + 2) '& Number.Format = "00000"
        Sheets(i + 1).Cells(46, 2).Value = numdepart + (4 * i + 3) '& Number.Format = "00000"
    Next
End Sub

le problème est que je souhaiterai que les nombres s'affichent de la manière 00001,00002....00100.......
Je ne peux pas modifier manuellement les onglets car je peux en avoir un nombre important.

Pouvez vous m'aider à solutionner ce problème.
Par avanve merci
Cordialement
Stephane

 

[Compte Supprimé 979]

Re : boucle numerotation et format 00001

Bonjour slaurent01

Pour cela, utilise la fonction : Format()

Format(numdepart + (4 * i),"00000")

A+

 

[slaurent01]

Re : boucle numerotation et format 00001

bonjour brunom45, Merci pourt ta réponse, cependant quand je lance la macro le resultat est toujours 1,2,3....
Cordialement
Stéphane

 

[Papou-net]

Re : boucle numerotation et format 00001

Bonjour Stéphane, Bruno,

J'avoue ne pas comprendre la raison du dysfonctionnement de la mise au format, mais en modifiant la macro comme suit, ça devrait résoudre le problème :

S

ub Numerotation()
    Dim numdepart ' As Integer
    Dim nbrefeuille As Integer
    Dim i As Integer

    numdepart = 1     'numéro de départ des tickets
    nbrefeuille = Sheets.Count - 1  'nombre de feuille dans le fichier Excel
   
    For i = 0 To nbrefeuille
        Sheets(i + 1).Cells(9, 2).NumberFormat = "00000"
        Sheets(i + 1).Cells(9, 2) = numdepart + (4 * i)
        Sheets(i + 1).Cells(22, 2).NumberFormat = "00000"
        Sheets(i + 1).Cells(22, 2).Value = numdepart + (4 * i + 1) '& Number.Format = "00000"
        Sheets(i + 1).Cells(34, 2).NumberFormat = "00000"
        Sheets(i + 1).Cells(34, 2).Value = numdepart + (4 * i + 2) '& Number.Format = "00000"
        Sheets(i + 1).Cells(46, 2).NumberFormat = "00000"
        Sheets(i + 1).Cells(46, 2).Value = numdepart + (4 * i + 3) '& Number.Format = "00000"
    Next
End Sub

Cordialement.

 

[slaurent01]

Re : boucle numerotation et format 00001

bonsoir le forum

Bonsoir papou-net, et un grand merci c'est ce que je cherchais, je vais pouvoir continuer à développer mon appli.
Bonne soiree
Cordialement
stephane