L'indice n'appartient pas à la sélection
Bonjour à tous et à toutes,
Je reviens encore une fois vers vous afin de vous demander votre aide pour une macro.
le code ci dessous me permet de coller des colonnes à la fin d'un tableau, sauf que je ne comprends pas pourquoi lorsque j'essaye de le faire tourner Excel m'indique que l'indice n'appartient pas à la sélection en indiquant la ligne : f.Range(colf(col) & "2:" & colf(col) & derln).Copy ft.Range(colt(col) & lgn)
Le code est celui qui suit:
Option Explicit
Dim f As Worksheet, ft As Worksheet
Dim col&, colt, colf, derln&, lgn&
Sub Reporter()
Set f = Sheets("Fichier arrété au 29102019") '
Set ft = Sheets("Tabelle1")
If f.Range("K1") = "Reporté" Then
colt = Array("B", "D", "E", "F", "G", "H", "I", "J", "K", "AJ", "K")
colf = Array("G", "B", "C", "F", "D", "E", "J", "H", "I", "A", "S")
derln = f.Range("A" & Rows.Count).End(xlUp).Row
lgn = ft.Range("A" & Rows.Count).End(xlUp)(2).Row
End If
For col = 0 To 11
f.Range(colf(col) & "2:" & colf(col) & derln).Copy ft.Range(colt(col) & lgn)
Next col
f.Range("K1") = "Reporté"
End Sub
Je vous remercie infiniment.
Bonjour amayas,
c'est bien d'avoir indiqué quelle est l'erreur qui se produit ; mais sur quelle ligne de code VBA ?
Set f = Sheets("Fichier arrété au 29102019") ' ici : apostrophe inutile au bout ;
n'est-ce pas plutôt : "Fichier arrêté au 29102019" ?
dans le code VBA, ta 2ème feuille s'appelle "Tabelle1" ; mais l'onglet de ta feuille est peut-être "Tabele1" ?
comme ta boucle col va de 0 à 11, tu peux mettre Dim col As Byte au lieu de Dim col&
dhany
Salut Amayas,
je lis :
If f.Range("K1") = "Reporté" Thendonc, si Range("K1") <> "Reporté", les Array ne sont pas initialisés => erreur !
A tester sur un vrai fichier, évidemment!
A+
salut curulis,
bien vu !
dhany
Merci à vous deux pour votre aide , en fin de compte ce n'était qu'une question de déclaration de la variable.
merci pour ton retour d'info, et pour avoir passé le sujet en résolu !
bonne continuation !
dhany