Ecrire à partir d'une liste d'un userform
Bonjour à tous,
voila je suis débutant en VBA je vais donc vous solliciter souvent.
je suis entrain de me créer ma GMAO (gestion de la maintenance assisté par ordinateur).
J'ai fait un userform avec ma liste de machine et quand je clique sur ok apparait bien dans ma feuille avec ce code
Private Sub Bt_ok_Click()
Range("a2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0) = List_mat.Value
End Sub
le seul problème c'est que je voudrais faire apparaitre un message si rien n'est selectionné
j'ai donc essayé pour aboutir a ce code mais je ne trouve pas la solution
Private Sub Bt_ok_Click()
Dim List_mat As String
If List_mat = "" Then
MsgBox ("veuillez selectionner une machine")
End If
Range("a2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0) = List_mat.Value
End Sub
merci a vous tous