Discussion :

[PaulG2B]

Bonjour

J'essaie de stocker une plage de cellules sélectionnées dans une variable Range
L'objectif est de boucler sur les cellules de cette plage.

Mes 2 variables Ftravail et Maplage stockent les bonnes valeur mais la boucle ne s'initie pas et je ne sais pourquoi

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim c As Range, Maplage As Range
Dim Fformule As Worksheet, Ftravail As Worksheet
Dim i As Integer
 
Set Ftravail = ActiveSheet
Set Maplage = Selection
 
For Each c In Worksheets(Ftravail).Range(Maplage.Adress)

Erreur "'438" Propriété ou méthode non gérée par cet objet

Merci d'avance pour vos éclairages

[BENNASR]

bonjour
tester avec

Code :

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

For Each c In Maplage

au lieu de

Code :

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

For Each c In Worksheets(Ftravail).Range(Maplage.Adress)

[Franc]

Salut, essaie ceci:

Code :

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

For Each c In Worksheets(Ftravail.Name).Range(Maplage.Address)

Au passage, Address prend 2 d

[PaulG2B]

Salut, essaie ceci:

Code :

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

For Each c In Worksheets(Ftravail.Name).Range(Maplage.Address)

Au passage, Address prend 2 d

Oups effectivement faute de frappe, merci. Mais même sans cela ça ne fonctionne pas.

[PaulG2B]

bonjour
tester avec

Code :

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

For Each c In Maplage

au lieu de

Code :

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

For Each c In Worksheets(Ftravail).Range(Maplage.Adress)

Super je te remercie ça boucle nickel.