Discussion :

[karnato1547]

bonjour j'espère que vous pourrez m'aider,
j'ai une colonne qui contient des cellules avec des informations séparés par une virgule ","
je voudrais créer une liste a partir de ces informations automatiquement de façon par exemple grâce a a une cellule qui contient: amine, jean, pierre
j'aie automatiquement une liste avec ces choix sans manipulation manuelle.
est ce faisable s'il vous plais?

[sabzzz]

bonjour karnato1547,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
Dim liste As String, c as Range
For Each c In Range("B2:B" & Range("B65536").End(xlUp).Row)
  liste = c.Value
    With c.Offset(0, 1).Validation 'validation en colonne C
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=liste
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
    End With
Next
End Sub

[karnato1547]

Bonjour,
Merci Bcp SABZZZ c'est exactement ce dont j'ai besoin.
vous etes super les mecs sur ce forum.
une dernière question stp;
je voudrais affilier une macro différente a chaque choix dans la liste.
par exemple si je clique sur amine dans la liste la macro 3 s'exécute. par contre si je clique sur jean une macro 4 s'exécute.
Merci d'avance de votre réponses.

[karnato1547]

merci tout le monde
sollution trouvé ci-joint le fichier.