Discussion :

[TheRealMike]

Bonjour,

j'aimerais utiliser une plage amovible. Je m'explique. Voici mon code d'origine:

Code :

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

1
2
3
4
5
6
7
For k = 1 To 10
 
 
 
Set plage = Worksheets("pas par pas").Range("B3:B103")
 
next k

Je voudrais qu'a chaque fois que k augmente de 1, ma plage se décale de 1 vers la droite.

Pouvez-vous m'aider?
Merci TheRealMike

[pgz]

Bonjour.

Tu peux essayer un truc du genre

Code :

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

1
2
3
For k = 1 to 10
    Set MaPlage = Application.ThisWorkbook.Sheets("pas à pas ").Range("B3:B103").Offset(0,k-1)
Next k

ou

Code :

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

Set MaPlage = Application;ThisWorkbook;Sheets("pas à pas").Range(cells(3,k+1),Cells(103,k+1)

ou

Code :

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

Set MaPlage = Application.ThisWorkbook.Sheets("B3:K103").Colums(k)

Ou ...

Bon courage,

PGZ