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 :

[VBA] Récupération d'un tableau dans une procédure


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 6
    Par défaut [VBA] Récupération d'un tableau dans une procédure
    Bonjour toute le monde,

    Après quelques heures de recherche, je ne parviens pas à comprendre d'où vient mon problème et je me décide à poster.

    Rapide description :
    J'ai une colonne Excel contenant des données en doublon. Je souhaite supprimer les doublons et enregistrer la liste résultante dans un tableau. Je veux pouvoir exploiter ce tableau dans une procédure.

    J'ai trouver un bout de code sur un forum qui fait ce que je souhaite mais je ne parviens pas à exploiter le tableau dans une autre procédure.

    Voici mon code exhaustif :

    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
     
    Function SuppDoublon(sheetName As String, colNumb As Integer) As Variant()
     
    Dim Tableau()
    Set MonDico = CreateObject("Scripting.Dictionary")
    For Each c In Range(Sheets(sheetName).Cells(2, colNumb), Sheets(sheetName).Cells(65536, colNumb).End(xlUp))
    If Not MonDico.Exists(c.Value) Then 'si la donnée n'existe pas encore dans le dictionnaire
    MonDico.Add c.Value, c.Value 'on l'ajoute dans le dictionnaire...
    ReDim Tableau(1 To MonDico.Count) '...et dans le tableau VBA ;-)
    Tableau(MonDico.Count) = c.Value
    End If
    Debug.Print MonDico.Count, Tableau(MonDico.Count)
    Next c
    SuppDoublon = Tableau
    End Function
     
     
    Sub essai()
    Dim Tabl()
    Tabl = SuppDoublon("Journal", 4)
    derLigne = UBound(Tabl)
    For i = 1 To derLigne
    Debug.Print i & "->" & Tabl(i)
    Next i
    End Sub
    et voici ce que m'affiche ma fenêtre d'Exécution :
    1 BL0001-CDL
    2 BL0002-Sita
    3 BL0003-CDL
    3 BL0003-CDL
    3 BL0003-CDL
    4 BL0004-Sita
    5 BL0005-Ecof
    5 BL0005-Ecof
    6 BL0006-Sita
    7 BL0007-Sita
    8 BL0008-Ecof
    9 BL0009-CDL
    10 BL0010-CDL
    1->
    2->
    3->
    4->
    5->
    6->
    7->
    8->
    9->
    10->BL0010-CDL
    Je ne comprends pas pourquoi mes 9 premières lignes sont "vides" lorsque je récupère le tableau avec ma procédure essai alors qu'elles sont "pleines" dans ma fonction.

    J'imagine que c'est tout bête et je remercie par avance celui qui me l'expliquera.

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Quand tu redimensionnes ton tableau tu ne spécifies pas de garder les données
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ReDim preserve Tableau(1 To MonDico.Count)

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Octobre 2009
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2009
    Messages : 6
    Par défaut Merci ça fonctionne !
    Bonjour @jfontaine et merci beaucoup pour ton expertise car ça fonctionne très bien désormais. Je vois pourquoi tu figures en "Expert Confirmé Sénior"

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

Discussions similaires

  1. Passage d'un tableau dans une procédure
    Par Matmal11 dans le forum Tcl/Tk
    Réponses: 2
    Dernier message: 12/10/2009, 17h04
  2. Déclaration dynamique d'un tableau dans une procédure
    Par lowwa132 dans le forum Débuter
    Réponses: 12
    Dernier message: 25/01/2009, 21h51
  3. Réponses: 11
    Dernier message: 18/08/2008, 16h38
  4. Réponses: 4
    Dernier message: 01/01/2007, 10h26
  5. Passer en paramétre un tableau dans une procédure stockée
    Par killysui dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 26/04/2006, 11h47

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