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
Code:
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.
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
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&...,
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.