Utiliser un Range avec des Cells

Bonjour,

pour des raisons de variable... j'ai besoin de selectionner une plage de donnée enfin 2 plages de données avec en identifiants les lignes et les colonnes par des chiffres.
J'ai donc pensé aux Range pour les plages de données et au Cells pour utiliser des variables.

En m'inspirant de cela :

Code:

---

'Range("S2:S7,V3:V7").Select

---

J'ai essayé plein de trucs en vain, la chose qui me parait la plus logique est la suivante mais ça ne marche toujours pas.

Code:

---

Range(Cells(4, 5) & ":" & Cells(6, 5), Cells(4, 7) & ":" & Cells(6, 7)).Select

---

Malheureusement, l'erreur d'exécution 1004 apparait.

Pourriez vous m'aider svp ?
Je veux en fait selectionner 2 plages de données que je pourrai identifier grâce à 4 cells afin d'utiliser des variables.

Avez vous une idée ?

je vous remercie pour votre future aide,

Avec la fonction 'Union()':

Code:

---

Union(Range("S2:S7"), Range("V3:V7")).Select

---

Bien que je n'aime pas les "Select", si c'est une plage discontinue, essaies :

Code:

---

Union(Cells(4, 5), Cells(6, 5), Cells(4, 7), Cells(6, 7)).Select

---

edit : pas vu ta réponse vcottineau

Bonjour,
J'ai cru comprendre que tu cherchais à utiliser deux plages non contiguës à l'aide d'une variable objet.
Si c'est le cas, il faut utiliser la méthode UNION
Voici un exemple d'une procédure qui copie la plage $A$1:$A$20,$D$1:$D$20 de la Feuil1 vers la Feuil3

Code:

---

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

Dim shtDest As Worksheet Dim rng As Range Const shtFromName = "Feuil1" Const shtDestName = "Feuil3" Sub Macro1() With ThisWorkbook Set shtFrom = .Worksheets(shtFromName) Set shtDest = .Worksheets(shtDestName) End With With shtFrom Set rng = Union(.Range(.Cells(1, 1), .Cells(20, 1)), .Range(.Cells(1, 4), .Cells(20, 4))) End With rng.Copy shtDest.Range("A1") End Sub

---

Magnifique le Union fonctionne parfaitement.
Je vous remercie et vous souhaite une très bonne journée.

A bientôt,