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 :

Cumuler des données dans un tableau [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Juin 2016
    Messages
    306
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Juin 2016
    Messages : 306
    Par défaut Cumuler des données dans un tableau
    Bonjour à tous,

    je bute sur mon agrandissement de tableau. Je souhaite dans ma boucle mettre le premier paquet de 8 éléments dans mon tableau infobulle
    infobulle[0 to 7] vaut chaque élément lu dans la ligne encours du fichier #1 séparé par des ";"
    (puis une fois les labels remplis) redimensionne mon tableau infobulle pour la prochaine boucle
    puis à la prochaine boucle ajoute les 8 autres nouveaux éléments du fichier (sur la ligne en cours) à la suite soit infobulle[8 to 15]
    et ainsi de suite jusqu'à la fin du fichier.

    je me sers du i pour mes labels et en même temps du compteur de boucle (avec donc un décalage de i-100 pour commencer à 0 pour mon tableau)
    -> la 1ere boucle bon ok
    -> la 2nd boucle, il revient sur 4 élèments et ne s'ajoute pas au tableau infobulle, où est mon pb de compréhension svp ?
    je pressents que
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    infobulle() = split(strligne, ";")
    marche pour le 1er coup mais pas apres et je pense que c'est là qu'il faut toucher pour "ajouter la suite" au tableau

    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
     
    Private sub test()
    Dim strLigne As String
    Dim i As Integer
    Dim TStrg() As String
    Dim infobulle() As String
    While Not EOF(1)
     
    Line Input #1, strLigne
    infobulle() = Split(strLigne, ";")
    ReDim Preserve infobulle((i - 100) * 7 + 7)
    TStrg = Split(strLigne, ";") 'permet de mettre dans le tableau la ligne separee par ";"
              Me.Controls("Label" & i).Caption = TStrg(0)
              Me.Controls("Label" & i + 100).Caption = TStrg(1)
              Me.Controls("Label" & i + 200).Caption = TStrg(2)
              Me.Controls("Label" & i + 300).Caption = TStrg(3)
     
    i = i + 1
    ReDim Preserve infobulle((i - 100) * 7 + 7)
    Wend
    close #1
    end sub
    En somme cumuler des données dans un tableau

  2. #2
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Juin 2016
    Messages
    306
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Juin 2016
    Messages : 306
    Par défaut
    Bonjour au forum,

    j'en ai bavé cette nuit mais c'est bon, si je fais ceci ça répond à mon besoin. Cependant y a t-il plus simple ?

    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
     
    private sub test()
    Dim strLigne As String
    Dim i, cpt As Integer
    Dim TStrg() As String
    Dim infobulle() As String
    Dim tab_lu() As String
     
    Open "C:\" & Page & ".txt" For Input As #1
     
    While Not EOF(1)
     
    i = 100
    cpt = 0
    Line Input #1, strLigne
     
    tab_lu() = Split(strLigne, ";")
     
    ReDim Preserve infobulle(cpt + 7)
    For J = 0 To UBound(tab_lu, 1)
    infobulle(J + cpt) = tab_lu(J)
    Next J
     
    TStrg = Split(strLigne, ";") 'permet de mettre dans le tableau la ligne separee par ";"
              Me.Controls("Label" & i).Caption = TStrg(0)
              Me.Controls("Label" & i + 100).Caption = TStrg(1)
              Me.Controls("Label" & i + 200).Caption = TStrg(2)
              Me.Controls("Label" & i + 300).Caption = TStrg(3)
     
    i = i + 1
    cpt = cpt + 8
    Wend
    Close #1
    End Sub
    sinon merci tout de même

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

Discussions similaires

  1. [Conception] Recuperer des données dans un tableau dynamique
    Par Tartanjet dans le forum PHP & Base de données
    Réponses: 1
    Dernier message: 05/09/2006, 00h28
  2. Réponses: 6
    Dernier message: 17/07/2006, 15h07
  3. [MySQL] Formatage des données dans un tableau
    Par dunbar dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 26/06/2006, 08h52
  4. [MySQL] Stocker des données dans un tableau
    Par LadyArwen dans le forum PHP & Base de données
    Réponses: 3
    Dernier message: 02/02/2006, 10h40
  5. Réponses: 3
    Dernier message: 05/12/2005, 02h30

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