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

VBA Discussion :

[VBA Excel 2003 variables tableaux] - Runtime error 9 Subscript out of range


Sujet :

VBA

  1. #1
    Membre régulier
    Profil pro
    Étudiant
    Inscrit en
    Avril 2006
    Messages
    110
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : Belgique

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2006
    Messages : 110
    Points : 91
    Points
    91
    Par défaut [VBA Excel 2003 variables tableaux] - Runtime error 9 Subscript out of range
    Bonjour,

    j'ai commencé à lire l'article de silkyroad (http://silkyroad.developpez.com/vba/tableaux/) à propos des tableaux en vba et tout en le parcourant je fais mes petites expérimentations ... donc je tentais de créer un tableau à 2 dimensions et j'affecte des valeurs tout bêtement et j'obtiens le message d'error 9 Subscript out of range.

    L'erreur ce trouve être le "For", pourriez vous m'aider ? de plus le débugger n'aime pas trop.

    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
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    Sub Multi()
        Dim i As Integer, j As Integer
        Dim tabl(0 To 5, 0 To 2) 
    
        i = 0
        j = 0
    
        tabl(i, j) = "call1"
        i = i + 1
        tabl(i, j) = "call2"
        i = i + 1
        tabl(i, j) = "Call3"
        i = i + 1
        tabl(i, j) = "Call4"
        i = i + 1
        tabl(i, j) = "Call5"
        i = i + 1
        tabl(i, j) = "Call6"
        
        j = j + 1
        i = 0
        
        Randomize
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        Randomize
        i = i + 1
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        Randomize
        i = i + 1
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        Randomize
        i = i + 1
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        Randomize
        i = i + 1
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        Randomize
        i = i + 1
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        
        j = j + 1
        i = 0
        
        Randomize
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        Randomize
        i = i + 1
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        Randomize
        i = i + 1
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        Randomize
        i = i + 1
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        Randomize
        i = i + 1
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        Randomize
        i = i + 1
        tabl(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
        
        For i = 0 To UBound(tabl, 5)
            For j = 0 To UBound(tabl, 2)
                MsgBox tabl(i, j)
            Next j
        Next i
    
    End Sub


    Merci d'avance

  2. #2
    Membre régulier
    Profil pro
    Étudiant
    Inscrit en
    Avril 2006
    Messages
    110
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : Belgique

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2006
    Messages : 110
    Points : 91
    Points
    91
    Par défaut résolution
    J'ai finalement trouvé mon erreur, en fait que j'ai suivi le tutorial de silkyroad pour la partie boucle for avec l'option UBount et je ne sais pas pourquoi dans mon excel 2003 EN, cela ne fonctionnait pas donc je l'ai modifié :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    For i = 0 To 5
            For j = 0 To 2
                MsgBox tabl(i, j)
            Next j
        Next i
    A présent, ça fonctionne.

  3. #3
    Expert éminent
    Avatar de Didier Gonard
    Homme Profil pro
    Formateur Office et développeur VBA en freelance
    Inscrit en
    Février 2008
    Messages
    2 805
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Formateur Office et développeur VBA en freelance

    Informations forums :
    Inscription : Février 2008
    Messages : 2 805
    Points : 6 693
    Points
    6 693
    Par défaut
    Bonjour,

    Non tu n'as pas solutionné ton problème, tu l'as détourné, ce qui est un pis allé car il reviendra de façon plus importante dans l'avenir.

    Étudie le syntaxe de la fonction Ubound, notamment au niveau du paramètres des dimensions

    cordialement,

    Didier
    Didier Gonard

    Dernier tutoriel :
    Le VBA qu'est ce que c'est ?
    Tutoriels : Voir la liste de mes tutoriels Excel & VBA et mon site pro sur ma Page DVP
    Cours et tutoriels pour apprendre Excel
    N'oubliez pas de mettre : ..quand c'est le cas !

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

Discussions similaires

  1. [XL-2013] Run-time error '9': Subscript out of range
    Par francoisem dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 16/12/2014, 10h06
  2. [XL-2007] Error 9 : subscript out of range
    Par Me.Leti dans le forum Excel
    Réponses: 5
    Dernier message: 28/08/2012, 11h06
  3. [debutant] Run-time error '9': Subscript out of range
    Par NikoBe dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 16/12/2008, 09h26
  4. Réponses: 1
    Dernier message: 23/04/2008, 11h37
  5. [VBA excel] une variable pour 2 classeurs
    Par totoche dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 05/01/2006, 10h42

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