Discussion :

[bitissa1991]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Simulation_Click()
Dim i as integer 
'code pour le lancement des passe dans le tunel
 
Recommencer:  If Range("B1").Value <> "" Then 'vérifie que B1 n'est pas vide
Range("B7:T7").Value = "" 'réinitialise ton "tableau"
i = 2 'valEUr de Ma première colonne du tableau
Application.Wait Time + TimeSerial(0, 0, 1) 'attends 10 sec
Do Until Range("T7") <> "" 'conditionne la boucle jusqu'à la dernière colonne de ton tableau
If i > 2 Then Cells(7, i - 1).Value = Range("B1") 'mettre la valeur de B1 dans les cellule precedente
Cells(7, i).Value = Range("B1").Value 'mets ta valeurs dans la cellule de ton tableau
i = i + 1 'prochaine colonne
 
Application.Wait Time + TimeSerial(0, 0, 1) 'attends 10 sec
Loop
Range("B3") = Range("B3") + Range("T7")
 
GoTo Recommencer
 
End If
End Sub

cette boucle est infinie je veux mettre un bouton sur lequel je clique et que cette boucle infinie s'arrête est ce que c'est possible ?

[MacKay77]

Bonjour,

La boucle do Until ne m'a pas l'air infinie.
Si j'ai bien comprit ton code, il va donner la valeur de B1 à toutes les cellules de C7 à T7.

[Al__22]

Non pas possible c'est le principe de ta boucle en même temps...

A chaque fois qu'il fini la macro tu lui dit de retourner au départ avec ton goto

Le seul moyen c'est de mettre une variable compteur qui s'incrémente à chacune des boucles est dit d’arrêter à un moment donner du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
compt = 1
do until compt = 10
 
ton code
 
compt = compt + 1
loop

[bitissa1991]

Malheureusement Mazo sa marche pas y'a rien qui veux marcher aujourd’hui
regarde ou j'ai mis ce que tu ma envoyer mais elle s’arrête pas

[MacKay77]

Comme l'a dit Al__22, c'est le Goto Recommencer qui pose problème
Il te renvoi sans aucune condition à la ligne commençant par "Recommencer:"
Je n'en vois d'ailleurs pas l'intérêt donc je te conseille de le virer

[bitissa1991]

oui ta raison

mais le problème si je le vire ma boucle va pas recommencer et moi je veux que une fois que T7 reçois la valeur , que la boucle recommence pour remplir B7 et ainsi de suite

[bitissa1991]

Mazo est ce que je peux t'envoyer mon fichier excel pour que tu le vois c'est possible ou pas ?

[MacKay77]

B7 récupére tout le temps la valeur de B1 qui ne change pas.
Si tu voulais parler de B3, va bien falloir que tu arrêtes de modifier sa valeur.
Tu veux que B3 atteigne quelle valeur? Ou que la boucle s'effectue combien de fois au juste?

[bitissa1991]

mercii Mazo

Mazo c'est bon j'ai résolu mon probléme je suis trés contente merciii beaucoup

[Al__22]

Malheureusement Mazo sa marche pas y'a rien qui veux marcher aujourd’hui
regarde ou j'ai mis ce que tu ma envoyer mais elle s’arrête pas

Haha tu as oublié le compt = compt + 1 juste avant le goto

Mais je suis d'accord avec MacKay, cette boucle à quoi elle te sert ?

oui ta raison

mais le problème si je le vire ma boucle va pas recommencer et moi je veux que une fois que T7 reçois la valeur , que la boucle recommence pour remplir B7 et ainsi de suite

En toute logique une fois que T7 est remplie B7 l'es aussi vu que tu enlève pas a valeur précédente dans ton code en déplacant le 53