Nombres aléatoires avec favoris!

[Claudy]

Bonjour,
Je craque après plusieurs recherches infructueuses...
Mon prob:
Tirer aléatoirement 7 nombres de 1 à 20 les placer dans A1:G1 (Je sais faire ça...)
Mais dans ces nombres il me faudrait, qu'il y ai d'autres nombres (max deux) "favoris" que je retrouve dans AA1: AG1
Précision: pas de doublons!

Merci d'avance,
Claudy

 

[Lii]

Re : Nombres aléatoires avec favoris!

Bonjour Tous,

Cas de 2 favoris : Formules et Traduction de celles-ci en VBA.

 

[job75]

Re : Nombres aléatoires avec favoris!

Bonjour à tous,

Pour tester la zone que j'ai nommée "favoris", j'utilise une fonction nbfav(rng)
qui me permet de boucler sur le remplissage de chaque ligne si la fonction ne renvoie pas 1 ou 2 :

Function nbfav(rng)
nbfav = 0
For Each c In Range("favoris")
nbfav = nbfav + Application.CountIf(rng, c.Value)
Next
End Function

Ci-joint votre fichier modifié.

A+

 

[Claudy]

Re : Nombres aléatoires avec favoris!

Super et merci beaucoup...
Bon WE à tous