XL pour MAC Liste avec choix multiple

[Mosnak]

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,

 

[JHA]

Bonjour à tous,

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

JHA

 

[Mosnak]

Bonjour JHA,

Voici le fichier

 

[JHA]

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]

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 :

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]

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