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+

 

[Staple1600]

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

Bonsoir à tous

vincent noah
1) Je n'arrive pas à ouvrir le fichier Excel exemple que tu as joins dans ton premier message.
2) Que contiennent les cellules en A1:A200, une seule valeur par cellule ou plusieurs valeurs par cellule séparées par une virgule ou un point virgule voire un espace ?

 

[vincent noah]

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

Re,
oui alors les cellules de A1:A200 contiennent plusieur valeurs séparé par un espace ex:
A1: 19 12 3 10 9
A2: 17 19 12 4 5
Etc...
Merci d'avance

 

[Staple1600]

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

Bonjour à tous

Merci pour les précisions mais ceci reste d’actualité ...

1) Je n'arrive pas à ouvrir le fichier Excel exemple que tu as joins dans ton premier message.

 

[vincent noah]

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

Re, justement je n'est pas joint un fichier ,
vous voulez dire le code ?

 

[Staple1600]

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

Re

Donc il te reste plus qu'à joindre un fichier exemple, non ?
(souviens-toi ce que conseille la charte du forum à ce sujet...)

 

[vincent noah]

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

Re, ça sera fait
à mon retour en fin de soiré


A+

 

[Staple1600]

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

Re


En attendant ton fichier, vois si ceci t'inspire pour aller plus loin

Sub gb()
Dim c As Range, cpt As Long, t, listea, i As Byte
listea = Array(12, 18, 19, 7, 5, 13, 10, 4, 14)
For Each c In [A1:A200]
t = Split(c.Text)
For i = LBound(t) To UBound(t)
If Not IsError(Application.Match(Val(t(i)), listea)) Then
MsgBox c.Address(0, 0) & ": " & t(i)
End If
Next
Erase t
Next
End Sub

 

[Si...]

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

Salut

Un exemple sans boucle et même sans VBA.

Merci Staple pour m'avoir appris à flirter avec les filtres !

 

[vincent noah]

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

Bonsoir à tous ,

voici comme prévu le fichier exemple


ps staple j'ai testé le ton code comme ceux-ci

Sub gb()
Dim c As Range, cpt As Long, t, listea, i As Byte
listea = Array(5, 3, 4, 14, 15, 6, 8)
For Each c In [A1:A200]
t = Split(c.Text)
For i = LBound(t) To UBound(t)
If Not IsError(Application.Match(Val(t(i)), listea)) Then
c.Interior.ColorIndex = 3
'MsgBox c.Address(0, 0) & ": " & t(i)
End If
Next
Erase t
Next
End Sub

mais ne fonctionne pas car il y a des cellules contenant un numéros de la liste qui sont colorié

Merci d'avance
a+

 

[Staple1600]

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

Bonsoir à tous

vincent noah
1) Le fichier exemple est absent pour cause d'imprévu ?
C'était pas prévu ça, non ?

2) Ce n'est pas mon code qui ne fonctionne pas, mais le tien inspiré du mien

3) Et si tu adoptais la Si...lution proposée par l'adepte du grand Michel dans le message #9?

 

[vincent noah]

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

re ,

vraiment désolé j'ai oublier de le joindre la tête ailleurs!
voilà

 

[vincent noah]

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

Bonjour le forum ,

CC Staple tu a vu mon fichier ?
si tu a une idée je suis preneur .

Merci d'avance.


A+

 

[Staple1600]

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

Bonjour à tous

vincent noah
J'ai vu ton fichier
Et j'attends la réponse à ma précédente question...

3) Et si tu adoptais la Si...lution proposée par l'adepte du grand Michel dans le message #9?

 

[vincent noah]

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

Bonjour à tous !

Staple1600

oui j'ai essayé. Mais je cherche un code VBA un peu comme celui du poste #8
A+