Discussion :

[scoobydoos]

Salut,

Je voudrais, dans un userform, mettre une liste avec choix multiple (listbox) et je bloques sur le code.
Est-il possible que cela garde les choix une fois validé et que cela aille dans un tableau ?
Et sur chaque choix, est-il possible d'ajouter des quantités ?

Merci par avance
@+

[Belga16]

"Je bloque sur le code." :

qu'est-ce qui vous bloque ?

Est-il possible que cela garde les choix une fois validés et que cela aille dans un tableau ?

Réponse : Oui

Code :

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

Et sur chaque choix, est-il possible d'ajouter des quantités ?

Réponse : Oui
Vous pouvez préciser/illustrer vos questions en mettant des captures d'écran, ou en postant copie anonymisée de votre fichier !

[scoobydoos]

Salut,

Voila le fichier brut.
En fait, j'ai plusieurs demandes et/ou blocage. Je ne sais pas si je suis bien parti mais on verra :
Donc dans un premier temps :
- Est-il possible d'avoir un userform unique pour chaque N° Prix : C'est à dire un userform pour F.60 / F.61 etc. j'ai pas mal de ligne ?
- Si non, il faut un pour chaque N° Prix mais ce n'est pas trop grave

Dans un deuxième temps :
- Choisir la ou les marques => affichage dans la 2ième listbox la Réf et désignation de ces marques
- Et pouvoir mettre les quantités pour chaque Réf (là je sèches)
- Garder en mémoire tout cela même si je ferme le fichier
- Puis valider le userform et mettre cela dans un tableau de consultation

Voilà déjà pour un premier jet

Merci par avance
@+

[Philippe Tulliez]

Bonjour,
Un exemple dans ces deux billets

• VBA - Fonction qui sélectionne les éléments d'un ListBox (MultiSelect) en fonction d'une chaîne de caractères
• VBA - Fonction qui renvoie une chaîne de caractères des éléments sélectionnés dans un ListBox

[scoobydoos]

Bonjour,
Un exemple dans ces deux billets

• VBA - Fonction qui sélectionne les éléments d'un ListBox (MultiSelect) en fonction d'une chaîne de caractères
• VBA - Fonction qui renvoie une chaîne de caractères des éléments sélectionnés dans un ListBox

Bonjour,

Merci mais j'avais déjà vu ces billets

Cependant, je voudrais pouvoir rajouter ma 3ième colonne dans le userform et lui dire les quantités par ligne :



Et tout cela, une fois valider, dans un tableau de consultation.

Ci-joint, le fichier.

Essai USERFORM 2.xlsm

[Valtrase]

Bonjour,

Je pense que pour cela tu dois te diriger plutôt sur un ListView en lieux et place de la zone de liste

[scoobydoos]

J'ai oublié qu'il fallait la liste correspondante au N° de Prix :
- Si F.60 => uniquement les lignes correspondantes

Je saurais faire avec une formule Excel mais en VBA...

Merci par avance
@+

[scoobydoos]

Bonjour,

Je pense que pour cela tu dois te diriger plutôt sur un ListView en lieux et place de la zone de liste

Salut,

Ouais j'ai commencé à regarder ça mais je ne sais pas comment je rentres les quantités.

Merci par avance
@+

[Alex020181]

Bonjour,

En PJ une proposition.

Tu choisis ta ref prix puis ta marque et enfin les désignations que tu souhaites.

le bouton ok te permet de sortir ta sélection sur la seconde feuille.

Teste et dis nous.

[Belga16]

Autre solution, en annexe :

Scoobedoo_20220930_USERFORM 2.xlsm

[scoobydoos]

Bonjour,

En PJ une proposition.

Tu choisis ta ref prix puis ta marque et enfin les désignations que tu souhaites.

le bouton ok te permet de sortir ta sélection sur la seconde feuille.

Teste et dis nous.

Salut,

En fait, je voudrais uniquement un bouton par N° de Prix, donc pas besoin d'afficher la première colonne. Je penses que cela simplifie le code.
- Si F.60 => uniquement les lignes correspondantes

Je saurais faire avec une formule Excel mais en VBA...

Donc en fait, il faut que je choisisses la marque puis la réf avec la désignation. Et Je souhaiterai pouvoir ajouter pour chaque référence une quantité.

@valtrase : Il me dit que je fasses plutôt avec une Listview ?

Qu'en pensez-vous ? Peut-être plus simple...

Merci pour les exemples !

Merci par avance
@+

