Définir une variable dans un code Random

[Benoit]

Bonjour à tous,

J'aimerais utiliser le code suivant pour sélectionner une cellule au hasard dans une plage variable. Originalement, le code choisissait une cellule au hasard dans la plage A1:A10 :

Sub MacroRandom2()

Dim Cellule1 As Range
Dim Cellule2 As Range

Set Cellule1 = Sheets('Liste Noms').Range('E1')
Set Cellule2 = Sheets('Liste Noms').Range('F1')

Randomize 'Initialise le générateur de nombres aléatoires
a = Int(Cellule2 * Rnd + 1)
Cells(a, 1).Select 'sélectionne aléatoirement une cellule dans la plage A1:A10
End Sub


J'arrive a bien délimiter la zone de fin du range par ma variable Cellule2. Par contre, je n'arrive pas à faire débuter ma plage à la cellule A+valeur de la cellule E1 de ma feuille Liste Noms.

Si la valeur de ma cellule E1 est 14 et que ma cellule F1 est 38, je voudrait que la macro sélectionne une cellule au hasard dans la plage A14:A38 de la feuille Liste Noms.

Encore une fois, merci à tous pour votre aide si précieuse !

 

[soft]

Essaye comme ça :

Sub Choix()
    Dim Valeur1 As Integer, Valeur2 As Integer
    Dim Ligne As Integer
    
    Valeur1 = Sheets('Liste Noms').Range('E1').Value
    Valeur2 = Sheets('Liste Noms').Range('F1').Value
    Randomize
    Ligne = Int((Valeur2 - Valeur1 + 1) * Rnd + Valeur1)
    Cells(Ligne, 1).Select
End Sub

Message édité par: soft, à: 25/04/2006 18:45

 

[Benoit]

Merci beaucoup !

Ça fonctionne très bien....

Bonne fin de journée.