Listes déroulantes multi-sélections
Créer des listes déroulantes Multi-Sélections sur Excel
🎯 Dans ce tutoriel Excel, vous allez découvrir comment créer :
-> des listes déroulantes multi-sélections.
✅ Ainsi, cela va vous permettre de pouvoir sélectionner plusieurs options dans une cellule à partir d'une liste déroulante.
👍 Mais ce n'est pas tout, avec une liste déroulante multi-sélection, vous pouvez également modifier facilement votre sélection en ajoutant ou en supprimant les données en un seul clic.
Voir la vidéo pour suivre les différentes étapes :
Pour vous entrainer, vous pouvez :
-> Télécharger le fichier Excel utilisé dans la vidéo
-> Télécharger le fichier Excel utilisé dans la vidéo
👇
Après avoir ouvert le lien :
- Vous cliquez sur "Fichier"
- puis sur "Enregistrer sous"
- et sur "Télécharger une copie"
📌↪️→ Code VBA à utiliser pour créer des listes déroulantes multi-sélections sur Excel :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Not Intersect(Target, Range("C5")) Is Nothing Then
If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
GoTo Exitsub
Else: If Target.Value = "" Then GoTo Exitsub Else
Application.EnableEvents = False
Newvalue = Target.Value
Application.Undo
Oldvalue = Target.Value
If Oldvalue = "" Then
Target.Value = Newvalue
Else
If InStr(1, Oldvalue, Newvalue & ", ") > 0 Then
Target.Value = Replace(Oldvalue, Newvalue & ", ", "")
ElseIf InStr(1, Oldvalue, ", " & Newvalue) > 0 Then
Target.Value = Replace(Oldvalue, ", " & Newvalue, "")
ElseIf InStr(1, Oldvalue, Newvalue) = 0 Then
Target.Value = Oldvalue & ", " & Newvalue
End If
End If
End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub
Un autre tutoriel qui pourrait vous intéresser :
