Bonjour,

Il existe beaucoup de sujet sur les listes déroulantes dans Excel mais rien qui me convient... Je trouve que les formules Excel sont un peu instables, je souhaiterais donc passer par du VBA.

Voici mon problème :
Je souhaiterais créer une liste déroulantes en VBA pour une cellule. Lorsqu'on clique sur la cellule, la liste déroulante écrite en VBA s'affiche. Le tout sans passer par Validation des données / Liste. Les données de la liste seront écrite dans la script.

Voici mon VBA mais il passe par Validation des données / liste, ce que je ne souhaite pas:

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
Sub ListeDeroulante()
With Sheets("ListeDeroulante")
.Activate
.Range("A1:A5").Select
ActiveWorkbook.Names.Add Name:="LaPlage", RefersTo:="=" & "ListeDeroulante!" & Selection.Address
End With
 
For Each Sh In Sheets
If Sh.Name = "A" Then GoTo line1:
With Sheets(Sh.Name).Range("C7").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=LaPlage"
End With
line1:
Next Sh
End Sub
Merci d'avance,

Thibaut EUGENE.