EXCEL_2007_VBA_USERFORM_DYNAMIQUE_11_BP_PLUS

EXCEL_2007_VBA_USERFORM_DYNAMIQUE_11_BP_PLUS

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_2007_VBA_USERFORM_DYNAMIQUE_11_BP_PLUS

Excel VBA ajout bouton fermer supprimer nouveau

Code source VBA :

EXCEL_2007_VBA_USERFORM_DYNAMIQUE_11_BP_PLUS

Excel VBA ajout bouton fermer supprimer nouveau

Recevoir la newsletter

Inscrivez-vous maintenant et recevez un e-mail les fois où je publie du contenu.

I agree to have my personal information transfered to AWeber ( more information )

Je hais les spams. Vous pouvez vous désinscrire à tout moment.

Taggé .Mettre en favori le Permaliens.

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *