Algorithme

Fermé
mo15 - Modifié par pijaku le 30/03/2016 à 14:24
Bonjour,
je voudrais traduire ce code VBA en algorithme s'il vous plait

Merci d'avance.
Private Sub BtnOk_Click()
    ActiveCell.Value = CbxMotif.Text 
    Unload Me
End Sub

Private Sub CbxMotif_Change()

End Sub

Private Sub UserForm_Activate()
    Set FeuilMotif = Sheets("Listes")
    dl = FeuilMotif.Cells(Rows.Count, 14).End(xlUp).Row
    If dl > 4 Then
        CbxMotif.List = Range(FeuilMotif.Cells(4, 14), FeuilMotif.Cells(dl, 14)).Value  
    Else
        CbxMotif.List = Range(FeuilMotif.Cells(4, 14), FeuilMotif.Cells(5, 14)).Value  
    End If
    CbxMotif.Style = fmStyleDropDownList 
End Sub