[scoobydoos]

Salut,

Personne ?

Merci par avance
@+

[Alex020181]

Je suis professionnellement chargé en ce moment mais je ne vous oublie pas.

Je me doute que du point de vue demandeur attendre et espérer n'est pas forcément facile mais nous de notre côté nous avons également des obligations.

[Alex020181]

Bon. Tu as de la chance j'avais déjà fait le plus gros du travail dans la version précédente.

Donc au final sur le formulaire tu choisis ta ou tes ref prix, puis ta ou tes marques puis ta désignation.
Tu as la qté de cette désignation qui apparait dans la textebox et tu peux la changer en direct (la liste des désignations sur le formulaire et la feuille "bd" se mettent à jour automatiquement).

Ensuite tu peux créer une feuille par ref prix sélectionnées avec le bouton ok.

Attention les anciennes feuilles ref prix du classeur dont le nom est sélectionné dans la liste ref prix seront supprimées. Par contre aucune autre feuille ne le sera. Les autres feuilles garderont leurs valeurs.

Ex; tu as déjà une feuille F.60 et tu ne l'as pas sélectionné dans la liste alors l'ancienne feuille garde ses anciennes données même si tu l'as dans ta liste.

Teste et dis-nous.

[scoobydoos]

Bon. Tu as de la chance j'avais déjà fait le plus gros du travail dans la version précédente.

Donc au final sur le formulaire tu choisis ta ou tes ref prix, puis ta ou tes marques puis ta désignation.
Tu as la qté de cette désignation qui apparait dans la textebox et tu peux la changer en direct (la liste des désignations sur le formulaire et la feuille "bd" se mettent à jour automatiquement).

Ensuite tu peux créer une feuille par ref prix sélectionnées avec le bouton ok.

Attention les anciennes feuilles ref prix du classeur dont le nom est sélectionné dans la liste ref prix seront supprimées. Par contre aucune autre feuille ne le sera. Les autres feuilles garderont leurs valeurs.

Ex; tu as déjà une feuille F.60 et tu ne l'as pas sélectionné dans la liste alors l'ancienne feuille garde ses anciennes données même si tu l'as dans ta liste.

Teste et dis-nous.

Bonsoir,

Bon en fait, ce n'est pas tout à fait cela que je voulais. J'espère que je ne t'ai pas trop fait bosser sur cela.

J'ai refait un fichier exemple, cela sera plus simple

J'ai un onglet devis avec des N° de prix F.60/61 etc.. avec une désignation
J'ai un bouton par ligne qui m'ouvre ma liste correspondante (BDD) : Là je ne sais pas comment lui dire de chercher uniquement la liste qui correspond au N° de prix.
Je dois sélectionner mes matériels en mettant une quantité en face : Peut-être avec des textbox ?
Et si on valide, cela met les lignes sélectionnées avec les quantités dans un tableau consultation.

Voila pour l'instant ce que je voudrais faire et c'est déjà pas mal...

Merci pour votre temps

@+

Essai LISTVIEW 3.xlsm

[Alex020181]

Oui et bein tu attendras un peu que j'ai du temps.

Si tu avais tout de suite mis ce fichier et expliqué clairement ce que tu voulais j'aurais déjà pu le faire.
Ton fichier actuel ne correspond pas non plus à l'image que tu donnes dans ton post précédent et pas non plus aux fichiers déposés par toi même précédemment. C'est logiquement sur ces posts que des réponses sont données puisqu'il s'agit d'une information fournie par le demandeur (toi).

En plus tu as assez de code dans mon fichier pour adapter le tien à tes besoins.

Désolé mais pour le moment je dois bosser et j'ai perdu du temps.

Je ne veux être ni casse pieds ni malpoli mais pour le coup c'est énervant comme situation.

[scoobydoos]

Oui et bein tu attendras un peu que j'ai du temps.

Si tu avais tout de suite mis ce fichier et expliqué clairement ce que tu voulais j'aurais déjà pu le faire.
Ton fichier actuel ne correspond pas non plus à l'image que tu donnes dans ton post précédent et pas non plus aux fichiers déposés par toi même précédemment. C'est logiquement sur ces posts que des réponses sont données puisqu'il s'agit d'une information fournie par le demandeur (toi).

En plus tu as assez de code dans mon fichier pour adapter le tien à tes besoins.

Désolé mais pour le moment je dois bosser et j'ai perdu du temps.

Je ne veux être ni casse pieds ni malpoli mais pour le coup c'est énervant comme situation.

