"Combiner" deux ListBox

Version imprimable

15/06/2018, 10h48
hidessj

1 pièce(s) jointe(s)

"Combiner" deux ListBox

Bonjour,

J'aurai besoin de votre aide concernant mon projet de stage. J'ai crée un formulaire en utilisant du code VBA pour faciliter les commandes de l'entreprise ( voir screen numéroté 1 ). Comme vous pouvez le voir, il y a des Options, des Quincailleries ainsi que des Epaisseurs/Largeurs faisant référence aux planches utilisées.

Au début, je voulais faire en sorte que l'utilisateur sélectionne tout ce dont il a besoin, et qu'en cliquant sur "Ajouter" tout ce qui a été rempli aille directement dans un tableau Excel > cela fonctionne il n'y a pas de soucis.

Cependant, mon maître de stage m'a demandé à ce que, par exemple lorsqu'on sélectionne "Garage 3m", toutes les planches requises soient automatiquement sélectionnées au lieu de devoir les cocher une par une > c'est la que ça bloque, cela fait plusieurs jours que je suis bloqué la dessus.

Et dans mon idée, j'aurai bien aimé que les calculs du prix total se fassent automatiquement pour encore une fois faire gagner du temps. ( Le prix total se calcule en faisant épaisseur x largeur x longueur x quantité x prix au m2 )

Je peux vous envoyez par mail mon travail ( ne sachant pas comment le joindre ici, je suis nouveau )
- la feuille "Source" correspondant au tableau où toutes les données seront placées après avoir cliqué sur le bouton "Ajouter",
- la deuxième feuille correspond aux différentes maisons que je dois gérer, avec chacune leurs Options et Quincailleries nécessaires
- La feuille "Liste" sert juste à alimenter mes ListBox placées dans mon formulaire
- La dernière feuille sert juste à afficher le formulaire à l'aide d'un bouton

Je vous remercie de votre aide, si vous avez une éventuelle question sur quelque chose que vous n'avez pas compris, je serais en mesure d'y répondre.
16/06/2018, 05h01
Transitoire

Bonjour, il faudrait une copie d'écran de la feuille liste, car j'imagine que c'est sur elle que se trouve les données qui permettent la charges des listbox.
si vous souhaitez joindre un dossier à votre réponse, vous avez à cet effet en dessous de la feuille de réponse des options supplémentaires dont les pièces jointes, que vous avez du utiliser pour votre "screen1". vous pouvez joindre aussi un dossier.
Cordialement 8-)
16/06/2018, 08h58
tony76
bonjour hidessj

déjà pour que envoyer tes données dans une base en cliquant sur Ajouter
tu peux mettre se code là dans le bouton Ajouter
Code:

1 2 3 4 5 6 7 Private Sub Ajouter_Click() Sheets("base").Range("A1").End(xlDown).Offset(0, 0).Value = TextBox1.Value 'et ainsi de suite avec tous tes textbox etc ... End Sub
EDIT j'ai lu vite fais
pour faire ce que tu demande fait une condition
dans ta forme ou son contenu garage 3m
Code:

1 2 3 4 5 If (textbox1.Value = "garage m3") Then ' tu selectionne tes bonne planche End If
en espèrent avoir bien compris :weird:
18/06/2018, 08h47
hidessj

1 pièce(s) jointe(s)

Bonjour Transitoire,

Dans un premier temps, merci de ta réponse. En effet, je te mets en PJ mon formulaire comprenant mes Listes et le reste de mon travail :)

Cordialement.
18/06/2018, 08h52
hidessj

Bonjour Tony76,

Pour le bouton Ajouter j'arrive bien à faire en sorte que tout se place dans le tableau donc aucun soucis là dessus ! ( Par contre je t'avoue que je me demande comment faire une fois que j'aurai réussi à mettre en place ce que je veux, par exemple lorsque quand je sélectionnerai "Garage 3m" que ce soit les planches associées qui se mettent directement dans le tableau, et non pas la désignation "Garage 3m" )

Je regarde cependant pour ta dernière proposition avec le "If", merci beaucoup !

Cordialement.

Re,

Pour ce que tu veux faire en faite je tes donné la réponse involontairement :mouarf:

la condition et dedans ce que tu veux,
dans ta forme " Options " tu mes la condition si on clique sur garage 3m ou 4m ou 6m etc ....
et pour aller plus loin tu peux mettre plusieurs conditions pour les autres je te laisse arranger les textbox et les offset

et tu peux faire une boucle pour que cela soit plus joli

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
 
If (TextBox1.Value = "garage 3m") Then
 
    Sheets("base").Range("A1").End(xlDown).Offset(0, 0).Value = TextBox1.Value 'Options
    Sheets("base").Range("A1").End(xlDown).Offset(0, 1).Value = TextBox2.Value 'Désignation
    Sheets("base").Range("A1").End(xlDown).Offset(0, 2).Value = TextBox3.Value 'Epaisseurs/largeurs
    Sheets("base").Range("A1").End(xlDown).Offset(0, 3).Value = TextBox3.Value 'Longeur etc ......
 
    MsgBox ("Enregistrement effectué pour le garage 3m")
 
ElseIf (TextBox1.Value = "garage 4m") Then
 
    Sheets("base").Range("A1").End(xlDown).Offset(0, 0).Value = TextBox1.Value 'Options
    Sheets("base").Range("A1").End(xlDown).Offset(0, 1).Value = TextBox2.Value 'Désignation
    Sheets("base").Range("A1").End(xlDown).Offset(0, 2).Value = TextBox3.Value 'Epaisseurs/largeurs
    Sheets("base").Range("A1").End(xlDown).Offset(0, 3).Value = TextBox3.Value 'Longeur etc ......
 
