IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Erreur d'exécution '9' sur un tableau. [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2015
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2015
    Messages : 9
    Par défaut Erreur d'exécution '9' sur un tableau.
    Bonjour,

    J'ai 2 colonnes de données et je dois récupérer les données de la seconde en fonction de ce qui se trouve dans la première. Toutes les données sont du texte.
    J'ai donc écris ce code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
     
    Dim mot_cle As String, tableau_mot_cle() As String, tableau_transaction_brut() As String
     
    Dim i As Integer
    Dim ligne As Long
     
     
     
    mot_cle = InputBox(Prompt:="Mots clés", Title:="titre")
    tableau_mot_cle = Split(mot_cle, " ")
    nb_mot_cle = UBound(tableau_mot_cle)
    i = 0
    ligne = 1
     
    While (Cells(ligne, 1) <> "" And nb_mot_cle <> 0)   'a modifier
        If Cells(ligne, 1) = tableau_mot_cle(nb_mot_cle) Then
            MsgBox Cells(ligne, 2)
            tableau_transaction_brut(i) = Cells(ligne, 2)
            i = i + 1
            nb_mot_cle = nb_mot_cle - 1
            ligne = 0
        End If
        ligne = ligne + 1
    Wend
    Cette ligne pose probleme:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
             tableau_transaction_brut(i) = Cells(ligne, 2)
    Elle me renvoie "Erreur d'exécution '9': L'indice n'appartient pas à la sélection". J'ai testé en mettant le tableau en Variant ou en mettant une valeur fixe à la place de i: rien n'y fait.
    L'affichage avec MsgBox juste avant renvoi la bonne valeur.

    Merci pour votre aide!

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    redim preserve  tableau_transaction_brut(i)
     tableau_transaction_brut(i) = Cells(ligne, 2)
            i = i + 1

  3. #3
    Membre habitué
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2015
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2015
    Messages : 9
    Par défaut
    Ça marche! Merci! Est ce que je pourrais avoir une petit explication si possible?

  4. #4
    Invité
    Invité(e)
    Par défaut
    Tu déclares un tableau sans le dimensionner
    tableau_transaction_brut() As String.

    Donc dans ton code il faut le redimensionner dynamiquement avec l'instruction redim!

    Preserve indique qu'il faut garder les valeurs déjà saisies.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2000] Erreur d'exécution uniquement sur clic
    Par Nerva dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/11/2010, 12h59
  2. Erreur d'exécution '2455' sur access 2007
    Par sarmad354 dans le forum VBA Access
    Réponses: 2
    Dernier message: 25/06/2010, 19h41
  3. [XL-2002] Erreur d'exécution 1004 sur la méthode Autofill
    Par PantRéTroclit' dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 18/03/2010, 14h21
  4. VBA Erreur d'exécution '459' sur un userform
    Par micom59 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 28/02/2009, 20h12
  5. erreur d'exécution '48' sur windows 98 SE
    Par florenzo28 dans le forum Windows 2000/Me/98/95
    Réponses: 1
    Dernier message: 18/02/2006, 22h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo