Affichage ComboBox

fanfan38

XLDnaute Barbatruc

• 5 Avril 2016

• #2

Re : Affichage ComboBox

Bonjour
Est ce que le fichier joint correspond à ta dermande?

A+ François
Ps un fichier exemple aurai été le bienvenu...

 

Pièces jointes

• affcombo.xlsm

  18.9 KB · Affichages: 30

Vote positif 0 Vote négatif

D

Dodi3178

Guest

• 5 Avril 2016

• #3

Re : Affichage ComboBox

Bonjour Francois

Alors cela ne répond pas tout à fait à ma demande car je ne souhaiterai pas passer par un user form.
La combobox a pour objectif de faciliter la saisie en introduisant une saisie intuitive.
Le fichier cette fois-ci est en piece jointe.

En esperant trouver quelqu'un pour m'aider

Merci d'avance

 

Pièces jointes

• Classeur1.xlsm

  27.9 KB · Affichages: 44
• Classeur1.xlsm

  27.9 KB · Affichages: 34

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 5 Avril 2016

• #4

Re : Affichage ComboBox

Tu remplaces

If Not Intersect([A5:A5], Target) Is Nothing And Target.Count = 1 Then
par
If Target.MergeCells = True Then

Par contre l'erreur qui suit Me.ComboBox1 = Target... je ne sais pas?
A+ François

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 5 Avril 2016

• #5

Re : Affichage ComboBox

Apparemment tu ne peux mettre le contenu d'une cellule fusionnée comme valeur d'un combobox...
Par contre si tu copies la valeur de ta cellule fusionnée dans une autre cellule (non fusionnée) ça marche
maligne = Target.Row
'déplacement de la valeur de la cellule fusionnée dans la cellule de la même ligne mais colonne 10...
Cells(maligne, 10).Value = Target.Value
Me.ComboBox1.Value = Cells(maligne, 10).Value 'Target.Value

Idem pour cette ligne là
If Target <> "" Then SendKeys "{esc}"
remplacé par
If Cells(maligne, 10).Value <> "" Then SendKeys "{esc}"

A+ François

 

Vote positif 0 Vote négatif

D

Dodi3178

Guest

• 6 Avril 2016

• #6

Re : Affichage ComboBox

Bonjour Francois

Je ne comprends pas comment il faut faire pour faire apparaitre la combobox avec le code merge cells. J'ai strictement remplacé le code que tu avais indiqué, mais je pense qu'il manque quelque chose. Je ne suis pas tres forte en VBA j'essaie d'apprendre toute seule donc parfois il me manque le basique.

Merci de ton aide

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 6 Avril 2016

• #7

Re : Affichage ComboBox

Regarde le fichier joint est tiens moi au courant...
A+ François

 

Pièces jointes

• Classeur1 (1).xlsm

  25.3 KB · Affichages: 43
• Classeur1 (1).xlsm

  25.3 KB · Affichages: 36

Vote positif 0 Vote négatif

D

Dodi3178

Guest

• 8 Avril 2016

• #8

Re : Affichage ComboBox

Bonjour Francois

Ca a l'air de fonctionné. Je vais continuer mes essais dans l'après midi.
Je te recontacterai en cas de probleme.

Merci beaucoup...

 

Vote positif 0 Vote négatif