EXCEL_2007_VBA_USERFORM_DYNAMIQUE_13_ENREGISTREMENT

EXCEL_2007_VBA_USERFORM_DYNAMIQUE_13_ENREGISTREMENT

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_2007_VBA_USERFORM_DYNAMIQUE_13_ENREGISTREMENT

Excel VBA changement sur bouton supprimer

Code source VBA :

EXCEL_2007_VBA_USERFORM_DYNAMIQUE_13_ENREGISTREMENT

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 e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *