Remplir cellule en fonction d'un combobox

J

jp14

XLDnaute Barbatruc

• 2 Décembre 2009

• #2

Re : Remplir cellule en fonction d'un combobox

Bonjour

Le code pour effectuer cette opération dépend de la manière dont on a rempli le combobox.
On peut utiliser Listindex, faire une recherche dans la colonne A pour trouver la position, utiliser une colonne cachée.

JP

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 2 Décembre 2009

• #3

Re : Remplir cellule en fonction d'un combobox

Bonsoir le jp14, le forum,

Voici le code pour alimenter mon combobox :

With Sheets("Sheet3")
For Each C In .Range("a2:A3500")
On Error Resume Next
x.Add C, CStr(C)
If Err = 0 Then ComboBox1.AddItem (CStr(C))
On Error GoTo 0
Next C
End With

Merci

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 3 Décembre 2009

• #4

Re : Remplir cellule en fonction d'un combobox

Bonjour

En ajoutant une ligne et en modifiant les propriétés du combo
.ColumnCount =2
.ColumnWidths = "50;0"



With Sheets("Sheet3")
For Each C In .Range("a2:A3500")
On Error Resume Next
x.Add C, CStr(C)
If Err = 0 Then
ComboBox1.AddItem (CStr(C))
ComboBox1.List(.ListCount - 1, 1) = c.Offset(0, 1).Value
End if
On Error GoTo 0
Next C
End With


La valeur sera par exemple
Sheets("feuil1").range("B9").value = ComboBox1.List(ComboBox1.ListIndex, 1)


A tester

JP

 

Dernière édition: 3 Décembre 2009

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 3 Décembre 2009

• #5

Re : Remplir cellule en fonction d'un combobox

Bonsoir le jp14, le forum,

Je veux transférer ma donnée feuil3 colonne B (et non la donnée du combobox (donnée en A)) dans la cellule B9 de la feuille 1 (pas dans un textbox).

Merci

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 3 Décembre 2009

• #6

Re : Remplir cellule en fonction d'un combobox

Bonjour le fil,

Solution trouvée.

Merci

 

Dernière édition: 3 Décembre 2009

Vote positif 0 Vote négatif