Utiliser une cellule aléatoire avec Offset

Bonsoir à tous,

Une fois de plus je reviens avec mes problèmes

Bon je vais essayer de la faire courte.

J'ai une variable de type range à laquelle je veux attribuer une plage de données (colonne de n lignes par exemple) j'y suis arrivé avec ce code:

set Plage= Worksheets("sheet1").Range("B2", Worksheets("sheet1").Range("B2").Offset(n - 1, 0))

(Je précise le worksheet à chaque fois car je travaille avec plusieurs feuille dans la même sub)

Mon problème c'est au niveau de la première cellule. Maintenant je veux qu'elle soit choisie aléatoirement parmi les cellules de la 2e ligne de la feuille. Par exemple au lieu de B2 ça peut être K2 ou F2...

J'ai essayé avec ça:

Set plage = Worksheets("sheet1").Range(Cells(2, AleaCol2), Worksheets("sheet1").Range(Cells(2, AleaCol)).Offset(n - 1, 0))

avec

AleaCol = Int(Rnd() * m) + 1

(disons m=30)

Mais ça ne fonctionne pas. J'ai le msg d'erreur "Erreur définie par l'application ou par l'objet"

Est ce que vous avez des idées d'où se situe le problème? ou si mon code est adéquat ou pas?

Merci d'avance!

Bonjour Newbie14, le forum,

Erreur de syntaxe....

A tester:

Set plage = Worksheets("sheet1").Range(Cells(2, AleaCol), Cells(2, AleaCol).Offset(n - 1, 0))

Cordialement,