Discussion :

[skon_ca]

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 .

[mercatog]

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 :

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

[skon_ca]

Bonjour
merci beaucoup pour ton aide