Rechercher l'adresse d'une cellule remplie via une combobox

Résolu/Fermé
thomanneca - 2 févr. 2014 à 18:06
 thomanneca - 2 févr. 2014 à 18:44
Bonjour,

J'ai une combobox dans un userform. Les données de la combobox proviennent d'un tableau en feuil1 (liste).

ex. liste de B3:B9 de ma feuil1

lait
farine
sucre
épices
etc

Jusque la, ca marche ;)

Maintenant, j'aimerais, qu'en activant un button dans ce même userform, un "x" s'inscrive sur la même ligne que la valeur sélectionnée dans ma cbobox.

Cela donnerait par exemple :

je sélectionne dans ma liste la farine
farine = B4 en feuil1

je cherche à avoir un "x" en D4

La où je bloque, c'est pour rechercher l'adresse de la cellule B4..



Private Sub Button1_Click()

If Button1.Enabled = True Then

cellule = ComboBox1.ListIndex.Address

Range(cellule.Address).Offset(0, 2).Value = "x"

End If

End Sub


Merci pour votre bon coup de main ;)

A voir également:

2 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
2 févr. 2014 à 18:39
Bonjour,

Private Sub CommandButton1_Click()
'si plage de cellules nommee
Range(Range("liste").Cells(ComboBox1.ListIndex + 1, 1).Address).Offset(0, 2).Value = "x"
'ou
Range("B" & 3 + ComboBox1.ListIndex).Offset(0, 2).Value = "x"
End Sub
0
Nikel, je crois que c'est ça qu'il me fallait ;)

Merci pour ton aide !!
0