[XL-2000] Liens listes déroulantes volets figés texte/dates

[sergentsulfurix]

Bonjour à tous ! J'ai un code qui permet de faire des liens à partir de listes déroulantes vers des colonnes et des lignes dans une feuille ayant des volets figés. Ces liens ne contiennent que du texte. Mon problème c'est que maintenant j'aimerai que cela fonctionne avec du texte et des dates (à partir d'un calendrier), et là ... je n'arrive pas à modifier le code pour que cela fonctionne. J'ai mis un fichier nommé "lienstexte" dont le code fonctionne, et un fichier nommé "liensdate" où là, je n'arrive pas à adapter le code pour qu'il fonctionne avec les dates avec en plus les détails de ma demande.
Par avance merci de prendre du temps pour m'aider.
Cordialement
Frédéric

[bbil]

Fichier joint dans vos discussions

on peu voir ce code et l'endroit ou cela bloque ?











--------------------------------------------------------------------
Je n'ouvre pas les pièces jointes ...

[sergentsulfurix]

le code est :

Code :

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, Range("B2:B4")) Is Nothing Then Exit Sub
If Range("B2") = "" Or Range("B4") = "" Then Exit Sub
lg = Range("A5:B65536").Find(Range("B4").Value, LookIn:=xlValues, lookat:=xlWhole).Row
col = Range("B1:IV1").Find(Range("B2").Value, LookIn:=xlValues, lookat:=xlWhole).Column
ActiveWindow.ScrollRow = lg
ActiveWindow.ScrollColumn = col
End Sub

ça bloque à la quatrième ligne