Lier une cellule à une Combobox

[Kouks]

Bonjour tout le monde,

Je voudrais si possible lier une cellule à une combobox commme je peut lier la "valeure cherchée" dans la fonction recherchev à une liste déroulante.

Voir exemple ci-joint

Merci Beaucoup de votre aide

 

[Chloulou]

Re : Lier une cellule à une Combobox

Salut
Pour lier ta valeur de combobox à une cellule, tu utilises le code:

 Worksheet("ta feuille".range("ta cellule").value=Combobox1.value

Autant pour moi, j ai parlé trop vite, je pensais que c'etait pour un formulaire, alors que c'est un controle dans la feuille qui vient de la boite à outil de controle, mais j'imagien que c'est pareil : tu mets ce code dans ta macro

Combobox_change

 

[Kouks]

Re : Lier une cellule à une Combobox

Cher Chlouclou et autres personnes,

Mes connaissances en VB sont nlus pourrais tu me dire ou dois-je placer les lignes dans mon code

Merci

Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
With Sheets("DATA")
    For i = 2 To .Range("B65536").End(xlUp).Row
        ComboBox1.AddItem (.Cells(i, 3).Value)
    Next i
End With
End Sub

 

[Chloulou]

Re : Lier une cellule à une Combobox

ce serait plutot dans une nouvelle macro

 Sub Combobox1_change

Worksheet("ta feuille".range("ta cellule").value=Combobox1.value

end sub