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 VBA changement sur bouton supprimer
Code source VBA :
Excel VBA changement sur bouton supprimer
