Discussion :

[Joseldsm]

Bonjour à toutes et à tous !


Je suis en train de créer un outils de gestion technique sur Excel, et j'ai créé des listes déroulantes avec les contrôles ActiveX.

Cependant, je rencontre un soucis. Je n'arrive pas à associer une liste déroulante à une cellule.
J'aimerais pouvoir le faire pour ensuite pouvoir exploiter le choix sélectionner dans la liste (qui sera le résultat de la cellule à laquelle la liste sera associée) dans mes macros.
De plus, ça permettra à la taille de la liste déroulante de s'ajuster directement à la taille de la cellule.


Merci bien !

[Menhir]

Pourquoi n'utilises-tu pas plutôt une liste déroulante par validation de données ?
Ruban Données > Icone Validation de données > Validation de données > Autoriser = Liste.

La liaison et l'ajustement aux cellules se ferait automatiquement.

[Joseldsm]

Pourquoi pas, mais du coup quels sont les avantages à travailler avec la liste déroulante contrôle ActiveX ?

Merci pour ton aide !

[Menhir]

C'est une bonne question dont je n'ai pas la réponse. Personnellement, je n'ai jamais trouvé d'avantage à la création de liste déroulante en objet, excepté, justement, le fait de pouvoir s'affranchir des cellules et en placer où on veut, y compris, par exemple, dans un graphique ou par dessus une image..

[Joseldsm]

Très bien, merci beaucoup pour ton aide en tout cas ! Bonne fin de journée

[boisgontierjacques]

Bonsoir,

Choix dans un combobox (Simulation de données/validation)

Avantages:

-plus de lignes affichées
-on peut faire une saisie intuitive type Google (ce que ne permet pas Données/Validation)

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
18
19
20
21
22
23
24
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([A2:A16], Target) Is Nothing And Target.Count = 1 Then
    Me.ComboBox1.List = Sheets("bd").Range("Liste").Value
    Me.ComboBox1.Height = Target.Height + 3
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target
    Me.ComboBox1.Visible = True
    If Val(Application.Version) > 10 Then SendKeys "{esc}"
    'Me.ComboBox1.DropDown
  Else
    Me.ComboBox1.Visible = False
  End If
End Sub
 
Private Sub ComboBox1_Change()
 ActiveCell.Value = Me.ComboBox1
End Sub
 
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then ActiveCell.Offset(1).Select
End Sub

http://boisgontierjacques.free.fr/fi...DVComboBox.xls
http://boisgontierjacques.free.fr/fi...veComboBox.xls

Jacques Boisgontier