Expression VBA pour dire "au moins 3 numéros"

[vincent noah]

Bonsoir à tous

je cherche l’expression VBA pour dire : au moins trois numéro parmi une liste
voici mon code:

Sub g()
Dim c As Range, cpt As Long
    listeA =(12,18,19,7,5,13,10,4,14)
    For Each c In [A1:A200]
        If c.Value like 'contient au moin 3 numéros de la liste A   Then
        cpt = cpt + 1
    Next
    MsgBox cpt
End Sub

Merci de votre coup de main
a+

 

[vincent noah]

Re : Expression VBA pour dire "au moins 3 numéros"

Bonjour à tous !
Re, job75

Effectivement la MFC au poste #26 donnée strictement 3 numéros et non "au moins 3 numéros" ( je n'avait pas remarqué )
Bien vue !
Merci pour la dernière MFC
excellente fin de journée .

bien cordialement .