EXCEL_2007_VBA_USERFORM_DYNAMIQUE_12_DERNIERE_LIGNE

Comment supprimer un ligne et changer la cellule active en moins de 2 min.

EXCEL_2007_VBA_USERFORM_DYNAMIQUE_12_DERNIERE_LIGNE

 

Version Dailymotion :


EXCEL_2007_VBA_USERFORM_DYNAMIQUE_12_DERNIERE_LIGNE

EXCEL VBA changement sur code source du bouton supprimer.

L’objectif est de réaliser à présent sur le bouton supprimer, un changement permettant de remontée d’une ligne vers le haut à la suppression de la ligne active, sans quitter l’Userform et 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 Supprimer crée dans l’Userform :

Private Sub Supprimer_Click()
Unload Me

If MsgBox(“Confirmer-vous la suppression? “, vbYesNo) = vbYes Then
Rows(ActiveCell.Row).Delete
If Range(“A” & ActiveSheet.Rows.Count).End(xlUp).Row + 1 = ActiveCell.Row Then
ActiveCell.Offset(-1, 0).Select
End If
End If

End Sub

Ci-dessous le résultat :

EXCEL_2007_VBA_USERFORM_DYNAMIQUE_12_DERNIERE_LIGNE

Excel VBA changement sur bouton supprimer

Code source VBA :

EXCEL_2007_VBA_USERFORM_DYNAMIQUE_12_DERNIERE_LIGNE

Excel VBA changement sur bouton supprimer

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 *