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+

 

[Si...]

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

salut

Staple😀, ma proposition ne convient pas à l'exemple enfin fourni. Comme il est encore imprécis, je te refile la main (Split pourrait être une solution mais pour quelle liste ?).

 

[Staple1600]

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

Bonsoir à tous

Si...
Tu me refiles le tubercule, tu veux dire 😉
Donc en attendant mieux, une proposition sans VBA avec formule, colonne intermédiaire et MFC
1) en colonne B, recopier la formule suivante

=NB(CHERCHE({12;18;19;7;5;13;10;4;14};A1))=3

2) Sélection des valeurs en colonne A
3) Appliquer une mise en forme conditionnelle
avec cette formule : =$B1=VRAI

Ce qui donne le résultat ci-dessous

 

[job75]

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

Bonjour à tous,

@ JM : si en A1 on a "13 14" ta formule en B1 renvoie VRAI.

Car le 4 est trouvé 2 fois, par 4 et 14.

Il faut délimiter la recherche par des espaces :

=NB(CHERCHE(" "&{12;18;19;7;5;13;10;4;14}&" ";" "&A1&" "))=3

A+

 

[Staple1600]

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

Bonjour à tous


job75

Donc en attendant mieux

Merci pour le mieux 😉

 

[hassan.zer]

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

Bonjour,

Petite astuce, quand tu note les élèves utilises plutot, une note par cellule.
Tu pourra réaliser ce que excel sait faire, travailler des données.

Voir qui a fait tous les devoirs, quel est le devoir le plus difficile le plus simple, voir le nombre d'élèves présents a chaque devoir, bref

En pj.

Cdt.

 

[hassan.zer]

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

Oups, je crois que j'ai mal lu le fichier excel, elevé ne veut pas eleve
Oublie mon classeur, désolé.
Cdt.

 

[Si...]

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

Re

Bonsoir à tous
Si...
Tu me refiles le tubercule, tu veux dire 😉]

n'étant pas du genre à laisser mes potes dans la purée😉, je joins un petit fichier avec 3 cas, le dernier reprenant la MfC Staple-Job, les 2 autres (pas beaucoup mieux) reprenant le Split.

 

[Staple1600]

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

Bonjour à tous

[digression censée ne faire rire que ma personne les week-end de Coupe Davis]
Si...
Tu veux dire en reprenant le Spli...t ?
Une variante du Split de VBA ou le séparateur par défaut est le $ (AKA La Patate) 😉
[digression censée ne faire rire que ma personne les week-end de Coupe Davis]

NB: A la relecture, cette digression était dispensable car mon rire fut à peine audible.
Mais que ferai-je pas pour parler endives, tubercule et autres solonales 😉

 

[Si...]

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

re

seulement pour s'en payer une tranche, m'apporte rien au sujet,désolé😱.
[digestion]
je suis content de voir que tu as la frite Staple😉; ton aka est emprunté aux "All Black" ?
[/digestion]

 

[Staple1600]

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

Re

Si...
[digressons, digressons il en restera toujours quelque chose]
Comment, Si... en bon anglophile/phone que vous semblez être ! 😉
Rien à voir avec le haka ............... mon AKA
[digressons, digressons il en restera toujours quelque chose]

NB: Le Bacon avec des endives, c'est bon, c'est ce qui explique mon tribute à peine voilé à Francis 😉(quoique les sources divergent ...)

 

[job75]

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

Re,

On peut se passer de la colonne B de JM, pour cela :

1) définir le nom test, la cellule A1 étant sélectionnée :

=NB(TROUVE(" "&{12;18;19;7;5;13;10;4;14}&" ";" "&Feuil1!$A1&" "))=3

2) définir la MFC sur toute la colonne A par la formule =test

Pour ceux qui ne jurent que par VBA cela peut se faire par ce code :

Sub MFC()
[A1].Select
ThisWorkbook.Names.Add "test", _
  "=COUNT(FIND("" ""&{12;18;19;7;5;13;10;4;14}&"" "","" ""&$A1&"" ""))=3"
[A:A].FormatConditions.Delete
[A:A].FormatConditions.Add xlExpression, Formula1:="=test"
[A:A].FormatConditions(1).Font.ColorIndex = 13
[A:A].FormatConditions(1).Interior.ColorIndex = 38
End Sub

Fichier joint.

A+

 

[vincent noah]

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

Bonjour à tous !

Merci pour vos réponses , j'ai essayé le code de job75 et ça marche! ce Pb n'était pas facile ....🙄
***job75
**Staple1600
*Si..
Merci beaucoup.^je vous souhaite une excellent soirée .
A+

 

[Si...]

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

re

maintenant que Vincent est satisfait, je peux apporter quelques précisions

Comment, Si... en bon anglophile/phone que vous semblez être ! 😉
Rien à voir avec le haka ............... mon AKA

I know dear Staple ! But, with Find, LookAt:= 😛
Regarde la pièce jointe 937554

Job, j'essaie de m'en tenir aux dires d'Alfred : il ne faut jurer de rien !😉

 

[job75]

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

Bonjour à tous,

Le problème posé étant "au minimum 3 numéros" voici une MFC à 2 conditions :

Sub MFC()
[A1].Select
ThisWorkbook.Names.Add "calcul", _
  "=COUNT(FIND("" ""&{12;18;19;7;5;13;10;4;14}&"" "","" ""&$A1&"" ""))"
[A:A].FormatConditions.Delete
[A:A].FormatConditions.Add xlExpression, Formula1:="=calcul=3"
[A:A].FormatConditions(1).Font.ColorIndex = 13
[A:A].FormatConditions(1).Interior.ColorIndex = 38
[A:A].FormatConditions.Add xlExpression, Formula1:="=calcul>3"
[A:A].FormatConditions(2).Interior.ColorIndex = 3
End Sub

Fichier (2).

Bonne journée.

 

[job75]

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

Re,

Fichier (3) avec 3 conditions :

Sub MFC()
[A1].Select
ThisWorkbook.Names.Add "calcul", _
  "=COUNT(FIND("" ""&{12;18;19;7;5;13;10;4;14}&"" "","" ""&$A1&"" ""))"
[A:A].FormatConditions.Delete
[A:A].FormatConditions.Add xlExpression, Formula1:="=calcul=3"
[A:A].FormatConditions(1).Font.ColorIndex = 13
[A:A].FormatConditions(1).Interior.ColorIndex = 38 'rose
[A:A].FormatConditions.Add xlExpression, Formula1:="=calcul=4"
[A:A].FormatConditions(2).Interior.ColorIndex = 3 'rouge
[A:A].FormatConditions.Add xlExpression, Formula1:="=calcul>4"
[A:A].FormatConditions(3).Font.ColorIndex = 2 'blanc
[A:A].FormatConditions(3).Interior.ColorIndex = 1 'noir
End Sub

A+