Liste de choix à résultat multiples

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = '$E$4' Then
  'Crer un userfor avec un listbox qui contien la liste
  'Userform.show
  'Inscrire les données dans E4
  Target.Offset(1, 0).Select
End If
End Sub

Cliquez pour agrandir...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strChoix As String
Dim intItem As Integer
With Target
    If .Address = '$E$4' Then
        .Value = Empty
        UserForm1.Show
        With UserForm1.ListBox1
              For intItem = 0 To .ListCount - 1
                  If .Selected(intItem) = True Then
                    strChoix = strChoix & .List(intItem) & ', '
                  End If
              Next intItem
              Unload UserForm1
        End With
        .Value = Mid(strChoix, 1, Len(strChoix) - 2)
      .Offset(1, 0).Select
    End If
End With
End Sub





Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub



Private Sub UserForm_Initialize()
Dim vrtChoix As Variant
With UserForm1.ListBox1
    For Each vrtChoix In Sheets('Choix').Range(Cells(3, 9), Cells(Cells(65536, 9).End(xlUp).Row, 9))
              .AddItem vrtChoix
    Next vrtChoix
End With
End Sub

Cliquez pour agrandir...

'Cette macro est de type qu'on appel évènementciel.
'Dans ce cas ci, elle s'exécute des qu'il se produit un changement ds la feuille choix
'Target est la cellule qui est présentement en cause

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strChoix As String
Dim intItem As Integer
' Le With sert a ne par renommer a chaque fois la variable Target
' C'est pour ça que tu vois .Address sans Target devant
With Target
    ' Ici je m'assure avec une condition que le traitement se fasse
    ' seulement si le Target(cellule) est E4
    If .Address = '$E$4' Then
        'Réinitialise la cellule avec rien a l'intérieur
        .Value = Empty
        UserForm1.Show
        With UserForm1.ListBox1
              ' Ici on fait le tour de tout les éléments du ListBox
              ' afin de connaitre les choix de l'utilisateur
              For intItem = 0 To .ListCount - 1
                  If .Selected(intItem) = True Then
                    ' Donc avec cette condition on a peu déterminer a ce point
                    ' que cet élément est un des choix de l'utilisateur et va être
                    ' donc insérer ds la variable
                    strChoix = strChoix & .List(intItem) & ', '
                  End If
              Next intItem
              Unload UserForm1
        End With
        ' Ici Target(cellule).value on y insère le résultat de la variable strChoix qui
        ' Compose tout les choix de l'utilisateur et qui on été séparé par une virgule et un espace
        ' Mais il y a un traitement additionnel qui est fait soit de soutirer la vigule et le dernier espace
        ' qui ne serve pas parce qu'il n'y a plus de nom après. C'est fait avec la combinaison de Mid et Len
        .Value = Mid(strChoix, 1, Len(strChoix) - 2)
        'Et finalement, je remet le focus sur une autre cellule que E4 pour repermettre l'action de
        ' clicker sur E4
      .Offset(1, 0).Select
    End If
End With
End Sub

Cliquez pour agrandir...