Prendre aléatoirement des cellules

Fermé
mgrizzly Messages postés 17 Date d'inscription vendredi 1 mai 2009 Statut Membre Dernière intervention 8 mai 2010 - 11 mai 2009 à 09:43
Bonjour,
Dans la colonne C de mon tableau (de la ligne 9 à 59) il y a des 1 et des 0.
J'aurais besoin d'un code en VBA qui prenne aléatoirement 3 cellules de la colonne C et uniquement parmi celles qui ont des 1.
Ensuite j'aurais voulu que ces cellules prisent aléatoirement, renvoient à l'identifiant de ces cellules situé dans la colonne A.
Merci de m'aider.

Voilà comment j'ai commencé mon code :

Sub FIP_AIP_MUSC()

Dim cel
Dim plage As String
plage = "C10:C59"

For Each cel In Worksheets("Compétences").Range(plage)
If cel.Value = 1 Then ???


End If
Next cel

End Sub