Excel VBA ajout bouton fermer supprimer nouveau
Comment créer trois bouton fermer, supprimer, Nouveau sur Excel VBA en moins de 8 min.
EXCEL_2007_VBA_USERFORM_DYNAMIQUE_11_BP_PLUS
Version Dailymotion :
EXCEL_2007_VBA_USERFORM_DYNAMIQUE_11_BP_PLUS
EXCEL VBA Ajout bouton fermer, supprimer, nouveau.
L’objectif est de réaliser à présent trois boutons fermer,supprimer,nouveau dans notre Userform, afin de fermer l’userform , supprimer une ligne et ajouter une ligne dans notre liste de données sans avoir à fermer et ré ouvrir le formulaire et sans perte ni changement lors du changement de ligne dans la liste de données.
Double-clic sur le bouton Fermer crée dans l’Userform :
Private Sub Fermer_Click()
Unload Me
End Sub
Double -lic sur le bouton Supprimer crée dans l’Userform :
Private Sub Supprimer_Click()
Unload Me
If MsgBox(“Confirmez-vous la suppression?”, vbYesNo) = vbYes Then
Rows(ActiveCell.Row).Delete
End If
End Sub
Double -clic sur le bouton Nouveau crée dans l’Userform :
Private Sub Nouveau_Click()
Unload Me
Cells(Range(“A” & ActiveSheet.Rows.Count).End(xlUp).Row + 1, 1).Value = _
Application.WorksheetFunction.Max(Range(“A:A”)) + 1
Range(“A” & ActiveSheet.Rows.Count).End(xlUp).Select
UserForm1.Show
End Sub
Ci-dessous le résultat :
Excel VBA ajout bouton fermer supprimer nouveau
Code source VBA :
Excel VBA ajout bouton fermer supprimer nouveau
