Modification boucle et test dans une macro.

[JJ1]

Bonjour,

Je souhaiterais que vous m'aidiez à compléter mon code VBA (dans le fichier joint) selon les explications fournies sur le fichier.

Merci à tous de votre aide.
Bon AM

 

[gilbert_RGI]

Re : Modification boucle et test dans une macro.

Bonjour


est-ce que ça fait la demande

Sub Alea()
Dim i As Integer
i = 0
'Application.ScreenUpdating = False
lig = 6
retour:
For i = 1 To 100
Randomize
Set dico = CreateObject("Scripting.dictionary")
While dico.Count < 8
x = Int((10 * Rnd) + 1)
dico(x) = x
Wend
Range("G" & lig).Resize(, 8) = dico.keys
If lig = 6 And Range("U6").Value < 4 Then GoTo 1
If lig = 5 And Range("U5").Value < 4 Then GoTo 2
If lig = 4 And Range("U4").Value < 4 Then GoTo 3
Exit Sub
Next i
1:
lig = 5: GoTo retour
2:
lig = 4: GoTo retour
3:
Exit Sub
'Next lig
'Application.ScreenUpdating = True
End Sub

 

[JJ1]

Re : Modification boucle et test dans une macro.

Bonjour Gilbert,

Merci pour ta proposition.

J'ai apporté 2 modifications (une que j'ai faite en ordonnant les nombres et une restante)

merci à toi.

 

[pierrejean]

Re : Modification boucle et test dans une macro.

Bonjour JJ1

Vois si cela te convient

Edit :Salut Gilbert

 

[JJ1]

Re : Modification boucle et test dans une macro.

Bonsoir Pierre Jean,

Merci pour ton code.

J'ai cru voir qu'il y a des essais multiples par ligne ? ( mais elle tourne vite !)
Je renvois le fichier avec ce point précis à éclaircir.

merci beaucoup.

 

[JJ1]

Re : Modification boucle et test dans une macro.

Re,

Explication beaucoup plus simple et claire jointe.


merci.
Bonne soirée

 

[pierrejean]

Re : Modification boucle et test dans une macro.

Re

Vois si j'ai bien compris

Vu Simul3 :tu devras changer NB de 3 a 4 et probablement être très très patient

 

[JJ1]

Re : Modification boucle et test dans une macro.

Merci Pierre Jean
Effectivement 1er essai à 3: 171 tentatives, à 4 elle tourne encore........


Bonne soirée