XL 2019 Combobox ActiveX sur feuille excel

Electronull · Aujourd'hui à 09:08

Bonjour à tous,

Voici un petit problème que je n'arrive pas à résoudre.
Sur une feuille Excel, j'ai une ComboBox qui apparait sur la ligne de la cellule active de la colonne D.
Une liste de produits s'affiche quand je clic sur la Combo, ça c'est fonctionnel.
Là où se trouve le problème, c'est quand je clic sur une cellule qui contient déjà un article, la Combo qui apparait cache le nom de l'article et comme ma Combo est vide, je ne vois pas le nom.

Comment fair pour que le nom de l'article soit dans la Combo, comme si je le sélectionnait.
Ma Combo contient 2 colonnes, l'ID_Produit et le nom de l'article, la colonne ID est à 1 pt.

Merci

Dranreb · Aujourd'hui à 09:21

Bonjour.
Dans la Sub qui positionne l'OLEObject (je suppose que c'est une Private Sub Worksheet_SelectionChange), initialisez la CBxCelActve.Text = Target.Value (CBxCelActive étant le nom supposé de votre ComboBox ActiveX).
On est toujours obligé de supposer plein de choses et on ne peut jamais tester nos propositions quand il n'y a pas de classeur joint.

Electronull · Aujourd'hui à 09:41

Dranreb à dit:
Bonjour.
Dans la Sub qui positionne l'OLEObject (je suppose que c'est une Private Sub Worksheet_SelectionChange), initialisez la CBxCelActve.Text = Target.Value (CBxCelActive étant le nom supposé de votre ComboBox ActiveX).
On est toujours obligé de supposer plein de choses et on ne peut jamais tester nos propositions quand il n'y a pas de classeur joint.

Salut,
Merci pour ton aide.
Oui, sans fichier c'est compliqué, je regarde pour mettre un fichier minimum mais il y a 2 fichiers et un PW pour entrer dedans, je regarde à ça mais il me faut un peu de temps.
En fait, il faut que lorsque je me positionne sur une cellule qui contient un produit, la combobox se place directement sur l'article qui correspond à la cellule, mais affiche toute la liste quand même pour permettre une modif de l'article?

Mais je pose tout de même la question des fois que quelqu'un aurait un petit exemple.
Merci

Dranreb · Aujourd'hui à 09:48

Pourquoi pas un UserForm qui permettrait d'ajouter, modifier, supprimer ?

Electronull · Aujourd'hui à 09:59

Je l'ai déjà, mais si la vente est validée, et qu'on doit modifier un produit pour une raison ou une autre, il faut pouvoir le faire.
Je viens d'ajouter l'ID sur la colonne A qui ne servait à rien, donc quand je suis sur la cellule, il faudrait que je reprenne l'ID de l'article à modifier, et rechercher l'article dans la Combo, et l'afficher en premier, mais tout en gardant la liste complète dans la Combo.
Je sais pas si c'est clair?

TooFatBoy · Aujourd'hui à 10:03

Hello,

Juste par curiosité : pourquoi une ComboBox plutôt qu'une simple liste déroulante ?
Y a-t-il des subtilités de saisie ?

Dranreb · Aujourd'hui à 10:04

Personnellement j'équiperais l'UserForm d'une méthode pour lui communiquer un article sélectionné à afficher.

Electronull · Aujourd'hui à 10:15

TooFatBoy à dit:
Hello,

Juste par curiosité : pourquoi une ComboBox plutôt qu'une simple liste déroulante ?
Y a-t-il des subtilités de saisie ?

Non, pas de subtilités.
Je ne sais pas, j'ai mis ça sans réfléchir plus loin.
Peut-on placer par le code la liste déroulante sur la cellule Dx active, donc 1 seule liste pour toute la feuille.
Mais n'aurais-je pas le même problème?

TooFatBoy · Aujourd'hui à 10:20

Electronull à dit:
donc 1 seule liste pour toute la feuille.

Non.

Electronull · Aujourd'hui à 10:26

En fait, ma combobox se positionne sur la cellule que je viens de cliquer dans la col D
Mais avec la liste déroulante, je ne peux pas avoir un tableau qui se trouve dans un autre classeur dont la source de données est un tableau avec plusieurs colonnes ?

TooFatBoy · Aujourd'hui à 10:49

Electronull à dit:
En fait, ma combobox se positionne sur la cellule que je viens de cliquer dans la col D

Oui, pas de problème, on avait bien compris cette partie du problème. 😉

job75 · Aujourd'hui à 11:30

Bonjour à tous,

Voyez le fichier joint et cette macro :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
    .Visible = False
    If Intersect(ActiveCell, Columns(4)) Is Nothing Then Exit Sub
    .Text = ActiveCell
    If .ListIndex = -1 Then ActiveCell = "": .Text = ""
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Visible = True
End With
End Sub

A+

Electronull · Aujourd'hui à 11:46

job75 à dit:

Bonjour à tous,

Voyez le fichier joint et cette macro :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
    .Visible = False
    If Intersect(ActiveCell, Columns(4)) Is Nothing Then Exit Sub
    .Text = ActiveCell
    If .ListIndex = -1 Then ActiveCell = "": .Text = ""
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Visible = True
End With
End Sub

A+

OK, je vais voir si je sais modifier mon code pour une liste.
Mais, quand je sélectionne un chiffre dans la liste, il ne se passe rien, même si je fais Enter. Il faut que je tape le chiffre et Enter pour valider.

Dranreb · Aujourd'hui à 12:29

Une proposition.

job75 · Aujourd'hui à 12:54

Electronull à dit:
Mais, quand je sélectionne un chiffre dans la liste, il ne se passe rien, même si je fais Enter. Il faut que je tape le chiffre et Enter pour valider.

Bien sûr il vous faut utiliser une macro ComboBox1_Change, je supposais que vous l'aviez créée.

XL 2019 Combobox ActiveX sur feuille excel

Electronull

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

Electronull

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

Electronull

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Electronull

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

Electronull

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Electronull

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

XL 2019 Combobox ActiveX sur feuille excel

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency