XL 2016 résultat liste déroulante dans une cellule active - vba

[coripdc]

bonjour,

j'aimerai avoir le résultat de ma liste déroulante ce reporter sur la cellule active colonne D que j'aurai choisie avant de lancer le formulaire.
(et non dans la colonne D1)

Novice en VBA je vous remercie d'avance de votre aide qui me faciliterait la procédure

 

[laurent950]

Bonsoir,

Private Sub CmdOK_Click()
   'j = 1
    With ListeClients
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then
                'Cells(j, 4) = .List(i, 0): Cells(j, 5) = .List(i, 1)
                If Not Application.Intersect(ActiveCell, Range("D:D")) Is Nothing Then ActiveCell = .List(i, 0)
               ' .Selected(i) = False
               ' j = j + 1
            End If
        Next
    End With
    DlgChoixMutliple.Hide
End Sub

 

[coripdc]

Bonsoir et un GRAND GRAND MERCI

 

[job75]

Bonsoir coripdc, Laurent950,

Plus simplement :

Private Sub CmdOK_Click()
    With ListeClients
        If ActiveCell.Column <> 4 Or ActiveCell.Row < 4 Or .ListIndex = -1 Then Exit Sub
        ActiveCell = .List(.ListIndex, 0)
        ActiveCell(1, 2) = .List(.ListIndex, 1)
    End With
    Unload Me
End Sub

Il serait aussi plus logique de mettre la propriété MultiSelect à 0 (fmMultiSelectSingle).

A+