Combobox = Cellule

[apdf1]

Bonjour,

J'aimerais connaitre le code suivant ;,
J'ai sur une feuille avec une combobox1 et j'aimerais que la ComBobox et égal a la cellule "D4"

Ci joint mon fichier.

Je vous remercie d'avance

Cordialement
Max

 

[CHALET53]

Re : Combobox = Cellule

bonjour,

Une procédure événementielle sur la feuille 1

Private Sub Worksheet_Change(ByVal Target As Range)

If Not (Intersect(Target, Range("D4")) Is Nothing) Then
ComboBox1 = Range("D4").Value
End If
End Sub

 

[apdf1]

Re : Combobox = Cellule

Bonjour Chalet53

Je te remercie et te souhaite une bonne soirée

@+
Max