Je n'ai jamais dit que je voulais une solution tout de suite et maintenant. C'est un site d'entraide donc je vais attendre bien sûr...

De plus, j'avais déjà expliquer ce que je voulais dés le début mais en lisant d'autres posts, j'ai simplifié ma vision et j'ai changé ma façon de faire en espérant que cela simplifierai la chose. Je penses que l'on peut changer d'avis.

Je ne suis pas expert en code et ça faisait longtemps que je n'ai pas fait cela donc je tatouilles un peu. Désolé.

Maintenant que j'ai fait un exemple de ce que je veux faire cela sera plus simple pour tout le monde. On va dans le même sens maintenant.
Je sais que tout le monde prenne de leur temps pour aider et je les remercie pour ça mais encore une fois si cela embête les gens d'aider d'autres personnes, il ne faut pas s'inscrire sur des sites comme cela.

Désolé encore pour la perte de temps.

En espérant que quelqu'un trouve une solution à mon pb.

Merci par avance

@+

[Valtrase]

Salut a tous,
Je ne sais si j'ai tout bien compris mais bon
Voici une esquisse de ce que tu peux faire. Dans la page devis tu sélectionnes un type de prix et tu cliques sur lancer la recherche.
Dans le listview tu peux sélectionner plusieurs lignes, et changer la quantité en cliquant sur quantité.

Bien entendu il faut peaufiner le code...

ps. Regardes le code dans la feuille2(Devis)

[scoobydoos]

Salut a tous,
Je ne sais si j'ai tout bien compris mais bon
Voici une esquisse de ce que tu peux faire. Dans la page devis tu sélectionnes un type de prix et tu cliques sur lancer la recherche.
Dans le listview tu peux sélectionner plusieurs lignes, et changer la quantité en cliquant sur quantité.

Bien entendu il faut peaufiner le code...

ps. Regardes le code dans la feuille2(Devis)

Salut,

Super C'est une autre façon de faire mais cela me convient. J'ai juste pour l'instant fait un autre boutoncommand2 pour effacer la tableau dans la consultation. Je l'ai enlever du cdeButton1.
En fait, comme c'est un devis, il faut que les personnes remplissent tous les N° de prix donc il ne fallait pas effacer le tableau à chaque fois.
Donc ça c'est fait

Par contre, est-il possible de revenir sur un N° de prix et d'avoir ce que l'on avait déjà coché avec les qtés et du coup en effaçant uniquement le N° de prix correspondant ? J'avais peut-être pensé à rajouter une colonne N° de prix dans la feuille "Consultation" ?
Reprendre ton code ci-dessous en mettant "Si" dans la tableau consultation on a le N° de prix correspondant on affiche les lignes déjà cocher avec les quantités mais aussi avec le reste de la liste non cocher... Ca va faire un chien qui se mort la queue !!

Je ne sais pas si je vais dasn le bon sens :

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
    Set lstObj = Worksheets("Consultation").Range("TConsult").ListObject    '// On affecte le tableau
 
    ' // On vérifie que le tableau contient bien des lignes
    If Worksheets("Consultation").Range("TConsult[N° Prix]") = Worksheets("Devis").Range("r_SearchTypePrix").Value Then 
 
        ' // On boucle sur tous les cellule de la colonne Type prix du tableau
        For Each Ele In Worksheets("Consultation").Range("TConsult[N° Prix]")
            If UCase(Ele) = UCase(Range("r_SearchTypePrix")) Then    ' // On recherche le type de prix
                Set lstRow = lstObj.ListRows(Ele.Row - 1)   ' // On retire 1 car nous avons des entêtes dans le tableau
                With Me.ListView1
                    Set lstVRow = .ListItems.Add(, , "0")    ' // On instentie une nouvelle ligne on renseigne 0 pour la quantité par défaut
                    With lstVRow
                        ' // On rempli les colonnes de la nouvelle ligne
                        .ListSubItems.Add , , lstRow.Range(3)
                        .ListSubItems.Add , , lstRow.Range(4)
                        .ListSubItems.Add , , lstRow.Range(5)
                    End With
                End With
            End If

Merci encore pour ton temps

@+

[scoobydoos]

J'ai oublié une question :
- Tu as mis une formule sur le Bouton "Lancer la recherche"

Code :

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

=INCORPORER("Forms.CommandButton.1";"")

A quoi sert elle ? Je ne comprends pas

Merci par avance
@+