userform et enregistrement

Version imprimable

24/04/2017, 09h36
manueldejong

1 pièce(s) jointe(s)

userform et enregistrement

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 !!!!
24/04/2017, 10h08
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??
24/04/2017, 10h56
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!

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:

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

24/04/2017, 11h10
manueldejong

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

Bonjour
c'est du niveau débutant

Code:

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

24/04/2017, 11h20
BENNASR

Bonjour patricktoulon, la forum
oui débutant et autodidacte en VBA et je voie toujours tes super proposition et participation sur ce forum :aie:
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 :mrgreen:
Bonne journée
24/04/2017, 11h43
patricktoulon

re

Bonjour BENNARS

Citation:

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

Citation:

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....
24/04/2017, 13h04
manueldejong

Que dire ? un grand MERCI !

Merci tout le monde pour votre réactivité et votre savoir faire !!!

multi selection dans ListBox1

J'aime bien le code mais je voudrai que je puisse choisir plusieurs produits dans mes (ListBox1 et ListBox2)
possible ou pas ? Merci !

voici le code:

Code:

1
2
3
4
5
6
7
8
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
MsgBox ("Enregistrement effectué !")
Unload COMMANDE
End Sub

donc faire un genre comme ça:

Code:

1
2
3
4
5
6
7
8
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.multiselect(ListBox1.ListIndex), ListBox2.List.multiselect(ListBox2.ListIndex), TextBox1.Value, TextBox2.Value)
End With
MsgBox ("Enregistrement effectué !")
Unload COMMANDE
End Sub

Merci !