Je hais l'instruction vba .Find

[Gruick]

Bonjour,
Dans le sujet sur l'Euromillions, j'ai eu l'idée de rechercher quels sont les numéros qui aiment sortir ensembe (en couple).
Donc deux solutions pour analyser les quelques 4800 tirages :
- un balayage des 4800 fois 6 cellules, puis traitement pour trouver son meilleur ami (et les autres pendant qu'on y est). Efficace.
- un recours à .Find, avec comme recherche le numéro, et traitement. Rapide pensais-je.

Et bien non, je lui fait trouver le 4 par exemple, et il trouve le 4 contenu dans le nombre 14, par exemple.
J'ai pourtant pris soin de lui préciser .find(4, lookin:=xlvalues), bref comme l'exemple contenu dans l'aide.

J'ai rusé en comparant mon 4 et mon 14, et un non traitement si <>.

Gros problème, ça marche, mais c'est long, plus de 2 minutes, alors que mon balayage traditionnel me fait ça en quelques secondes.

Alors si quelqu'un a une idée... pour domestiquer cette foutue instruction .find

Merci d'avance,

Gruick

 

[Gruick]

Re : Je hais l'instruction vba .Find

Re,
Super, extraordinaire, fabuleux, fantastique, divin...
Je ne connaissais pas ce concept de plage évolutive nommée.
Ta devise s'applique parfaitement à moi.
Je n'ai pas saisi en revanche

autre version, En H1
si zero, affiche le nombre de fois que les couples de n° sortent
Si > 0 affiche le nombre de fois que les 3 numeros sortent

Donc, excuses-moi de jouer les pots de colle. Qu'as-tu voulu dire ?
Désolé et ravi en même temps.
Gruick

 

[wilfried_42]

Re : Je hais l'instruction vba .Find

re:

exemple tu tapes 8 en h1 et tu as le nombre de fois qu'est sortie la combinaison 8, colonne, ligne :
intersection 2, 5 et 8 en H1, à l'inteserction tu as le nombre de 2, 5, 8 sortis
si tu mets 0, ce sont uniquement les combinaisons des 2 nombres (colonne ligne)