Valeur combobox copiée automatiquement dans une cellule

[jedemenage]

Bonjour,

Depuis que j'ai découvert ce forum et downloadé des tonnes d'exemples, je progresse.

Mais, compte tenu de ma question ci-dessous, je sais que vous n'en croirez rien... (et je vous promets que j'ai cherché, cherché la solution sur Internet et le présent forum, sans succès)

"Comment insérer automatiquement dans une cellule la valeur sélectionnée d'une combobox ?"

J'ai essayé cela (dans "Module") :

Sub ComboBox1_Change()
range("A1").value = combobox1.value
End Sub


mais ça ne marche pas...

Cela m'ouvre le débogueur et met la ligne
"range("A1").value = combobox1.value"
en jaune ???

Où est donc l'erreur ?? Mais où est-elle ?

Merci d'avance pour votre support.

 

[gimli]

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

 

[pierrejean]

Re : Valeur combobox copiée automatiquement dans une cellule

bonjour tudemenage

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

 

[tototiti2008]

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 :

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

Edit : Bonjour PierreJean, Bonjour gimli

 

[jedemenage]

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.

 

[tototiti2008]

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)

 

[pierrejean]

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 🙂

 

[tototiti2008]

Re : Valeur combobox copiée automatiquement dans une cellule

Re,

Salut PierreJean,

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

 

[jedemenage]

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.