Discussion :

[thomanneca]

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..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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

[Docmarti]

Bonjour thomanneca;

Tu peux sauver quelque part comme dans ComboBox1.Tag,
l'adresse de la première cellule du tableau qui alimente ComboBox1.

Puis tu procèdes comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub UserForm_Initialize()
 
 ComboBox1.RowSource = "feuil1!B3:B9"
 
 ComboBox1.Tag = ComboBox1.RowSource 'ou ComboBox1.Tag = "feuil1!B3:B9"
 
End Sub
 
Private Sub Button1_Click()
 
  If Button1.Enabled = True Then
 
      Set r = Range(ComboBox1.Tag)
 
      Set cellule = r.Cells(1, 1).Offset(ComboBox1.ListIndex)
 
      cellule.Offset(0, 2).Value = "x"
 
  End If
 
End Sub