Séléction d'une plage variable

[COLOR="#FF0000"]Bonjour le forum,
j'espère que vous allez bien, je suis un débutant en VBA et j'ai un petit problème:
Mon objectif est le suivant: j'essaye de séléctionner une plage composée de plusieurs lignes d'indices variable.

J'ai fait plusieurs essaye mais j'arrive pas :

première proposition:

Code:

---

1 2	Set MaPlage =Range("M" & Ligne &":N" & Ligne + 3) 'avec Ligne est un indice qui varie dans une boucle MaPlage.Select

---

Deuxième proposition:

Code:

---

1 2	Set MaPlage =Columns("M:N").Rows(Ligne :Ligne+3) MaPlage.Select

---

et je reçois tjrs un msg d'erreur de compilation

Je vous remercie d'avance :mouarf::mouarf:

Bonjour,

regarde du côté de la méthode Union en cas de plage discontinue

sinon regarde ce que fait cette ligne de code dans ta fenêtre des variables locales, ou en interrogeant son adresse

Code:

---

Set MaPlage = MaFeuille.Range(MaFeuille.Cells(1,1),MaFeuille.Cells(4,4))

---

Citation:

---

Envoyé par joe.levrai

Bonjour,

regarde du côté de la méthode Union en cas de plage discontinue

sinon regarde ce que fait cette ligne de code dans ta fenêtre des variables locales, ou en interrogeant son adresse

Code:

---

Set MaPlage = MaFeuille.Range(MaFeuille.Cells(1,1),MaFeuille.Cells(4,4))

---

---

Bonjour [QUOTE=joe.levrai;10088142],
Le problème c'est que l'indice de ligne n'est pas tjrs de 1 à 4 ms il varie dans une boucle.

Oui je sais, je t'ai juste suggéré une piste, si elle te convient, il suffit de l'adapter

Au passage, vérifie ce que contient ta variable ligne, on ne voit absolument rien de ton code (l'endroit où tu définis sa valeur) alors impossible de t'aider

Citation:

---

Envoyé par joe.levrai

Oui je sais, je t'ai juste suggéré une piste, si elle te convient, il suffit de l'adapter

Au passage, vérifie ce que contient ta variable ligne, on ne voit absolument rien de ton code (l'endroit où tu définis sa valeur) alors impossible de t'aider

---

Voici un exemple:

Code:

---

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

Sub past() Dim i, Ligne As Integer Dim MaPlage As Range Ligne = 1 For i = 0 To 15 Sheets("Feuil2").Select Set MaPlage = Columns("M:N").Rows(Ligne + 2, Ligne + 3) MaPlage.Select Selection.Copy Sheets(NameSheet).Select Range("A" & Ligne).Select ActiveSheet.Paste Ligne = Ligne + 5 End Sub

---