Erreur 9 Bloquante... Résolu

Question

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:
  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
Configuration: Windows / Firefox 51.0

gbinforme · Answer

Bonjour,
Le diagnostic est très simple, c'est que ton indice dépasse ta table.
Regardes probablement comment tu défini 'TailleTable'.

michel_m · Answer

Bonjour 
Sheets("General").
puis 
Sheets("generale").
 Michel

Le Boul&eacute; · Answer

Effectivement c'est une erreur de syntaxe...
par contre je suis passer en erreur 424 "Objet requis"

ccm81 · Answer

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 code
Sheets("generale").Range("A" & LigneCopie).Copy             Sheets("Impresion2").Range("A" & LigneCopie)
Cdlmnt

Le Boul&eacute; · Answer

J'ai utilisé le code suivant qui fonctionne très bien: 
Sheets("General").Range("A" & I).Copy _            Destination:=Worksheets("Impression2").Range("A" & LigneCopie)

Erreur 9 Bloquante...

5 réponses

Votre réponse

Discussions similaires