Discussion :

[Happy-man]

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Happy-man]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[Happy-man]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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