Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Choix multiple case à cocher

F

Fanrs

XLDnaute Nouveau
Bonjour à tous,

Je bloque depuis un petit moment sur la résolution de mon problème, je craque et demande de l'aide... C'est plus un problème de gout que de fonctionnalité

En gros l'utilisateur faire une sélection multiple et les résultats de cette sélection sont reportés en E12

Il faudrait que :
-la zone de liste à sélection multiple ne soit pas une liste déroutante
-qu'elle puisse s'adapter à ma "listfillrange" (C1:C20) qui peut est de longueur variable (sans m'afficher les cases vides sans intitulé)
-que la valeur par défaut soit toute cochée avec report en E12 des résultats sélectionnés
-si possible pas de validation pour le report en E12



Place aux experts
Merci d'avance

Fichier exemple
 
Solution
Ah mais c'est mieux de tout faire avec le double-clic en E12, fichier (4) :
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [E12]) Is Nothing Then Exit Sub
Dim test As Boolean, i&
Cancel = True
test = IsEmpty([E12])
With ListBox1
    For i = 0 To .ListCount - 1
        .Selected(i) = test
    Next
End With
End Sub
Trier par date Trier par votes
F

Fanrs

XLDnaute Nouveau


Tu en as sur amazon, mais après je suis sceptique sur cette légende

C'est pas la première fois que cela m'arrive sur ce forum
Pourtant, je pense faire le maximum avec impression écran et fichier joint.... mais ça doit être une divergence de langage dû à mon faible niveau fasse aux "experts"



Je vais essayer autrement :

Il me faudrait des cases à cocher à sélection multiple, sans liste déroulante, dont la plage de donnée se trouve en C1:C7 (voir impression écran). Cette zone de données peut être variable (plus longue C1:C20 ou plus courte C1:C3) du cout il faudrait que le nombres de cases à cocher puissent aussi s'adapter au nombre de données source (nbr ligne).

Quand l'utilisateur fait ses choix, il me faudrait le récap de ses choix dans une cellule E12 (voir impression écran)

C'est mieux ?

Désolé, mais c'est pas évident car je n'ai pas la logique de construction, je sais juste ou je veux arriver !
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Pas beaucoup plus clair mais j'ai eu le temps d'aller aux puces acheter une petite boule.

Puisque vous n'êtes pas fichu de déposer votre fichier voyez le mien ci-joint et cette macro :
VB: 
Private Sub ListBox1_Change()
Dim i&, a(), n&
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then ReDim Preserve a(n): a(n) = .List(i, 0): n = n + 1
    Next
End With
[E12] = Join(a)
End Sub
A+
 

Pièces jointes

  • ListBox(1).xlsm
    21.9 KB · Affichages: 17
Vote positif 0 Vote négatif
F

Fanrs

XLDnaute Nouveau
Merci pour votre réponse

Puisque vous n'êtes pas fichu de déposer votre fichier voyez
Cliquez pour agrandir...

Ça, c'est pas cool et pas très distingué
J'aurai du l'entourer de rouge... Peut-être chez vous le téléchargement ne se passe pas comme chez moi !!!





Merci pour votre proposition, mais cela revient au même que mon fichier exemple

edit : enfin quasiment, le votre est mieux
 
Dernière édition:
Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc
Bonjour, Fanrs.

Le Monsieur pas cool et pas très distingué aux 33684 messages destinés pour la plus grande partie à aider les personnes en difficulté voulait faire remarquer au p'tit nouveau aux 27 messages qu'en bas à gauche de la fenêtre, il y a un bouton qui permet de joindre un fichier Excel.
Et si ce fichier est correctement construit, il illustre le problème avec clarté et concision, à l'aide d'exemples représentatifs de ce qu'on a et de ce qu'on souhaite obtenir.
 
Vote positif 0 Vote négatif
F

Fanrs

XLDnaute Nouveau
Le fichier n'était pas joint...

Excusez-moi de ce peu et mille excuses d'être débutant, autant en Excel qu'en l'utilisation de ce forum.
Ce dernier n'est visiblement pas de mon niveau, aussi !

