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

Version imprimable

29/11/2006, 14h25
Paloma

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

Coucou, voici une question qu'elle est bonne. :calim2:

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
29/11/2006, 14h46
cwain
Pour transférer par exemple les lignes sélectionnées de ta listbox, tu peux faire un truc comme ça
Code:

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

Bon j'ai pas mal avancé :)

Code:

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 :

Citation:

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"

:mouarf1: Ya du boulot

Bien à vous.
Paloma

dans l'autre sens :
Code:

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...

29/11/2006, 15h57
SfJ5Rpw8

pour creuser il me semble que tu as déjà l'outil ..:

I-I. Scinder une chaîne

Bon voici le résultat de mes recherches.

Code:

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 !
:yaisse:

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 :P

@ plus

Paloma

:New:New:New:New:New:New:New:New:New:New

Bon voilà j'ai une nouvelle Question.

J'avoue que même avec http://silkyroad.developpez.com/VBA/...racteres/#LI-I je ne sais pas comment m'y prendre... :(

Ma feuille Memory me sert un peu à tout.
Sauvegarde des filtres, du chemin de travail "browser" ...

Donc j'aimerais faire ça sans rien Cassé.

Comment puis-je facilement modifier mon code pour scinder ma chaîne de caractère et les placer au bon endroit de mon tableau ?
Comment faire le chemin inverse?

Sauvegarde des filtres dans "Memory" :

Code:

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
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
 
            With Worksheets("Memory").Cells.ClearContents
            End With
 
            ' Initialisation des entêtes de colonnes - les manipulations de données se faisant à partir de la ligne 2 ---
                Dim wksDest As Worksheet
                Set wksDest = Worksheets("Memory")
 
                wksDest.Cells(1, 1) = "Filter (In Values)"
                wksDest.Cells(1, 2) = "Separator"
                wksDest.Cells(1, 3) = "Filter (OUT Values)"
                wksDest.Cells(1, 4) = "Reference Work Path"
                wksDest.Cells(2, 4) = TxtJobDirectory
 
            '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

Récupération des Filtres dans ma liste box à partir de "Memory" :

Code:

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
Private Sub ButRestore_Click()
            Dim Ligne As String
            Dim LigneExcel As Integer
            Dim compt As Integer
            ListBoxFilters.Clear
 
            '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
                    ButGenerate.Visible = True
                    MsgBox " All entries has updated", vbInformation, "Congratulation!"
                End If
 
            Exit Sub
            Else
            ListBoxFilters.AddItem (Ligne)
            GoTo suite
            End If
 
End Sub

Merci pour le coup de main :)
Bien à vous.
Paloma

Puis-je?

Est-il possible de créer un tableau à une dimention en récupérant ligne par ligne le contenu de la listBox et en la scindant :

Code:

1
2
3
4
5
Dim tabValue(3) As string
 
tabValue(1) = 'M571
tabValue(2) = ' ;
tabValue(3) = 'L456

et faire

Code:

1
2
3
4
5
6
7
With ActiveWorkbook.Worksheets("Memory")
              .Cells(2, 1) = tabValue(1),
              .Cells(2, 2) = tabValue(2),
              .Cells(2, 3) = tabValue(3)
              LigneExcel = LigneExcel + 1
            End With
..

Un truc du genre ...

Cordialement,
Paloma

30/11/2006, 10h35
SfJ5Rpw8

Citation:

Envoyé par bbil

pour creuser il me semble que tu as déjà l'outil ..:

I-I. Scinder une chaîne

Nan c'est po ce que je veux dire ...

Merci bbil mais regarde :

Citation:

Paloma a écrit:

J'avoue que même avec http://silkyroad.developpez.com/VBA/...racteres/#LI-I je ne sais pas comment m'y prendre...
ce qui veut dire qu'il à déjà fait le tour et comme dans son code il récupère déjà :

Code:

1
2
3
4
5
6
'Extraction de la chaine de caractère jusqu'au ";" ---------------------------------------------------
 
            Dim strOldChar As String
            Dim intPosition As Integer
            intPosition = InStr(1, strValue, ";") - 1
            strOldChar = Left(strValue, intPosition)

pour le separateur ";" ben il suffit de l'ajouter tout simplement à cahque ligne dans Excel,

et enfin

Code:

1
2
3
4
5
6
7
 
    'Extraction après le ";" ----------------------------------------------------------
 
            Dim strNewCharChar As String
            'Dim intPosition As Integer
            intPosition = InStr(1, strValue, ";")+1
            strNewCharChar = Mid(strValue, intPosition)

Non, ce qui me gène c'est comment adapter :

Code:

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
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
 
            With Worksheets("Memory").Cells.ClearContents
            End With
 
            ' Initialisation des entêtes de colonnes - les manipulations de données se faisant à partir de la ligne 2 ---
                Dim wksDest As Worksheet
                Set wksDest = Worksheets("Memory")
 
                wksDest.Cells(1, 1) = "Filter (In Values)"
                wksDest.Cells(1, 2) = "Separator"
                wksDest.Cells(1, 3) = "Filter (OUT Values)"
                wksDest.Cells(1, 4) = "Reference Work Path"
                wksDest.Cells(2, 4) = TxtJobDirectory
 
            '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

