antoinel33
XLDnaute Nouveau
Bonjour,
Voici le module qui appelle mon userform:
Sub nouvprep()
nouveau_prepa.Show
Range("B14").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
et là mon Useform:
Sub b_validationprepa_Click()
If Me.t1 = "" Then
MsgBox "Saisir un nom!"
Me.t1.SetFocus
Exit Sub
End If
Range("B14").Value = nouveau_prepa.t1.Value
Unload Me
Sheets("Personnel").Select
End Sub
Private Sub b_fin_Click()
Unload Me
End Sub
Mon problème ici est quand j'annule la saisie dans mon userform ça me rajoute quand même une ligne.
Avez-vous une solution à ce problème?
Merci d'avance pour votre aide.
Voici le module qui appelle mon userform:
Sub nouvprep()
nouveau_prepa.Show
Range("B14").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
et là mon Useform:
Sub b_validationprepa_Click()
If Me.t1 = "" Then
MsgBox "Saisir un nom!"
Me.t1.SetFocus
Exit Sub
End If
Range("B14").Value = nouveau_prepa.t1.Value
Unload Me
Sheets("Personnel").Select
End Sub
Private Sub b_fin_Click()
Unload Me
End Sub
Mon problème ici est quand j'annule la saisie dans mon userform ça me rajoute quand même une ligne.
Avez-vous une solution à ce problème?
Merci d'avance pour votre aide.