ElseIf (TextBox1.Value = "garage 6m") Then
 
    Sheets("base").Range("A1").End(xlDown).Offset(0, 0).Value = TextBox1.Value 'Options
    Sheets("base").Range("A1").End(xlDown).Offset(0, 1).Value = TextBox2.Value 'Désignation
    Sheets("base").Range("A1").End(xlDown).Offset(0, 2).Value = TextBox3.Value 'Epaisseurs/largeurs
    Sheets("base").Range("A1").End(xlDown).Offset(0, 3).Value = TextBox3.Value 'Longeur etc ......
 
End If

19/06/2018, 09h33
hidessj

Bonjour Tony,

Déjà je te remercie pour ta réponse, tu me sembles être sur quelque chose de pas mal, je n'y aurai pas pensé seul !
Cependant, je vois que tu mets "Textbox1.Value" dans ton If, et moi c'est une ListBox appelée "lstOptions", penses-tu que je dois plutôt écrire "lstOptions.Value = "Garage 3m" " par exemple?

Aussi, le code que tu m'as donné, je dois le mettre sur le bouton "Ajouter" ? ou bien dans ma Listbox "Options" ?

Sinon, merci énormément, tu me sauves !

bonsoir,

Content si j'ai pu aider, clique sur le petit pouce vert ;)

pour ce qui et de l'emplacement oui mais ce code dans la forme " Options "
pour ce qui et du textbox1 je mais ça par défaut j'aurais très bien pu mettre Combobox1 (à toi de l'adapter)
après le code et brouillon il y a beaucoup mieux à faire.
Code:

1 2 3 4 5 6 7 8 9 10 11 If (Me.ComboBox1.Value = "garage 3m") Then With Sheets("base") .Range("A1").End(xlDown).Offset(0, 0).Value = TextBox1.Value 'Options .Range("A1").End(xlDown).Offset(0, 1).Value = TextBox2.Value 'Désignation .Range("A1").End(xlDown).Offset(0, 2).Value = TextBox3.Value 'Epaisseurs/largeurs .Range("A1").End(xlDown).Offset(0, 3).Value = TextBox3.Value 'Longeur etc ...... End With MsgBox ("Enregistrement effectué pour le garage 3m") End If
tu peux aussi faire une boucle

Bonjour,

Merci pour ta précision mais il y a quelque chose que je ne comprends pas dans ton code :

Citation:

Code:

1
2
3
4
5
6
7
8
9
10
If (Me.ComboBox1.Value = "garage 3m") Then
 
        With Sheets("base")
            .Range("A1").End(xlDown).Offset(0, 0).Value = TextBox1.Value 'Options
            .Range("A1").End(xlDown).Offset(0, 1).Value = TextBox2.Value 'Désignation
            .Range("A1").End(xlDown).Offset(0, 2).Value = TextBox3.Value 'Epaisseurs/largeurs
            .Range("A1").End(xlDown).Offset(0, 3).Value = TextBox3.Value 'Longeur etc ......
        End With
            MsgBox ("Enregistrement effectué pour le garage 3m")
End If

Ce sont les lignes en gras, à quoi renvoient-elles ?

Merci

20/06/2018, 19h20
tony76
Bonjour,

Bah c'est pratiquement le même code que sur le pot du dessus

en gros si une personne sélectionne garage 3m il faut que tu enregistre des info dans la base
à toi de modifié les textbox que j'ai mis par tes forme

ou si tu préfère
Code:

1 2 3 4 5 If (Me.ComboBox1.Value = "garage 3m") Then ' ton code si on sélectionne garage 3m End If
21/06/2018, 08h43
hidessj

Bonjour,

Oui je vois bien ce que tu veux dire, merci! Mais mon problème au début c'était le fait que lorsqu'on choisisse par exemple "Garage 3m" ( et que l'on remplisse tout le reste, évidemment ) et que l'on clique sur "Ajouter", que ce soit directement les planches associées à "Garage 3m" qui soit sélectionnées et affichées dans la base de données, à la place de "Garage 3m" justement.

Genre ton code avec le "If" me semble le plus adéquat mais je n'ai aucune idée de quoi mettre dedans pour lui dire de sélectionner telles planches pour cette option et ensuite lui dire de les places dans la base

Je sais pas si j'ai été assez clair:?

Re,

Oui j'ai très bien compris et ce que je tes donner, correspond exactement à ce que tu veux.

EDIT
listbox1 le garage 3m
listbox2 les planches
essai avec ça
Code:

1 2 3 4 5 6 7 8 9 sub Ajouter() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 If (ListBox1.Selected(i)) = True Then Sheets("base").Range("A1").Offset(0, 1).End(xlDown).Value = ListBox2.List(i) End If Next i End Sub

21/06/2018, 22h59
hidessj

Oui, c'est bien une listbox nommée "lstÉpaisseur"

désoler pour les codes d'avant voici exactement ce qu'il te faut
a savoir que dans la liste box cela commence a 0
EDIT
il y à peut-etre encore une ou deux petite erreurs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub ListBox1_Click()
Dim i As Integer
    If (ListBox1.ListIndex = -1) Then Exit Sub
        For i = 0 To ListBox1.ListCount - 1
            If (Me.ListBox1.Selected(i)) Then
                    MsgBox ("vous avez selectionner " & ListBox1.List(i))
                    Sheets("base").Range("A1").Offset(0, 0).End(xlup).Value = ListBox2.List(2) ' 1er planche
                    Sheets("base").Range("B1").Offset(0, 1).End(xlup).Value = ListBox2.List(4) ' 2eme planche
                    'etc...
            End If
        Next i
End Sub