Discussion :

[Dorloth]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[mercatog]

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

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

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

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