Erreur 9 Bloquante...
Résolu
Le Boulé
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai une erreur 9 "L'indice n'appartient pas à la sélection, et j'ai beau essayer plein de chose je bloque...
Voici le code:
L'erreur ce produit sur la ligneSheets("General")...
Si vous avez une petite idée car la je suis face à un mur.
Je vous remercie Cdl
J'ai une erreur 9 "L'indice n'appartient pas à la sélection, et j'ai beau essayer plein de chose je bloque...
Voici le code:
For I = 1 To TailleTable
'Test Ligne utilisé ou pas
If Sheets("General").Range("B" & I).Value = "" Or ActiveSheet.Range("B" & I).Value = "0" Then
Sheets("generale").Range("A" & LigneCopie).Select.Copy
Sheets("Impresion2").Range("A" & LigneCopie).Paste
LigneCopie = LineCopie + 1
End If
Next I
L'erreur ce produit sur la ligneSheets("General")...
Si vous avez une petite idée car la je suis face à un mur.
Je vous remercie Cdl
5 réponses
-
Bonjour,
Le diagnostic est très simple, c'est que ton indice dépasse ta table.
Regardes probablement comment tu défini 'TailleTable'. -
Bonjour
Sheets("General").
puis
Sheets("generale").
Michel -
Effectivement c'est une erreur de syntaxe...
par contre je suis passer en erreur 424 "Objet requis" -
Bonjour à tous
Il faudrait que tu nous dises sur quelle ligne se produit l'erreur
Peut être comme ceci (tout sur la même ligne de codeSheets("generale").Range("A" & LigneCopie).Copy Sheets("Impresion2").Range("A" & LigneCopie)
Cdlmnt -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
J'ai utilisé le code suivant qui fonctionne très bien:
Sheets("General").Range("A" & I).Copy _
Destination:=Worksheets("Impression2").Range("A" & LigneCopie)
