Bonjour,
Je rédigé un code qui génère cinq nombres aléatoires en A2 / B2 /.....
J'ai trouvé un code pour vérifier qu'un nombre est premier et je cherche un code qui, après avoir généré ces nombres boucle sur ceux qui ne sont pas premiers jusqu'à ce qu'il n'y ait plus de nombres non-premier de A2 à E2.
En quelque sorte, que le réponses "oui" soient sorties de la boucle...
Pour info, le code que j'ai trouvé pour vérifier les nombres premiers est une fonction et inscrit "non" ou "oui" dans les cellules A3 / B3 / ......

J'ai essayé d'enchaîner While et If; For Select Case Next et la plupart du temps, la boucle s'arrête sur la première réponse "oui" trouvée ou encore elle ne tient pas compte de ces "oui" et s'arrête à la cinquième boucle....Je ne trouve pas la solution.

Si quelqu'un y voit clair, merci de l'aide!!!!



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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Address = "$A$1" Then
 
Dim i As Integer
 
i = 1
 
 
While i <= 5
 
Cells(2, i).Select
ActiveCell.FormulaR1C1 = "=ROUND(RAND()*10,0)"
 
Select Case Cells(3, i)
 
Case Is = "oui"
 
Selection.Copy
    Cells(2, i).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
    ThisWorkbook.Save
 
 
 Case Is = "non"
 
 Cells(2, i).Select
   ActiveCell.FormulaR1C1 = "=ROUND(RAND()*10,0)"
 
 
End Select
 
i = i + 1
 
 
Wend
 
 
End If
 
 
 
 
End Sub