avec ce que j'ai plus haut ?:aie:

j'ai un peu de mal avec les tableaux, enfin c'est pas pour les déclarer mais plutôt savoir si j'ai le droit de faire ça ou ça ...
:arf:

Cordialement,
Paloma

30/11/2006, 11h30
SfJ5Rpw8
bon j'ai pas relu ton code ( il y en as trop :aie: ) .. .

mon lien ne "pointé' t'il pas sur la fonction split ( en tout cas sur firefox.. oui ..)

voila essai de comprendre celui-la:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub TstPaloma() Dim st As String Dim tb Dim i As Integer st = "123;456;789;0" tb = Split(st, ";") For i = 0 To UBound(tb) Debug.Print tb(i) Next End Sub

Merci bbil

Ok merci beaucoup ;-)

je crois avoir compris mais j'ai un message d'erreur :

Code:

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 ButSaveList_Click()
            Dim Ligne As String
            Dim LigneExcel As Integer
            Dim compt As Integer
 
            'Récupération des informations à palcer --------------------------------------
            Dim st As String
            Dim tb
            Dim i As Integer
 
            'activer la feuille "Memory" initialisé à la ligne 2 -------------------------
            'Sheets("Memory").Activate
            LigneExcel = 2
 
            With Worksheets("Memory").Cells.ClearContents
            End With
 
            ' Initialisation des entêtes de colonnes - les manipulations de données se faisant à partir de la ligne 2 ---
                Dim wksDest As Worksheet
                Set wksDest = Worksheets("Memory")
 
                wksDest.Cells(1, 1) = "Filter (In Values)"
                wksDest.Cells(1, 2) = "Separator"
                wksDest.Cells(1, 3) = "Filter (OUT Values)"
                wksDest.Cells(1, 4) = "Reference Work Path"
                wksDest.Cells(2, 4) = TxtJobDirectory
 
            'Inscrire le contenu d'une listbox dans la feuille "Memory" d'un classeur EXCEL
 
            For compt = 0 To ListBoxFilters.ListCount - 1
 
             st = ListBoxFilters.List(compt)
             tb = Split(st, ";")
             'For i = 0 To UBound(tb)
               Debug.Print tb(i)
             'Next i
 
            ' Affecter les données de la listbox dans les cellules de la feuille
            With ActiveWorkbook.Worksheets("Memory")
              '.Cells(LigneExcel, 1) = ListBoxFilters.List(compt)
              .Cells(LigneExcel, 1) = tb(1)
 
            With ActiveWorkbook.Worksheets("Memory").Cells(LigneExcel, 2) = ";"
            With ActiveWorkbook.Worksheets("Memory")
              '.Cells(LigneExcel, 1) = ListBoxFilters.List(compt)
              .Cells(LigneExcel, 3) = tb(2)
              LigneExcel = LigneExcel + 1
            End With
 
            Next compt
 
            MsgBox "Your filters list has saved.", vbInformation + vbOKOnly, "Liste saved"
            'Unload Me
            'End With
 
End Sub

il me retourne comme message à la compilation :
Next sans For

Que se passe-t-il?

Paloma

30/11/2006, 12h04
Jipété

Yop !

On dirait qu'il manque 2

Code:

End With

--
Jean-Pierre
30/11/2006, 12h13
Paloma

Pffiiii

Exact Jipété, je fatigue.

Je suis allez voir Florence FORESTI hier soir et avec les cours du soir au CNAM en général le jeudi je suis pas mal fatigué ;-)

Merci
Paloma
30/11/2006, 12h20
Jipété

Citation:

Florence FORESTI

C'est qui, ça ?

Pense au "Résolu"
--
Jean-Pierre
30/11/2006, 12h30
Paloma

Ben alors, faut allez la voir ....

http://www.florenceforesti.com/

@ plus
30/11/2006, 12h58
Jipété

Vu, merci, par contre, ça,

Citation:

Pense au "Résolu"

tu l'as zappé... :roll:
--
Jean-Pierre

Non je ne l'ai pas zappé :-)

En fait je suis toujours plus ou moins au même point.

