Afficher un résultat sur une fenêtre Excel.

:cry: 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:

---

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:

---

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 .

Bonsoir
Pour ton premier code, indente ton code pour la visibilité et aies l'habitude de déclarer convenablement toutes tes variables.
Essaies ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test() Dim p As Integer, z As Integer, k As Integer Dim Div As Boolean   For p = 2 To 100 Div = False For z = 2 To p - 1 If p Mod z = 0 Then Div = True Exit For End If Next z If Not Div Then k = k + 1 Sheets("Feuil1").Range("A" & k).Value = p 'Adapte le nom de ta feuille End If Next p End Sub

---

Bonjour
merci beaucoup pour ton aide ;)