syntaxe pour une range assez complexe ( enfin pour moi quoi)

bonjour à tous, je me heurte à un souci de syntaxe je pense à propos de l'écriture d'une range.

voila mon but est de vérifier une condition, et à partir de la , faire une copie d'une plage dans un autre classeur, à un autre emplacement, voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For y = 4 To 256   If Workbooks("Panneau de controle.xls").Sheets("Panneau de contrôle").Cells(2, y).Value = Year Then   'Copie des taux horaires de l'annee correspondante Workbooks("Panneau de controle.xls").Sheets("Panneau de contrôle").Range(Workbooks("Panneau de controle.xls").Sheets("Panneau de contrôle").Cells(3, y), Workbooks("Panneau de controle.xls").Sheets("Panneau de contrôle").Cells(DerniereLigne - 2, y)).Copy Workbooks("Txt2").Worksheets("feuil1").Range("D4") charge = y   End If   Next

---

j'ai malheuresement une erreur indice n'appartient pas à la solution ..

qu'est-ce qui cloche dans ma formule?

merci par avance

Bonjour,

Code:

---

Cells(DerniereLigne - 2, y)

---

Es tu sur que DerniereLigne est toujours supérieur à 3 ?

absolument il est compris en 16 et 21 , donc forcément suppérieur à 2

Il manque un accent circonflexe sur un des "contrôles"

Cette erreur provient si tu est hors champ dans la feuille, ou si un nom de feuille ou de classeur n'existe pas.

As tu vérifié tout cela?

Mais déjà, ce serait plus lisible comme ça

Code:

---

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

With Workbooks("Panneau de controle.xls").Sheets("Panneau de contrôle") For y = 4 To 256   If .Cells(2, y).Value = Year Then   'Copie des taux horaires de l'annee correspondante .Range(.Cells(3, y), .Cells(DerniereLigne - 2, y)).Copy Workbooks("Txt2").Worksheets("feuil1").Range("D4") charge = y   End If   Next End With

---

effectivement c'est bien plus lisible comme sa , etant débutant, je ne connais pas toutes les combines, j'applique desuite et vous tiens au courant des erreurs qui sortent.

Merci

merci probleme resolu, grace au with j'ai pu simplifier le code et voir l'erreur, merci a tous.