Voir le resultat dans une celulle

Bonjour,

si tu veux que le nom sur lequel tu as cliqué dans ta listbox ( listbox
de la barre d'outils formulaires d'ailleurs ici) soit inscrit dans la
cellule A2 p.e. Ici la listbox s'appelle toto et le code suivant est une
macro affectée au controle,cette macro se trouvant dans le module de
feuille (Feuil1) dans laquelle se trouve le listbox

With Me.Shapes("toto").ControlFormat
Range("A2") = .List(.ListIndex)
End With

A+

Bonjour à toutes et tous,
je voudrai créer une listbox qui, une fois apparente sur Excel, puisse être
liée à une celulle.
Concrètement je veux rentrer le nom d'une ville dans une listbox et que ce
nom apparaise dans la celulle A1.
Merci pour vos réponses
Chokes

Merci anonymousA
Mais je me suis mal exprimé, en réalité je veux ecrire un nom dans un
listbox qui est lui-même dans un userform.
et en tapant un nom je souhaite qu'il soit reproduit en A1 pe.
je suis en train de faire un formulaire avec des noms à inscrire dans
plusieurs rubriques lesquelles doivent pouvoir se reporter dans des cellules
précises et différentes après avoir cliqué sur un click "valide".

Bonjour,

si tu veux que le nom sur lequel tu as cliqué dans ta listbox ( listbox
de la barre d'outils formulaires d'ailleurs ici) soit inscrit dans la
cellule A2 p.e. Ici la listbox s'appelle toto et le code suivant est une
macro affectée au controle,cette macro se trouvant dans le module de
feuille (Feuil1) dans laquelle se trouve le listbox

With Me.Shapes("toto").ControlFormat
Range("A2") = .List(.ListIndex)
End With

A+

Bonjour à toutes et tous,
je voudrai créer une listbox qui, une fois apparente sur Excel, puisse être
liée à une celulle.
Concrètement je veux rentrer le nom d'une ville dans une listbox et que ce
nom apparaise dans la celulle A1.
Merci pour vos réponses
Chokes

Bonjour,

avec un listbox rentrer une valeur nouvelle, je ne sais pas faire. Avec
un combobox,

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim tableau()

Range("A1") = Me.ComboBox1.Value

End With


End Sub

si on veut en + que la valeur nouvelle soit insérée dans le combobox (
attention cet enregistrement ne durerar que le temps de l'ouverture du
UF, sion il faudra trouver le moyen de sauvegarder autrement,

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim tableau()

With Me.ComboBox1
Range("A1") = .Value
tableau = .List
For I = LBound(tableau) To UBound(tableau)
If tableau(I, 0) = Me.ComboBox1.Value Then Exit Sub
Next
.AddItem .Value
End With

End Sub

A+

Merci anonymousA
Mais je me suis mal exprimé, en réalité je veux ecrire un nom dans un
listbox qui est lui-même dans un userform.
et en tapant un nom je souhaite qu'il soit reproduit en A1 pe.
je suis en train de faire un formulaire avec des noms à inscrire dans
plusieurs rubriques lesquelles doivent pouvoir se reporter dans des cellules
précises et différentes après avoir cliqué sur un click "valide".

Bonjour,

si tu veux que le nom sur lequel tu as cliqué dans ta listbox ( listbox
de la barre d'outils formulaires d'ailleurs ici) soit inscrit dans la
cellule A2 p.e. Ici la listbox s'appelle toto et le code suivant est une
macro affectée au controle,cette macro se trouvant dans le module de
feuille (Feuil1) dans laquelle se trouve le listbox

With Me.Shapes("toto").ControlFormat
Range("A2") = .List(.ListIndex)
End With

A+

Bonjour à toutes et tous,
je voudrai créer une listbox qui, une fois apparente sur Excel, puisse être
liée à une celulle.
Concrètement je veux rentrer le nom d'une ville dans une listbox et que ce
nom apparaise dans la celulle A1.
Merci pour vos réponses
Chokes