Sujet Précédent Sujet Suivant

Erreur 9 Bloquante...

Résolu/Fermé
Le Boulé - 17 mars 2017 à 08:49
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 17 mars 2017 à 12:22
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


5 réponses

Réponse 1 / 5
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
17 mars 2017 à 09:14
Bonjour,

Le diagnostic est très simple, c'est que ton indice dépasse ta table.

Regardes probablement comment tu défini 'TailleTable'.
0
Réponse 2 / 5
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 17/03/2017 à 09:18
Bonjour

Sheets("General").

puis
Sheets("generale").
 Michel
0
Réponse 3 / 5
Le Boulé
17 mars 2017 à 09:43
Effectivement c'est une erreur de syntaxe...
par contre je suis passer en erreur 424 "Objet requis"
0
Réponse 4 / 5
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié par ccm81 le 17/03/2017 à 10:33
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Le Boulé
17 mars 2017 à 11:49
J'ai utilisé le code suivant qui fonctionne très bien: 
Sheets("General").Range("A" & I).Copy _
            Destination:=Worksheets("Impression2").Range("A" & LigneCopie)
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
17 mars 2017 à 12:22
Comme te l'as suggéré gentiment CCM81

Il faudrait que tu nous dises sur quelle ligne se produit l'erreur

ou mieux, tout le code
de plus, continue à ne pas dire Merci aux 3 personnes qui essaient de t'aider..;

MERCI
0

Discussions similaires

Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
LH -

59 réponses
Free erreur 38 : impossible d'envoyer des SMS
warnawak -
marcellou -

58 réponses
Problème license ps4 et ps4 principale (NP-34958-9)
2DER -
NATHY -

34 réponses
Erreur de lecture sur iptv smarters
Bogs -
bazfile -

1 réponse