XL pour MAC Liste avec choix multiple

Mosnak · 10 Décembre 2021

Bonjour,

Je cherche depuis un petit moment comment avoir une liste avec un choix multiple mais avec la possibilité d'en sélectionner plusieurs.

Je m'explique, j'ai déjà une liste avec plusieurs choix mais je cherche a pouvoir coché plusieurs valeurs de cette liste, de sorte a pouvoir sélectionner Jardin et garage dans le même cellule par exemple.

Pouvez-vous m'aider ?

Merci par avance,

job75 · 10 Décembre 2021

Bonsoir Mosnak, JHA,

Oui, utiliser une ListBox est une bonne solution.

Comme c'est un peu compliqué on peut simplement concaténer les entrées successives :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M10:M627]) Is Nothing Or Target.Count > 1 Or CStr(Target(1)) = "" Then Exit Sub
Dim memorise$
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évênements
memorise = CStr(Target) 'mémorise la dernière entrée
Application.Undo 'annule l'entrée
If InStr(vbLf & Target & vbLf, vbLf & memorise & vbLf) = 0 Then
    Target = IIf(Target = "", "", Target & vbLf) & memorise 'concatène les entrées
    Target.WrapText = True 'renvoi à la ligne
    Target.EntireRow.AutoFit 'ajuste...

JHA · 10 Décembre 2021

Bonjour à tous,

Sans fichier joint, difficile de te donner une solution qui reflète ton document.

JHA

Mosnak · 10 Décembre 2021

Bonjour JHA,

Voici le fichier

JHA · 10 Décembre 2021

Bonjour à tous,

Désolé il faut passer par VBA mais je ne sais pas faire.
Ci joint un exemple de @mapomme (que je salue)

XL 2019 - Doublons dans listbox à sélection multiple

Bonjour à tous les excelliens, Pour gérer les bénévoles d'un événement, j'ai repris le code de Sousou pour démarrer mon fichier. J'utilise une listbox à choix multiple en colonne 2 pour sélectionner un ou plusieurs bénévoles par poste (en colonne A). Je souhaiterai que lorsqu'un item a déjà été...

www.excel-downloads.com

JHA

job75 · 10 Décembre 2021

Bonsoir Mosnak, JHA,

Oui, utiliser une ListBox est une bonne solution.

Comme c'est un peu compliqué on peut simplement concaténer les entrées successives :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M10:M627]) Is Nothing Or Target.Count > 1 Or CStr(Target(1)) = "" Then Exit Sub
Dim memorise$
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évênements
memorise = CStr(Target) 'mémorise la dernière entrée
Application.Undo 'annule l'entrée
If InStr(vbLf & Target & vbLf, vbLf & memorise & vbLf) = 0 Then
    Target = IIf(Target = "", "", Target & vbLf) & memorise 'concatène les entrées
    Target.WrapText = True 'renvoi à la ligne
    Target.EntireRow.AutoFit 'ajuste la hauteur
End If
Application.EnableEvents = True 'réactive les évênements
End Sub

A+

Mosnak · 13 Décembre 2021

Hello All,

C'est super c'est exactement ça je vais regarder en détail ce que tu as fais pour savoir le reproduire plus tard c'est super gentil

Bonne journée à tous

XL pour MAC Liste avec choix multiple

Mosnak

XLDnaute Nouveau

job75

JHA

XLDnaute Barbatruc

Mosnak

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

XL 2019 - Doublons dans listbox à sélection multiple

job75

XLDnaute Barbatruc

Pièces jointes

Mosnak

XLDnaute Nouveau

Discussions similaires