Verification en boucle mais message unique

Version imprimable

Bonjour,

Je fais cette boucle pour m'afficher un nombre qui revient 5 fois dans une plage.
Code:

1 2 3 4 5 6 7 For elec = 1 To 100 If WorksheetFunction.CountIf(Range("L" & a, "DK" & C), elec) = 5 Then MsgBox "BLA BLA BLA" & elec, 16, "BLA BLA" Traca.Electrodes.Caption = Traca.Electrodes.Caption & elec & ", " End If Next End Sub
Mon soucis et que le msgbox revient tant que le nombre ne depasse pas 5 fois.
Question:
Comment faire pour que le msgbox ne vienne qu'une fois tout en continuant la vérification des autres nombres ?
J'ai essayé différentes manipulation mais je n'y arrive pas.
Merci de m'aiguiller.

Bonjour,

Tu peux mémoriser le passage à 5 avec un tableau de variables booléennes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Tablo(1 To 100) As Boolean
Sub Test()
………………
………………
………………
    For elec = 1 To 100
        If Tablo(elec) = False And WorksheetFunction.CountIf(Range("L" & a, "DK" & c), elec) = 5 Then
            MsgBox "BLA BLA BLA" & elec, 16, "BLA BLA"
            Traca.Electrodes.Caption = Traca.Electrodes.Caption & elec & ", "
            Tablo(elec) = True
        End If
    Next
End Sub

Cordialement.

30/03/2013, 00h34
jujulien

Merci pour cette réponse qui répond parfaitement à ma demande.

Dans un soucis de comprehension quelques explication serait les bienvenue car en essayant quelques modif du code je n'arrive à rien du fait que je ne comprend pas la methode utilisé.
Par exemple:
- Si je déclare mon tableau après le sub test cela ne fonctionne plus.
- Si j'ajoute une condition (= 5 or 10) j'ai le droit à un affichage de msgbox pour tous les nombres.
- Si j'ajoute (= 5 and 10) cela fonctionne pour 5 mais pas 10.

Serait-il possible de m'aider à comprendre ?

Bonjour,

Citation:

Si je déclare mon tableau après le sub test cela ne fonctionne plus.

En plaçant la déclaration du tableau dans la section de déclaration du module (avant le sub ...) tu évites que le tableau soit réinitialisé à la fin de ta procédure. En clair, cela te permet de mémoriser la valeur des éléments du tableau.
A noter que si tu optes pour la déclaration du tableau dans la section de déclaration du module, tu devras utiliser l’instruction Erase Tablo pour réinitialiser le tableau.

Citation:

Si j'ajoute une condition (= 5 or 10) j'ai le droit à un affichage de msgbox pour tous les nombres.
Si j'ajoute (= 5 and 10) cela fonctionne pour 5 mais pas 10.

Tu dois transcrire la condition suivante :
Pour que le message puisse apparaitre, il faut:
La variable booléenne avec la valeur FAUX
ET
(le nombre "elec" qui apparait 5 fois OU 10 fois dans la plage).
Code:

1 2 3 4 5 6 7 8 If Tablo(elec) = False And _ (WorksheetFunction.CountIf(Range("L" & a, "DK" & c), elec) = 5 Or _ WorksheetFunction.CountIf(Range("L" & a, "DK" & c), elec) = 10) _ Then MsgBox "BLA BLA BLA" & elec, 16, "BLA BLA" Traca.Electrodes.Caption = Traca.Electrodes.Caption & elec & ", " Tablo(elec) = True End If
Cordialement.