Listbox adresse cellule

[herve62]

Bonsoir à tous
Est il possible de récupérer l'adresse d'une cellule selectionnée d'une ListeBox ?
exemple au pif ! : la liste se remplit à partir de A1-A10 , dans l'USF je selectionne "toto"
qui ferait référence en A5 dans la liste
Donc comment mettre "A5" dans une variable ?
Merci à vous
Hervé

 

[Guest]

Re : Listbox adresse cellule

bonsoir,

C'est surement possible mais comment sont organisées les données et la combobox?

a première vue, faire une combobox avec deux colonnes, dans la premières, mettre les adresse de cellules, la cacher éventuellement (propriété columnsWidth sur 0pts😉

Comme fichier joint

 

[Cousinhub]

Re : Listbox adresse cellule

Bonsoir,
en supposant que tu utilises la propriété RowSource de la ListBox :

With Me.ListBox1
    mon_adresse = Sheets("Feuil1").Range(.RowSource)(.ListIndex + 1).Address
End With

tu récupères l'adresse de ta sélection sous format "$A$6"

 

[herve62]

Re : Listbox adresse cellule

Re
Merci ,
En fait après un "Clic" sur LISTBOX ( choix ) puis un bouton "VALIDER" par exemple , j'aimerais connaitre l'adresse de la cellule d'origine et la mettre dans une variable
du code du bouton "VALIDER" , si je garde mon exemple --> ad="A5" si toto était en A5, afin de m'en servir ensuite

 

[Cousinhub]

Re : Listbox adresse cellule

Re-,
comme expliqué, tu récupères l'adresse...
Ensuite, tu peux l'utiliser comme ceci, par exemple :

Private Sub CommandButton1_Click()
With Me.ListBox1
    mon_adresse = Sheets("Feuil1").Range(.RowSource)(.ListIndex + 1).Address
End With
Range(mon_adresse).Select
End Sub

Edit, tu peux, de plus, déclarer ta variable en Public dans un module standard :

Public mon_adresse As String

 

[herve62]

Re : Listbox adresse cellule

Bonsoir BhBh et merci
Je regarde çà demain en le mettant dans mon code ,,,et de dis QUOI ( parole de CH'TI....comme dans le film qu'il faut aller voir)
Hervé ....du Nord-Pas de Calais

 

[herve62]

Re : Listbox adresse cellule

Bonjour à tous , BhBh
Voilà j'ai essayé ... mais ça plante
Je n'ai jamais utilisé ce genre d'instruction ;
et le "Me.listbox1" , c'est quoi ??
Merci
A+

 

[Guest]

Re : Listbox adresse cellule

bonjour voici le fichier corrigé:

regarde dans les macro, il y a quelque explications. tu peux aussi faire appel à l'aide d'excel pour la description des mots clefs (ex:Me).

bonne journée

 

[herve62]

Re : Listbox adresse cellule

Re
Oui cela fonctionne comme ça ....
Souvent dans l'init de mes combo , j'utilise le .additem
en faisant idem avec la Listbox , l'instruction avec ".address" plante ??
Et toi si tu remplis la Listbox avec .rowsource , cela fonctionne !!
Est-ce le .rowsource le responsable ?

Aide sur VBA : "Me" ne donne rien en recherche ??