Bonjour à tous ;
Je sollicite votre aide SVP ;
J’ai besoin d’afficher les nombres premiers de 2 jusqu’à cent sur une feuille Excel en exécutant une macro ;
Ceci est le script que j’ai préparé pour que se soit affiché sur une fenêtre d’excusions :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
For p = 2 To 100
div = "non"
For Z = 2 To p - 1
If p Mod Z = 0 Then
div = "oui "
End If
Next Z
If div = "non" Then
Debug.Print p
End If
Next p
End Sub
J’ai aussi trouvé ce résultat :
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
Sub test()
 
For p = 2 To 100
div = "non"
For z = 2 To p - 1
If p Mod z = 0 Then
div = "oui"
End If
Next z
If div = "non" Then
For Each i In [A2:A100]
If i.Value = "" Then
i.Value = p
Exit For
End If
Next
Debug.Print p
 
 
End If
Next p
Serait-il possible de m’aider SVP , sans passer par le For Each .