XL 2016 Problème de DropDown d'une ComboBox (VBA)

[crocrocro]

Bonjour à tous,

sur ma feuille de saisie (nommée Saisie), la colonne B (plage nommée SaisieCombo) se fait par l'intermédiaire d'une ComboBox dont la liste des Items correspond à une plage nommée (ListePlantes) de la feuille Catalogue.
Sur l'événement Worksheet_SelectionChange

Si la sélection en cours est une cellule unique appartenant à la plage de saisie par Combo, la Combobox est initialisée (mise aux dimensions de la cellule ... et visible).​

Sur l'événement ComboBox1_Change,

Si le texte de la ComboBox correspond exactement à un élément de la liste ListePlantes, la cellule active (superposée à la ComboBox) prend pour valeur le texte de la ComboBox sinon vide.​

Sur l'événement ComboBox1_GotFocus,

DropDown de la ComboBox​

J'ai le problème suivant :
- si j'effectue une saisie dans la ComboBox et que je valide ma saisie par la Touche Entrée (interceptée dans l'événement ComboBox1_KeyDown), je passe à la colonne suivante, fonctionnement normal
- si je sélectionne une cellule (de la plage en colonne B), par exemple B4, la Combobox s'affiche comme attendu comme ceci

Si je sélectionne avant toute autre action, une autre cellule (de la plage en colonne B), par exemple B15, la Combobox s'affiche en B15 mais le DropDown s'effectue en dessous de B4 (la sélection précédente) comme ceci

J'ai simplifié le code pour éliminer des causes potentielles, sans succès.
La solution au problème doit être évidente... mais je ne l'ai pas.
Merci d'avance à ceux qui se pencheront sur mon problème

 

[youky(BJ)]

Bonjour crocro,
Ajoute la ligne en gras
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Range(MaPlageSaisie), Target) Is Nothing And Target.Count = 1 Then
Me.ComboBox1.Visible = False
et le reste de la macro

Bruno

 

[crocrocro]

Super !
Merci Bruno.
J'imagine que tu as déjà eu le problème car pas très intuitif de rendre la combo invisble puis la rendre visible tout de suite après

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Range(MaPlageSaisie), Target) Is Nothing And Target.Count = 1 Then
        Me.ComboBox1.Visible = False 'ajout à cause du pb du DropDown pas au bon endroit
        Me.ComboBox1.List = Sheets(F_Liste).Range(MaListe).Value
        Me.ComboBox1.Height = Target.Height + 3
        Me.ComboBox1.Width = Target.Width
        Me.ComboBox1.Top = Target.Top
        Me.ComboBox1.Left = Target.Left
        Me.ComboBox1.BackColor = Target.Interior.Color
        Me.ComboBox1.Font.Name = Target.Font.Name
        Me.ComboBox1.ForeColor = Target.Font.Color
        Me.ComboBox1.Font.Bold = Target.Font.Bold
        Me.ComboBox1.Font.Size = Target.Font.Size
        Me.ComboBox1 = Target.Value
        Me.ComboBox1.MatchEntry = fmMatchEntryComplete
        Me.ComboBox1.Visible = True
        Me.ComboBox1.Activate
    Else
        Target.Activate
        Me.ComboBox1.Visible = False
    End If

End Sub