syntaxe pour une range assez complexe ( enfin pour moi quoi) [Résolu]

[kyros21]

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

[jfontaine]

Bonjour,

Code :

Cells(DerniereLigne - 2, y)

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

[kyros21]

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

[ZebreLoup]

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

[jfontaine]

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?

[ZebreLoup]

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

[kyros21]

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

[kyros21]

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