Sélection excel au Hasard Résolu/Fermé

Question

Bonjour, 

Je suis en train de faire une macro pour un tableau et je souhaiterai savoir s'il est possible ou pas de faire sélectionner 2 critères au hasard dans une colonne. En fait je reçoit toutes les semaines un tableau dans lequel il y a la date des 5 jours de la semaine précédente sous ce format 20120830
                        20120830
                        20120830
                        20120831
                        20120831
                        20120831
Et comme cela change toutes les semaines j'aimerai que la macro puisse choisir toute seule 2 dates au hasard parmis les 5 et cacher ou faire disparaitre les autre. Est-ce possible? D'avance merci!

ccm81 · Answer

bonjour

une petite macro commandée par un bouton

Const plageDate = "A2:A6"

Private Sub CommandButton1_Click()
Dim li As Long, d1 As Long, d2 As Long
d1 = Int(5 * Rnd) + 1
Do
  d2 = Int(5 * Rnd) + 1
Loop Until d1 <> d2
For li = 1 To 5
  If li <> d1 And li <> d2 Then Range(plageDate).Cells(li, 1).ClearContents
Next li
End Sub

bonne suite

ccm81 · Answer

ça ne marche pas chez moi 
qu'est ce qui ne marche pas

Le code que je t'ai donné est censé répondre strictement à ta question. A savoir, dans une plage de 5 dates, sélectionner au hasard 2 dates parmi 5 et effacer les 3 autres
Tu évoques une plage de 200 lignes, ça change tout
Q1. veux tu que la macro sélectionne 2 dates dans ta plage de 200 lignes et efface les 198 restantes
Q2. as tu mis un bouton dans ta feuille

peux tu envoyer ton fichier au format excel 2003 (fichier/enregistrer sous/type ...) sur cjoint.com et joindre le lien obtenu à ton prochain message.

bonne suite

ccm81 · Answer

tous les règlements de deux journées choisies au hasard 
par exemple si les deux dates sont (les deux premières) 
20120823 
20120830 
on conserve les 71 lignes correspondantes?

Clem93 · Answer

C'est exactement ça que je voudrais pouvoir faire

ccm81 · Answer

comme ça?
https://www.cjoint.com/?3IhtaNzcq4Z 

bonne suite