executer une macro depuis une cellule

[FREESURF]

ma quete du graal se poursuit.
j'appelle un userform depuis une cellule, grace à votre aide, merci encore.
Je voudrais que la valeur de la cellule sur laquelle j'ai clické soit affiché dans un combobox de ce meme userform.

Merci pour votre aide.

 

[Hervé]

Bonsoir freesurf

ce code ajoute à la combobox, la valeur de la cellule cliqué, et sélectionne cette item :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'evite bug si multiselection
If Target.Column = 1 Then
        With UserForm1
                With .ComboBox1
                        .AddItem Target 'ajout la valeur à la combobox
                        .ListIndex = .ListCount - 1 'sélectionne la nouvelle entré
                End With
                .Show
        End With
End If
End Sub

tandis que celui-ci sélectionne la valeur de la cellule dans une combobox près rempli :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'evite bug si multiselection
If Target.Column = 1 Then
        With UserForm1
                .ComboBox1.Value = Target 'sélectionne la nouvelle entré
                .Show
        End With
End If
End Sub

salut

 

[FREESURF]

Merci Hervé, cette formule fonctionne à merveille.
Grace à votre aide je touche au but
A+