Valeur combobox copiée automatiquement dans une cellule

gimli

XLDnaute Occasionnel

• 27 Mai 2010

• #2

Re : Valeur combobox copiée automatiquement dans une cellule

Bonjour,

il faut, je pense, que tu précises le classeur et la feuille sur laquelle tu travailles :

Sub ComboBox1_Change()
MonClasseur.Sheets(MaFeuille).cells(1,1).value = combobox1.value
End Sub

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mai 2010

• #3

Re : Valeur combobox copiée automatiquement dans une cellule

bonjour tudemenage

Ou est située la combobox ??
Feuille ?
UserForm ?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 27 Mai 2010

• #4

Re : Valeur combobox copiée automatiquement dans une cellule

Bonjour jedemenage,

Edit : bizarre ton code fonctionne chez moi...

à priori, le plus simple c'est en modifiant la propriété LinkedCell de ta combobox et mettant A1 dans la propriété

sinon, sur le principe :

Code:

Sub ComboBox1_Change() 
range("A1").value = combobox1.[COLOR=red]Text[/COLOR]
End Sub

Edit : Bonjour PierreJean, Bonjour gimli

 

Vote positif 0 Vote négatif

J

jedemenage

XLDnaute Nouveau

• 27 Mai 2010

• #5

Re : Valeur combobox copiée automatiquement dans une cellule

PierreJean : La combo est insérée directement dans la feuille : il s'agit d'un contrôle formulaire.

Gimli : cela ne marche pas...


Tototiti2008 : non plus...

Je joins un exemple tout simple, en guise de support.

 

Pièces jointes

• Combo_Val.xls

  31.5 KB · Affichages: 98

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 27 Mai 2010

• #6

Re : Valeur combobox copiée automatiquement dans une cellule

Re,

Tu as utilisé une "combobox" de la barre d'Outils Formulaires.
Pour un code évènementiel, il est vivement conseillé d'utiliser une Combobox de la boite à outils Contrôles
Sinon, tu restes avec cette combobox, clic droit dessus - format de contrôle
tu renseignes Cellule liée
et avec une fonction Index, tu retrouves la valeur en fonction de son emplacement (rang)

 

Pièces jointes

• Combo_Val(1).xls

  29 KB · Affichages: 85

Dernière édition: 27 Mai 2010

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mai 2010

• #7

Re : Valeur combobox copiée automatiquement dans une cellule

Re

Ce que t'as suggéré Tototiti fonctionne parfaitement a propos de LinkedCell
D'ailleurs tu peux le verifier : ta Combobox (Formulaire) donne bien un changement dans la cellule A15 affectée a LinkedCell
Par contre une combobox (Formulaire) n'a pas d'evenement _Change , a l'inverse de la Combobobox (Controles)
Je t'en ai mis une avec une macro permettant de faire fonctionner ta Combobox(Formulaire)

Edit : Salut Tototiti 🙂

 

Pièces jointes

• Combo_Val.zip

  12.3 KB · Affichages: 92

Dernière édition: 27 Mai 2010

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 27 Mai 2010

• #8

Re : Valeur combobox copiée automatiquement dans une cellule

Re,

Salut PierreJean,

Comme ça il a un exemple avec chaque type de combobox 😉

 

Vote positif 0 Vote négatif

J

jedemenage

XLDnaute Nouveau

• 27 Mai 2010

• #9

Re : Valeur combobox copiée automatiquement dans une cellule

Comme je l'ai indiqué dans mon premier message, je ne progresse pas encore...

Merci beaucoup pour ces 2 solutions qui répondent totalement à mes besoins.

Bonne fin de journée.

 

Vote positif 0 Vote négatif