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

Staple1600

XLDnaute Barbatruc

• 27 Février 2015

• #2

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 ?

 

Vote positif 0 Vote négatif

V

vincent noah

Guest

• 28 Février 2015

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Février 2015

• #4

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.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

V

vincent noah

Guest

• 28 Février 2015

• #5

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

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Février 2015

• #6

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

 

Vote positif 0 Vote négatif

V

vincent noah

Guest

• 28 Février 2015

• #7

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

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


A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Février 2015

• #8

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

Re


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

Code:

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 28 Février 2015

• #9

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

 

Pièces jointes

• Nb.Si (MFC,VBA).xls

  47.5 KB · Affichages: 40

Vote positif 0 Vote négatif

V

vincent noah

Guest

• 28 Février 2015

• #10

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

Code:

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+

 

Dernière modification par un modérateur: 28 Février 2015

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Février 2015

• #11

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?

 

Dernière édition: 28 Février 2015

Vote positif 0 Vote négatif

V

vincent noah

Guest

• 28 Février 2015

• #12

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à

 

Pièces jointes

• Classeur note elevé.xlsx

  12 KB · Affichages: 48

Vote positif 0 Vote négatif

V

vincent noah

Guest

• 4 Mars 2015

• #13

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Mars 2015

• #14

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?

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

V

vincent noah

Guest

• 5 Mars 2015

• #15

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+

 

Vote positif 0 Vote négatif