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 :

Probleme d appel tableau vba


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Collégien
    Inscrit en
    Février 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Collégien

    Informations forums :
    Inscription : Février 2013
    Messages : 2
    Par défaut Probleme d appel tableau vba
    Bonsoir
    En vba excel 2013, j’ai 4 tableaux dénommés
    tableau1(5,6)
    tableau2 (5.6)
    tableau3(5,6)
    tableau4 (5.6)

    Dans mon programme c’est le code qui détermine quel tableau utiliser. Ils ne diffèrent que par l’indice 1.2.3 ou 4
    Comment faire pour appeler le bon tableau

    Merci pour votre aide

  2. #2
    Invité
    Invité(e)
    Par défaut
    Citation Envoyé par tamazir Voir le message
    Bonjour,

    Si votre code vous donne l'indice dans une variable, avec un code comme celui-là par exemple :

    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
     
    Sub QuelTableauUtiliser(ByVal IndiceTableau As Integer)
     
    Dim I As Long
     
    Select Case IndiceTableau
               Case 1
                     For I = LBound(tableau1, 1) To UBound(tableau1, 1)
                     '.....
                     Next I
               Case 2
                     For I = LBound(tableau2, 1) To UBound(tableau2, 1)
                     '.....
                     Next I
               Case 3
                     'etc
               Case 4
                    ' etc
        End Select
    End Sub
    Et pour son utilisation :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Sub Essai()
     
    Dim MonIndice As Integer
     
        MonIndice = 1
        QuelTableauUtiliser MonIndice
     
    End Sub

  3. #3
    Candidat au Club
    Homme Profil pro
    Collégien
    Inscrit en
    Février 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Collégien

    Informations forums :
    Inscription : Février 2013
    Messages : 2
    Par défaut
    bonjour
    super, merci beaucoup , c' est exactement ce qu' il me fallait.
    bonne journée à vous

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

Discussions similaires

  1. Réponses: 8
    Dernier message: 14/11/2005, 11h27
  2. probleme d'appel de fonction!
    Par transistor49 dans le forum C++
    Réponses: 5
    Dernier message: 11/03/2005, 10h46
  3. Probleme affichage dans tableau selon requête
    Par moulette85 dans le forum Langage SQL
    Réponses: 11
    Dernier message: 01/03/2005, 15h44
  4. Réponses: 8
    Dernier message: 13/08/2004, 12h32
  5. [Reflection] Probleme d'appel newInstance()
    Par SEMPERE Benjamin dans le forum API standards et tierces
    Réponses: 2
    Dernier message: 17/06/2004, 13h15

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