Discussion :

[manueldejong]

Bonjour, tout le monde ! Etant nouveau sur ce forum, je débute en Excel et VBA et je dois réaliser un petit projet perso donc,
je cherche de l'aide pour enregistrer mes données d'une userform avec ceci dedans:
1 combobox 1
1 listbox 1 et 1 listbox2
1 textbox1 et 1 texbox2


mon but c'est d'enregistrer les données rentrées dans l'userform puis les mettre dans une feuille
le nom de cette feuille concernée est "Récap."

- la combobox 1 dans la colonne A en a1 puis a2 ....
- la listbox 1 dans la colonne B en b1 puis b2 ...
- la listbox 2 dans la colonne C en c1 puis c2...
-la textbox 1 dans la colonne D en d1 puis d2...
et enfin la textbox 2 dans la colonne E en e1 puis e2....

Bref:
il faut que chaque fois que j'enregistre, les données viennent dans les colonnes et les cellules respectives mais l'une après les autres.
style: Rows.Count

Merci de votre aide !!!!

[BENNASR]

Bonjour
Est ce que ta listbox1 et ta listbox2 comportent chacune une seule colonne?? pour les mettre chacune dans une seule colonne de la feuille RECAP??
Est il possible alors de les regrouper dans une seule listbox??

[manueldejong]

Bonjour ma listbox1 comporte des données qui ne peuvent pas se mélanger avec la listbox2 car d'un côté nous avons les boissons et de l'autre côté les plats voilà, merci!

[patricktoulon]

Bonjour
c'est du niveau débutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
With Sheets("Récap")
derlig = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(derlig + 1, 1).Resize(1, 5) = Array(ComboBox1, ListBox1.List(ListBox1.ListIndex), ListBox2.List(ListBox2.ListIndex), TextBox1.Value, TextBox2.Value)
End With
End Sub

ca se fera tout seul

[BENNASR]

Bonjour patricktoulon, la forum
oui débutant et autodidacte en VBA et je voie toujours tes super proposition et participation sur ce forum
ton code fonctionne mais n'envoi pas tous les informations dans le cas de choix de plusieurs articles de la listbox 1 et/ou plusieurs articles de la listbox2
Comment faire pour adapter
Aussi j'ai ajouter un point devant cells pour rester dans le cadre de with
Bonne journée

[patricktoulon]

Bonjour BENNARS

ton code fonctionne mais n'envoi pas tous les informations dans le cas de choix de plusieurs articles de la listbox 1 et/ou plusieurs articles de la listbox2

ca qui a été demandé est ce qui suit

mon but c'est d'enregistrer les données rentrées dans l'userform puis les mettre dans une feuille
le nom de cette feuille concernée est "Récap."

- la combobox 1 dans la colonne A en a1 puis a2 ....
- la listbox 1 dans la colonne B en b1 puis b2 ...
- la listbox 2 dans la colonne C en c1 puis c2...
-la textbox 1 dans la colonne D en d1 puis d2...
et enfin la textbox 2 dans la colonne E en e1 puis e2....

[BENNASR]

Bonjour,
Quelque proposition peut être utiles
1/ Je vois que c'est utile de renseigner dans la propriété de ton listbox la "ListStyle" comme f"mliststyleOption" ce ci te permet de cocher les articles commandés
2/ De regrouper les boissons et les plats dans une seule liste car tu trouve dans un difficulté si tu as deux listes avec un seul boisson et 4 plats par exemple!!! ou bien 4 boissons et 2 plats !!! pour éviter ça je recommande une seule liste avec des boutons de choix
Pour envoyer ton userform vers Excel tu peux procéder de la façon suivante :

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
Private Sub CommandButton1_Click()
Dim g As Byte
Dim i As Long
Dim f As Worksheet
Set f = Sheets("Récap")
With f
    For g = 0 To ListBox1.ListCount - 1
       If ListBox1.Selected(g) = True Then
      i = .Range("B" & Rows.Count).End(xlUp).Row + 1
     .Range("B" & i).Value = ListBox1.Column(0, g)
     .Range("A" & i).Value = ComboBox1.Value
     .Range("D" & i).Value = TextBox1.Value
     .Range("E" & i).Value = TextBox2.Value
     End If
    Next g
    End With
MsgBox ("Enregistrement effectué !")
Unload COMMANDE
End Sub

[manueldejong]

Merci je vais regarder ça de plus près et je reviens car j'aime analyser et comprendre mais encore merci !