DropDown et évennements

[Rai]

Bonsoir,

Je travaille actuellement sur un agenda, qui devra être compatible Excel 97. D'où l'utilisation des objets 'formulaires' et non des objets (ActiveX) issus des contrôles.

Je souhaiterais tenter un principe d'utilisation comme suit :
- l'utilisateur sélectionne la plage correspondant au RDV.
- Une liste déroulante lui propose une catégorie de RDV
- la plage se colorie automatiquement selon le choix.


Pour ce qui est du placement automatique de la liste déroulante, pas de souci.
Ce qui me turlupine est l'interception de l'évennement 'clic' sur la liste.
Qui aurait une solution ? Sachant que si je lie une cellule quelconque à la liste (propriété LinkedCell), cela ne provoque pas d'évennement 'Change' de la feuille de calcul.

Pour info, voici comment je gère le placement de la liste déroulante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 3 And Target.Row < 26 Then
ActiveSheet.DropDowns('test').Visible = True
ActiveSheet.DropDowns('test').ListIndex = 0
ActiveSheet.DropDowns('Test').Top = ActiveCell.Top
ActiveSheet.DropDowns('Test').Left = ActiveCell.Left
Else
ActiveSheet.DropDowns('test').Visible = False
End If
End Sub


Une idée ??

Merci par avance.

 

[_Thierry]

Bonsoir Rai, le Forum

Si je ne m'abuse, les ActiveX sur Feuille en OLEObject passent sous Excel 97 (pas sous Mac).

Sinon regarde la démo Lien supprimé j'y ustilise une de ces DropDown de la barre 'Formulaires'... En fait je ne fais que lui affecter une macro qui va scanner la 'LinkedCell'... Pas vraiment sorcier !

Bonne Soirée
@+Thierry

Message édité par: _Thierry, à: 09/04/2005 21:52

 

[Rai]

re-Bonsoir à tous,

pffffff, j'suis dégouté... comment ai-je pu être aussi aveugle ?

J'ai été tellement obnubilé par mon projet que j'en ai oublié les bases .... clic-droit et 'affecter une macro' était LA solution.

Merci Thierry de m'avoir ouvert les yeux.

Ya des fois o&ugrave; on ferait mieux d'aller boire des apéros avec les potes plutôt que de se pencher sur son clavier.

Bonne fin de soirée à tous.