Liste deroulante et VBA
Bonjour à tous
J'utilise le code ci dessous (trouvé sur internet) pour avoir des liens dans une liste déroulante.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Depart As String
If Target.Address = "$L$6" Then
Set Cel = Cells.Find(what:=Target, LookIn:=xlValues, Lookat:=xlWhole)
If Not Cel Is Nothing Then
Depart = Cel.Address
Do
If Cel.Address <> "$L$6" Then
Cel.Select
Exit Sub
End If
Set Cel = Cells.FindNext(Cel)
Loop While Depart <> Cel.Address
End If
MsgBox "Code court inconnu"
End If
End Sub
Le problème est que la liste déroulante n'affiche que 8 données.
Peut etre est il possible de le faire avec une liste déroulante controle activex, et afficher plus de données mais comment faut il procéder ?
Merci
Bonjour
Tu devrais joindre le fichier qui va avec le code…
Bye !
Bonjour,
Dans ce forum, on est prié d'utiliser les outils mis à votre disposition :
La balise </> permet de présenter le code correctement indenté.
Fournir le fichier KIVABIEN avec évite d'avoir à multiplier les réponses inutiles et/ou désagréables...
A+
Bonjour et merci pour vos réponses.
Ce sont des données personnelles, ce n'est pas grave.
Merci a tous
Pour info, j'avais trouvé ce code içi, page:
https://forum.excel-pratique.com/viewtopic.php?forum_uri=excel&t=57461&start=
Merci