Mélange aléatoire et transfert

[mfb]

Bonjour à tous.
Un petit exemple vaut mieux qu' un long discours (surtout s' il est mauvais)alors j' ai joint un petit exemple.
La macro du fichier est issue d' un fil de YOYO traité par Bof le 2.20.2005.
A dispo pour tout complément d' info.
Merci d' avance
Daniel

 

[SergiO]

Re : Mélange aléatoire et transfert

Bonjour Daniel,

Peut-être cette formule en F10 : =RECHERCHEV(E10;$A$10:$B$21;2;0)

à recopier vers le bas pourrait suffire.

@+

 

[mfb]

Re : Mélange aléatoire et transfert

Bonjour Sergio,
Merci pour une réponse aussi rapide ça marche MAIS n' y aurait il pas une astuce macro
qui éviterait les formules?
Daniel

 

[SergiO]

Re : Mélange aléatoire et transfert

Re,

Essaie donc de rajouter la ligne en rouge dans le code :

'...Début du code
Cells(j + 9, 5) = x
[COLOR=Red]Cells(j + 9, 6) = Cells(9 + x, 2)[/COLOR]
melange.Remove i
'... suite du code

@+

 

[mfb]

Re,
IMPEC, cela parait tellement simple quand on a la solution on peut se dire que suis je bête pour ne pas y avoir pensé.
Mrerci encore
A+
Daniel