Re : Tirage alétoire à 2 conditions
Bonsoir
désolé du peu de réactivité, j'ai pas mal de travaux en cours.
Alors pour le code : avant de coder, le plus simple selon moi, c'est d'écrire au maximum ce que l'on veut faire. Puis les fonctions viendront toutes seules. en revanche, il faudra mettre un peu la main à la patte... La touche F1 est votre amie !
Donc :
Sub Nom_de_la_macro() 'je défini ma macro
'je cherche le nombre de ligne
'pour cela : comtper les lignes jusqu'à ce qu'il n'y en ai plus (temps que la cellule de la ligne que je lis n'est pas vide) Nous choisirons de lire la cellule de la colonne A
'à quelle ligne je commence ? :
ligne_cellule_lue = 4
'temps que cellule lue n'est pas vide :
while cells(ligne_cellule_lue, 1).value <> ""
'je vérifie la cellule suivante, pour cela, j'incrémente ma ligne en cours avant de faire le teste suivant
ligne_cellule_lue = ligne_cellule_lue + 1
wend 'si la condition est réalisée, je retourne au début du test, sinon fin de mon test
'lorsque le programme arrive ici, c'est que nous sommes sortie de la boucle :
'nous savons donc que la ligne en cours est vide
'il y a donc un nombre de ligne égale à ligne_cellule_lue - 1 - (4-1) (celles du départ étant à supprimer aussi)
nombre_ligne = ligne_cellule_lue - 4
'et ainsi de suite pour le reste des opérations. Ne pas hésitez à travailler bloc par bloc, à bien les commenter, et à les tester au fur et à mesure (merci le VBA qui permet cela).
'si vous ne savez pas faire un passage, explicitez le bien, et une réponse vous sera formulez ici.
'maintenant, à vous de jouer !!
End Sub 'fin