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 :

[Excel] Basuler les informations d'une listBox vers une feuille Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé Avatar de Paloma
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    228
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 228
    Par défaut [Excel] Basuler les informations d'une listBox vers une feuille Excel
    Coucou, voici une question qu'elle est bonne.

    J'ai dans un form, une liste box qui contient du texte.
    exemple :
    M571;L405
    M666;R888
    865;586
    512000;480000

    J'aimerais proposer à l'utilisateur de sauvegarder en mémoire cette liste.
    En fait, tout ce qui est dans cette liste est copié dans une feuille "Memory" de ce même classeur.

    Est-ce possible?

    Eventuellement de restaurer ces infos dans la listeBox

    Au mieux les digits avant le « ; » dans la colonne A, le « ; » dans la colonne B et les digits après le « ; » dans la colonne C.

    Cordialement,
    Paloma

  2. #2
    Membre éprouvé Avatar de cwain
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    218
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 218
    Par défaut
    Pour transférer par exemple les lignes sélectionnées de ta listbox, tu peux faire un truc comme ça
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    For i = 0 To UserForm1.ListBox1.ListCount - 1
        If UserForm1.ListBox1.Selected(i) = True Then
            Worksheets("memory").Cells(i + 1, 1).Value = UserForm1.ListBox1.List
        End If
    Next
    En gros tel que c'est là ça te recopie les valeurs sélectionnées à la ligne correspondante sur la feuille memory
    Mais bon ptêt je répond à côté de la plaque

  3. #3
    Membre confirmé Avatar de Paloma
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    228
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 228
    Par défaut
    Bon j'ai pas mal avancé

    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
    Private Sub ButSaveList_Click()
                Dim Ligne As String
                Dim LigneExcel As Integer
                Dim compt As Integer
     
                'activer la feuille "Memory" initialisé à la ligne 1
                'Sheets("Memory").Activate
                LigneExcel = 2
     
                'Inscrire le contenu d'une listbox dans la feuille 1 d'un classeur EXCEL
     
                For compt = 0 To ListBoxFilters.ListCount - 1
     
                ' Affecter les données de la listbox dans les cellules de la feuille
                With ActiveWorkbook.Worksheets("Memory")
                  .Cells(LigneExcel, 1) = ListBoxFilters.List(compt)
                  LigneExcel = LigneExcel + 1
                End With
     
                Next compt
     
                MsgBox "Your filters list has saved.", vbInformation + vbOKOnly, "Liste saved"
                'Unload Me
                'End With
     
    End Sub
    Merci pour l'info cwain

    Alors, il me reste à trier les infos :

    Au mieux les digits avant le « ; » dans la colonne A, le « ; » dans la colonne B et les digits après le « ; » dans la colonne C.
    Bon, il faut que je creuse.

    Puis ben il faut que je fasse le chemin inverse avec un bouton "récupération"

    Ya du boulot

    Bien à vous.
    Paloma

  4. #4
    Membre éprouvé Avatar de cwain
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    218
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 218
    Par défaut
    dans l'autre sens :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Form_Load()
    For i = 1 To 5
        UserForm1.ListBox1.AddItem Worksheets("memory").Cells(i , 1).Value
    Next
    End Sub
    voilà en gros
    Pour le multicolonne je connais pas trop...

  5. #5
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    pour creuser il me semble que tu as déjà l'outil ..:

    I-I. Scinder une chaîne

  6. #6
    Membre confirmé Avatar de Paloma
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    228
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 228
    Par défaut
    Bon voici le résultat de mes recherches.

    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
    Private Sub ButRestore_Click()
                Dim Ligne As String
                Dim LigneExcel As Integer
                Dim compt As Integer
     
                'activer la feuille "Memory" à la ligne 1 -----------------------------------
                Sheets("Memory").Activate
                LigneExcel = 1
     
                'Inscrire le contenu d'une feuille Excel dans une listeBox
    suite:
                LigneExcel = LigneExcel + 1
     
                Ligne = Sheets("Memory").Cells(LigneExcel, 1)
     
                If Ligne = "" Then
                    If LigneExcel = 2 And Ligne = "" Then
                        MsgBox " Not Data saved ", vbCritical, "Caution"
                    Else
                        MsgBox " All entries has updated", vbInformation, "Congratulation!"
                    End If
     
                Exit Sub
                Else
                ListBoxFilters.AddItem (Ligne)
                GoTo suite
                End If
     
    End Sub
     
    Private Sub ButSaveList_Click()
                Dim Ligne As String
                Dim LigneExcel As Integer
                Dim compt As Integer
     
                'activer la feuille "Memory" initialisé à la ligne 2 -------------------------
                'Sheets("Memory").Activate
                LigneExcel = 2
     
                'Inscrire le contenu d'une listbox dans la feuille "Memory" d'un classeur EXCEL
     
                For compt = 0 To ListBoxFilters.ListCount - 1
     
                ' Affecter les données de la listbox dans les cellules de la feuille
                With ActiveWorkbook.Worksheets("Memory")
                  .Cells(LigneExcel, 1) = ListBoxFilters.List(compt)
                  LigneExcel = LigneExcel + 1
                End With
     
                Next compt
     
                MsgBox "Your filters list has saved.", vbInformation + vbOKOnly, "Liste saved"
                'Unload Me
                'End With
     
    End Sub
    Tout fonctionne !


    Merci bbil je pensais bien revenir ici http://silkyroad.developpez.com/VBA/...racteres/#LI-I

    Je regarde ça, je modifie et je poste si tout va bien

    @ plus

    Paloma

  7. #7
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Citation Envoyé par bbil
    pour creuser il me semble que tu as déjà l'outil ..:

    I-I. Scinder une chaîne

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 19/10/2011, 12h13
  2. Export d'une listbox vers un fichier Excel.
    Par skunkies dans le forum Windows Forms
    Réponses: 1
    Dernier message: 25/11/2008, 12h47
  3. Copier les enregistrements d'une table vers une table d'une autre DB
    Par karinette21 dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 18/11/2008, 21h50
  4. Réponses: 16
    Dernier message: 20/03/2006, 23h21
  5. [VB.NET] Copie d'une table d'une DB vers une autre
    Par SergeF dans le forum Windows Forms
    Réponses: 9
    Dernier message: 20/11/2004, 09h54

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