copier cellules avec variable randomize

Bonjour,

Alors voilà: je bidouille un classeur pour faire un tirage au sort. Sur ma worksheet "chapeau", j'ai mes billets, sur "tirage" mes lots. Je veux que lorsque je suis sur la case à coté du lot dans "tirage", au clic sur le boutontir, le vba aille me chercher un ensemble de cellule au hasard sur "chapeau". Je suis à ce stade:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub boutontir_Click() Dim n As Integer Dim x As Integer Dim r As Integer   r = ActiveCell.Row n = Application.WorksheetFunction.CountA(Worksheets("chapeau").Range("A:A")) 'pour limiter les valeurs de randomize à la plage d'existant   Randomize x = Int(n * Rnd) + 2 'ça ça marche, en testant une msgbox je vois un nombre aléatoire dans la plage voulue   Worksheets("chapeau").Range(Cells(x, 1), Cells(x, 6)).Copy Destination:=Worksheets("tirage").Range(Cells(r, 3), Cells(r, 8)) 'c'est là que ça coince   End Sub

---

Mais "erreur 100"; j'ai fait différents essais au niveau des range source et cible ("Ax:Fx" ou "ActiveCell"). Mais rien ne marche. Serait-ce la méthode copy destination qui est en cause? Ou le fait de ne pas ordonner convenablement les étapes?

Bonjour,

En ligne 12, il faut absolument indiquer où se trouvent les Cells:

Code:

---

Worksheets("chapeau").Range(Worksheets("chapeau").Cells(x, 1), Worksheets("chapeau").Cells(x, 6)).Copy Destination:=Worksheets("tirage").Cells(r, 3)

---

ou en utilisant l'instruction With:

Code:

---

1 2 3

With Worksheets("chapeau") .Range(.Cells(x, 1), .Cells(x, 6)).Copy Cells(r, 3) End With

---

Il faut aussi déclarer n, x et r comme étant Long.
Cordialement.

Super ! Ça marche. j'étais persuadé qu'en se plaçant sur worksheets("feuille qu'on vise"), toutes les commandes suivantes utilisaient alors cette worksheet... J'ai choisi l'option sans l'instruction with.

Merci encore!