Ça doit être dure de fédérer de nouveaux tops membres !

s
 
Vote positif 0 Vote négatif
F

Fanrs

XLDnaute Nouveau
Bonjour,

Merci pour votre relance et désolé pour cette réponse tardive... vous savez ce que c'est, le samedi soir, enfin le droit d'aller boire un verre en terrasse...


Nom défini Liste =DECALER(Feuil1!$C$1;;;NBVAL(Feuil1!$C:$C))
Cliquez pour agrandir...
Ne semble pas fonctionner chez moi ! Si je rajoute dans votre fichier A8 et A9 à la suite de la liste cela ne crée pas de case à cocher correspondantes... Je dois mal comprendre le principe de fonctionnement.
Idem si je supprime A7, cela efface l'item de la case à cocher, mais pas la case à cocher.


Concernant le"cochage" par défaut, y aurait-il un code vba (ou autre subtilité Excel) qui fait le taff à l'ouverture du fichier, par exemple, et qui coche toutes les cases ?


Bon dimanche à vous
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour Fanrs,

Fichier (2), avec ce code la ListBox se met à jour automatiquement quand on modifie la liste source :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
ListBox1.ListFillRange = "Liste"
End Sub
Avec un double-clic dans la ListBox tout est sélectionné :
Code: 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i&
With ListBox1
    For i = 0 To .ListCount - 1
        .Selected(i) = True
    Next
End With
End Sub
A+
 

Pièces jointes

  • ListBox(2).xlsm
    23.3 KB · Affichages: 8
Vote positif 0 Vote négatif
F

Fanrs

XLDnaute Nouveau
Super merci beaucoup

C'est quand même impressionnant ce que vous arrivé à faire.

Pour tout sélectionner, cela m'embête un peu, car votre solution nécessite une action de l'utilisateur, j'aimerai plutôt que cela soit automatique par appel de macro dans un module... Possible ?
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
En complément fichier (3) avec cette macro pour tout désélectionner :
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [E12]) Is Nothing Then Exit Sub
Dim i&
Cancel = True
With ListBox1
    For i = 0 To .ListCount - 1
        .Selected(i) = False
    Next
End With
End Sub
 

Pièces jointes

  • ListBox(3).xlsm
    23.1 KB · Affichages: 6
Vote positif 0 Vote négatif
F

Fanrs

XLDnaute Nouveau
Pour tout sélectionner, cela m'embête un peu, car votre solution nécessite une action de l'utilisateur, j'aimerai plutôt que cela soit automatique par appel de macro dans un module... Possible ?
Cliquez pour agrandir...

En gros, tout est sélectionné par défaut et l'utilisateur choisit de décocher... c'est à sens inverse...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
772
fanch55
M
  • Question
XL 2016 VBA Liste déroulante
Réponses
2
Affichages
702
Myaah
M
C
  • Résolu(e)
XL 2010 Listbox à choix multiples: comment renvoyer en vba les choix dans le tableau?
2
Réponses
20
Affichages
4 K
ChTi160
M
  • Question
Microsoft 365 Liste de choix et calcules automatiques
Réponses
4
Affichages
1 K
chris
S
  • Résolu(e)
Autres excel 2021 VBA : Comment modifier un choix dans un segment d'un TCD (annuler & sélectionner) ?
Réponses
1
Affichages
4 K
Scoub
S
S
  • Question
XL 2016 Liste de choix à sélection multiple
Réponses
7
Affichages
3 K
StanSigma
S
Z
  • Résolu(e)
Microsoft 365 Liste déroulante à sélection multiple liée à une seule cellule
Réponses
7
Affichages
3 K
zoec
Z
O
  • Question
XL 2016 Liste à choix multiple avec contenu variable
Réponses
0
Affichages
2 K
Olivier Hervoir
O
I
  • Résolu(e)
XL 2016 Formule SI entre case à cocher et case d’option
Réponses
12
Affichages
2 K
sylvanu
Y
  • Question
XL 2016 Filtrer en VBA par cases à cocher choix multiples
Réponses
4
Affichages
3 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…