boucle numerotation et format 00001

slaurent01 · 27 Décembre 2012

bonjour le forum,

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

Code:

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 · 27 Décembre 2012

Re : boucle numerotation et format 00001

Bonjour slaurent01

Pour cela, utilise la fonction : Format()

Code:

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

A+

slaurent01 · 27 Décembre 2012

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 · 27 Décembre 2012

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

Code:

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 · 27 Décembre 2012

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

boucle numerotation et format 00001

slaurent01

XLDnaute Junior

Pièces jointes

Compte Supprimé 979

Guest

slaurent01

XLDnaute Junior

Papou-net

XLDnaute Barbatruc

slaurent01

XLDnaute Junior

Discussions similaires

boucle numerotation et format 00001

slaurent01

XLDnaute Junior

Pièces jointes

Compte Supprimé 979

Guest

slaurent01

XLDnaute Junior

Papou-net

XLDnaute Barbatruc

slaurent01

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency