Discussion :

[Paloma]

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

[cwain]

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

[Paloma]

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

[cwain]

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

[SfJ5Rpw8]

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

I-I. Scinder une chaîne

[Paloma]

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

[SfJ5Rpw8]

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

I-I. Scinder une chaîne