incrementation + boucle loop

[fabrice31]

bonjour le forum,

petite question bête à laquelle je n'ai pas réussi a adapter de solution:

je voudrais faire une incrémentation dans un boucle while loop, être tourner l'info dans une textbox.
pour explication, il s'agit d'une compteur de palette. si j'ai 5 paletttes a expedier, je fais 5 BL. incrementation automatique de palette 1 à palette 5

Do While TextBox49.Value = TextBox48.Value 'jusqu'à Nbre de palette = n° palette
TextBox48.Value = TextBox48 + 1    'n° palette =n° palette +1
Loop

le code me parait logique, mais le n° palette ne remonte pas ds la textbox....

en vous remerciant et dsl de vous embeter avec mes broutilles.

 

[Patrice33740]

Bonjour

While = tant que
jusqu'à = Until

 

[Lone-wolf]

Bonjour Patrice, Fabrice, (Maurice ?? )

@fabrice31

Moi je ferais comme ceci

Dim cel As Range, i&, x&, t

Private Sub CommandButton1_Click()
    Set cel = Feuil1.Range("b2")  'Nombre de palettes

    x = 0
    For i = 1 To cel.Value
        x = x + 1
        TextBox1.Value = x
        t = Timer + 1.5: Do Until Timer > t: DoEvents: Loop
    Next
End Sub

 

[fabrice31]

Slt a vous,
Merci d'avoir pris le temps de répondre.

@ Patrice,
Merci pour la diff.

@Lone-wolf
Ok pour le code mais je vois pas pk tu insère un timer. C'est pas un compteur temps, mais au clic sur 'palette suivante', qu'on passe de la palette 2 A 3 jusqu'à 'nbre de palette'.
Aussi, je connaissances ton écriture i&, x&...,

En tout cas merci.

Je reviendrai si je bloqué.

 

[Lone-wolf]

Bonjour à tous


@fabrice31

1er message: incrementation automatique de palette 1 à palette 5 - tu donne l'exemple avec Do Loop

2ème message: C'est pas un compteur temps, mais au clic sur 'palette suivante',

Ceci n'est pas une incrementation automatique, mais manuelle.

Ouvre un nouveau classeur, met un userform - une textbox et un bouton et ajoute la macro que je t'ai montré. Le timer est là juste pour qu'il y ai un temps d'attente entre chaque bulletins. La macro est la réponse du 1er message.