Comment inserer l'utilisation d'un commandbutton dans l'exécution d'une boucleRésolu

Question

Bonsoir,
J'ai une feuille excel organisée de cette façon:
col A N° de boîte= 9 lignes avec le même n° de boîte et de campagne col F. Ces 9 lignes qui constituent la boîte sont en fait des rouleaux avec une position dans la boîte col H et des caractéristiques constituant ces rouleaux tels n° de série, diamètre etc correspondant à une colonne différente.
Soi l'on créé une nouvelle boîte en appuyant sur le bouton de la feuille "Durée de vie" soit on cré une nouvelle campagne qui elle va reprendre les rouleaux existant mais qui risquent de changer de position et qui vont peut-être changer de caractéristiques diamètre ou autre.
Quand j'accéde à l'UF3 qui est le userform terminant ma création de boîte, j'ai prévu que l'on puisse s'arrêter à chaque remplissage des combos (c'est à dire la reprise des caractéristiques de la boîte que l'on a choisi dans l'UF2).
La on modifie ou pas certaines caractéristiques et on clique pour copier ces données, ensuite on passe à la ligne en dessous (dans la feuille) et cela rempli les données des combos etc jusqu'à la ligne 9. Mais tout est recopié sans que je puisse intervenir sur aucune données. Voila mon problème.
Je voudrai pouvoir arrêter la macro dès que le remplissage des combos est fait et clicker pour que la boucle reprenne.
Merci
.

cs_Jack · Accepted Answer

Salut

Catégorie modifiée VB.Net -> VBA

Il te suffit de 3 étapes :
-1- Déclarer une variable logique servant de validateur :
Private bValid As Booleanà mettre dans la partie "Déclaration" de ta UF
-2- Dans le code de ton bouton, l'activation de la valisation :
bValid = True-3- Dans ton programme, à l'endroit où tu dois attendre cette validation, une boucle d'attente :
Do While Not bValid
    DoEvents
Loop
bValid = False  ' remise à zéro pour prochain usage
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)

AR13 · Answer

Merci beaucoup je vais l'essayer dès ce soir.

AlainR13

AR13 · Answer

Bonjour,
désolé de ne pas avoir répondu plus tôt.
J'ai ai essayé le code et s'il y a une nette amélioration, j'ai encore un problème dans l'exécution.
Je joins le code d'exécution:
[code=vb]Sub ligne_marche()
a2 = TextBox1.Value
For n = 0 To 8
ligne = Cpt + n
CBRlx = Range("H" & ligne).Value  'Affiche le Positionnement rouleau
CBN° = Range("I" & ligne).Value
CBØmin = Range("M" & ligne).Value
CBØmont = Range("J" & ligne).Value
CBØrectif = Range("N" & ligne).Value
CBDur = Range("K" & ligne).Value
CBmatiere = Range("P" & ligne).Value
CBFournis = Range("Q" & ligne).Value
Do While Not bValid
    CmdBvalidation = DoEvents
Loop
bValid = False
Next n
End Sub
Private Sub CmdBvalidation_Click()
bValid = True
Cpt = Cpt + 1
num = Sheets("Durée de vie").Range("A8").Row + (Cpt)
Sheets("Durée de vie").Activate
Range("H" & num).Value = CBRlx.Value
Range("I" & num).Value = CBN°.Value
Range("M" & num).Value = CBØmin.Value
Range("J" & num).Value = CBØmont.Value
Range("N" & num).Value = CBØrectif.Value
Range("K" & num).Value = CBDur.Value
Range("P" & num).Value = CBmatiere.Value
Range("Q" & num).Value = CBFournis.Value
ligne_marche
bValid = False
 End Sub
J'ai rajouté avant Do Event la commande,
mais je n'ai pas tout à fait le bon résultat, la séquence s'arrête au bon moment mais la première ligne se copie et ensuite la deuxième n'apparaît pas. Si vous pouvez me dire où je fais l'erreur.
Merci

AlainR13

Comment inserer l'utilisation d'un commandbutton dans l'exécution d'une boucle

3 réponses

Votre réponse

Discussions similaires