Appel liste déroulante depuis VBA

Salut !

J'ai un soucis avec ma création de liste déroulante.

J'ai récupéré le code d'une macro qui me crée une liste déroulante dans une colonne, a priori ça marche puisque je ne peux pas rentrer ce que je veux dans ma colonne mais la liste ne s'affiche pas... que faire ?

(c'est le module 3 dans le fichier joint, vous ne pourrez pas cliquer sur actualiser puisque le fichier fait appel à d'autres fichiers)

'Ajout de la liste déroulante dans la colonne S

Range("S7:S200").Select

With Selection.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="=Feuil1!$A$1:$A$8"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

.ShowInput = True

.ShowError = True

End With

'Ajout de la liste déroulante dans la colonne T

Range("T7:T200").Select

With Selection.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="=Feuil1!$B$1:$B$5"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

.ShowInput = True

.ShowError = True

End With

Bonjour,

Je ne vois pas ton souci, les flèches apparaissent bien... mais les fusions sont toujours une très mauvaises idée dans une base de données !

Je ne plongerai pas dans ton code tant que le code figurant en modules Standard ne sera pas rassemblé dans un seul module. Il n'y a pas matière à plus ! Je ne les ai pas compté mais il y en a beaucoup, et comme un second n'était déjà pas justifié par la nature du code...

Pour t'inciter à essayer de coder un peu plus proprement, efficacement et lisiblement :

Sub ListeValidation()
    With Worksheets("FeuilleEntrees")
        With .Range("S7:S200").Validation
            .Delete
            .Add xlValidateList, , , "=Feuil1!$A$2:$A$8"
        End With
        With .Range("T7:T200").Validation
            .Delete
            .Add xlValidateList, , , "=Feuil1!$B$2:$B$5"
        End With
    End With
End Sub

Voilà qui suffit pour faire ce que tu faisais avec un volume nettement supérieur...

En outre, à 12 messages tu aurais dû avoir le temps d'apprendre à te servir des balises Code pour y placer le code que tu cites dans un post !

Cordialement.