Utilisation de MOD/nb premiers

Version imprimable

Salut tout le monde! Je veux écrire une macro qui vérifie si chaque nombre de la plage sélectionnée est premier et si c'est le cas le reécrit en rouge. Voici la macro que j'ai écrit:
Code:

1 2 3 4 5 6 7 8 9 10 Sub Premier() Dim Cellule As Object For Each Cellule In Selection i = 2 Do While ActiveCell.Value Mod i <> 0 If ActiveCell.Value Mod i = 0 Then Cellule.Font.Color = vbBlack Else Cellule.Font.Color = vbRed i = i + 1 Loop Next Cellule End Sub
Est ce que quelqu’un voit d'où viens l'erreur? Pouvez vous me corriger?? Merci!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Premier()
Dim NotPrem As Boolean
Dim Cellule As Range
Dim i As Integer
 
For Each Cellule In Range("A1:A100")
    i = 2
    Do While i < Cellule.Value
        If Cellule.Value Mod i = 0 Then
            NotPrem = True
            Exit Do
        End If
        i = i + 1
    Loop
    Cellule.Font.Color = IIf(NotPrem, vbBlack, vbRed)
    NotPrem = False
Next Cellule
End Sub

23/10/2013, 23h50
Dorloth

Merci beaucoup pour votre aide... J'ai passé 4 heures dessus... Comme quoi quand on débute... Si j'ai bien compris, il faut d'abord tester si le nombre est premier et seulement d'abord opérer les changement?
23/10/2013, 23h58
mercatog

La logique est à une approximation près: on teste si le nombre est non premier alors on sort de la boucle Do.

Ensuite la boucle n'est pas infinie Do (comme la tienne) puisqu'on boucle tant que i est strictement inférieur la valeur de la cellule.
24/10/2013, 00h09
Dorloth

oui j'ai compris que ma boucle ne s'arrêtait jamais mais je pensait que c'était à cause du MOD qui n'effectuait pas l'opération je ne sais pour quelle raison. Quand j'ai testé ma macro en pas détaillé, la macro n'affectait jamais la bonne valeur à cellule.value mod i... En tout cas encore un grand merci!