Excel VBA changement sur bouton supprimer
Comment sécuriser la dernier ligne d’enregistrement dans Excel VBA en moins de 3 min.
EXCEL_2007_VBA_USERFORM_DYNAMIQUE_13_ENREGISTREMENT
Version Dailymotion :
EXCEL_2007_VBA_USERFORM_DYNAMIQUE_13_ENREGISTREMENT
EXCEL VBA changement sur code source du bouton supprimer, concernant la dernière ligne de la liste de données.
L’objectif est de réaliser à présent sur le bouton supprimer, un changement permettant de supprimer la ligne active, sous deux conditions : si la ligne active = 2 alors je peux supprimer ma ligne, mais je dois ré incrémenter mon numéro chrono, et sinon si la ligen active est > 2 alors je supprime la ligne active et remonte d’une cellule, 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(“Confirmez-vous la suppression?”, vbYesNo) = vbYes Then
If Range(“A” & ActiveSheet.Rows.Count).End(xlUp).Row = 2 Then
Rows(ActiveCell.Row).Delete
Range(“A2”).Value = 1
Else
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 If
UserForm1.Show
End Sub
Ci-dessous le résultat :
Excel VBA changement sur bouton supprimer
Code source VBA :
Excel VBA changement sur bouton supprimer
