Bonjour,
Tu as raison. J'ai du charger le mauvais fichier. Voici le code pour afficher plusieurs valeurs de la liste dans la cellule séparées par des " ,".
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValSaisie
Dim P As Integer
If Not Intersect(Columns("C"), Target) Is Nothing And Target.Count = 1 And Target.Row > 1 Then
Application.EnableEvents = False
ValSaisie = Target
Application.Undo
P = InStr(Target, ValSaisie)
If P > 0 Then
Target = Left(Target, P - 1) & Mid(Target, P + Len(ValSaisie) + 1)
If Right(Target, 1) = "," Then
Target = Left(Target, Len(Target) - 1)
End If
Else
If Target = "" Then
Target = ValSaisie
Else
Target = Target & "," & ValSaisie
End If
End If
Application.EnableEvents = True
End If
End Sub
En ce qui concerne ta demande, je pense qu'il faut passer par un formulaire déclenché au clic.
Ou alors, peut-être que l'utilisation de segment répondrait à tes besoins de présentations ? (J'ai fait une petite extrapolation avec un petit tableau de donner que tu peux essayer).
Bonne journée.