voilà ce que j'ai mais je n'arrive pas a finir le code pour placer correctement les valeurs :(

Code:

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
Private Sub ButSaveList_Click()
            Dim Ligne As String
            Dim LigneExcel As Integer
            Dim compt As Integer
 
            'Récupération dans un tableau les informations à placer --------------------------------------
            Dim st As String
            Dim tb(1) As String
            Dim i As Integer
 
            'activer la feuille "Memory" initialisé à la ligne 2 -------------------------
            'Sheets("Memory").Activate
            LigneExcel = 2
 
            With Worksheets("Memory").Cells.ClearContents
            End With
 
            ' Initialisation des entêtes de colonnes - les manipulations de données se faisant à partir de la ligne 2 ---
                Dim wksDest As Worksheet
                Set wksDest = Worksheets("Memory")
 
                wksDest.Cells(1, 1) = "Filter (In Values)"
                wksDest.Cells(1, 2) = "Separator"
                wksDest.Cells(1, 3) = "Filter (OUT Values)"
                wksDest.Cells(1, 4) = "Reference Work Path"
                wksDest.Cells(2, 4) = TxtJobDirectory
 
            'Inscrire le contenu d'une listbox dans la feuille "Memory" d'un classeur EXCEL
 
            For compt = 0 To ListBoxFilters.ListCount - 1
 
             st = ListBoxFilters.List(compt)
             tb(i) = CStr(Split(st, ";"))
             For i = 0 To UBound(tb)
               Debug.Print tb(i)
             Next i
 
            ' Affecter les données de la listbox dans les cellules de la feuille
            With ActiveWorkbook.Worksheets("Memory")
              '.Cells(LigneExcel, 1) = ListBoxFilters.List(compt)
              .Cells(LigneExcel, 1) = tb(0)
            End With
            With ActiveWorkbook.Worksheets("Memory").Cells(LigneExcel, 2) = ";"
            End With
            With ActiveWorkbook.Worksheets("Memory")
              '.Cells(LigneExcel, 1) = ListBoxFilters.List(compt)
              .Cells(LigneExcel, 3) = tb(1)
              LigneExcel = LigneExcel + 1
            End With
 
            Next compt
 
            MsgBox "Your filters list has saved.", vbInformation + vbOKOnly, "Liste saved"
            'Unload Me
            'End With
 
End Sub

je sais que ça ne peut pas fonctionner comme ça mais je cherche ...

sinon, je reposerais une question car le problème n'est toujours pas résolu, enfin pour moi ...

:triste:

30/11/2006, 14h04
SfJ5Rpw8
j'ai pas tous relu ... mais tu as vu quelquechose comme cela dans mon code ...? :aie:
Code:

1 2 tb(i) = CStr(Split(st, ";"))

[Résolu]

Bon super merci à vous tous.

Je ne sais pas si je suis arrivé là ou bbil voulait m'amener mais j'ai fini avec une solution qui me semble maintenant simple.

Pour information :

Dans un sens ListBox --------------------> Excel Sheets

Code:

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
Private Sub ButSaveList_Click()
            Dim Ligne As String
            Dim LigneExcel As Integer
            Dim compt As Integer
 
            'Récupération dans un tableau les informations à placer --------------------------------------
            Dim st As String
            Dim tb(1)
            Dim intPosition As Integer
 
 
        'activer la feuille "Memory" initialisé à la ligne 2 -------------------------
            'Sheets("Memory").Activate
            LigneExcel = 2
 
            With Worksheets("Memory").Cells.ClearContents
            End With
 
            ' Initialisation des entêtes de colonnes - les manipulations de données se faisant à partir de la ligne 2 ---
                Dim wksDest As Worksheet
                Set wksDest = Worksheets("Memory")
 
                wksDest.Cells(1, 1) = "Filter (In Values)"
                wksDest.Cells(1, 2) = "Separator"
                wksDest.Cells(1, 3) = "Filter (OUT Values)"
                wksDest.Cells(1, 4) = "Reference Work Path"
                wksDest.Cells(2, 4) = TxtJobDirectory
 
        'Récupération des infos de la liste box dans un tableau !
 
            For compt = 0 To ListBoxFilters.ListCount - 1
 
            intPosition = InStr(1, ListBoxFilters.List(compt), ";") - 1
            tb(0) = Left(ListBoxFilters.List(compt), intPosition)
            intPosition = InStr(1, ListBoxFilters.List(compt), ";") + 1
            tb(1) = Mid(ListBoxFilters.List(compt), intPosition)
 
            'Inscrire le contenu d'une listbox dans la feuille "Memory" d'un classeur EXCEL *********
 
            ' Affecter les données de la listbox dans les cellules de la feuille
            With ActiveWorkbook.Worksheets("Memory")
              .Cells(LigneExcel, 1) = tb(0)
            End With
 
            With ActiveWorkbook.Worksheets("Memory")
              .Cells(LigneExcel, 3) = tb(1)
              LigneExcel = LigneExcel + 1
            End With
 
            Next compt
 
            MsgBox "Your filters list has saved.", vbInformation + vbOKOnly, "Liste saved"
 
End Sub

et dans l'autre : Excel Sheets --------------------> ListBox

Code:

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
Private Sub ButRestore_Click()
            Dim Ligne As String
            Dim LigneExcel As Integer
            Dim compt As Integer
            ListBoxFilters.Clear
 
            '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) & ";" & Sheets("Memory").Cells(LigneExcel, 3)
 
            If Ligne = ";" Then
                If LigneExcel = 2 And Ligne = "" Then
                    MsgBox " Not Data saved ", vbCritical, "Caution"
                Else
                    ButGenerate.Visible = True
                    MsgBox " All entries has updated", vbInformation, "Congratulation!"
                End If
 
            Exit Sub
            Else
            ListBoxFilters.AddItem (Ligne)
            GoTo suite
            End If
 
End Sub

Merci et à bientôt pour de nouvelles aventures ....

:merci:

Cordialement,
Paloma