Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Oui ou non ?

Oui ou non ?

2 réponses
Avatar
Philippe
Bonsoir,

Avec le code si dessous je supprime une ligne donnée, je voudrais modifier
ce code pour demander à l'utilisateur si il veut confirmer ou refuser, bref
dés le clique sur le bouton une boîte de dialogue doit apparaître.

le code :

Private Sub CommandButton4_Click()
'Je déprotége la feuille active
ActiveSheet.Unprotect
'Sur la cellule pointée par l'utilisateur je supprime la ligne
Rows(ActiveCell.Row).Delete Shift:=xlUp
' Je protége de nouveau ma feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
' Fin du code VBA


Merci.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Private Sub CommandButton4_Click()
'Je déprotége la feuille active
ActiveSheet.Unprotect
'Sur la cellule pointée par l'utilisateur je supprime la ligne
Rows(ActiveCell.Row).Select
If MsgBox("Désirez-vous supprimer la ligne sélectionnée?", _
vbYesNo + vbCritical, "Attention") = vbYes Then
Rows(ActiveCell.Row).Delete Shift:=xlUp
Else
ActiveCell.Select
End If
' Je protége de nouveau ma feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub




"Philippe" a écrit dans le message de news:

Bonsoir,

Avec le code si dessous je supprime une ligne donnée, je voudrais modifier
ce code pour demander à l'utilisateur si il veut confirmer ou refuser, bref
dés le clique sur le bouton une boîte de dialogue doit apparaître.

le code :

Private Sub CommandButton4_Click()
'Je déprotége la feuille active
ActiveSheet.Unprotect
'Sur la cellule pointée par l'utilisateur je supprime la ligne
Rows(ActiveCell.Row).Delete Shift:=xlUp
' Je protége de nouveau ma feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
' Fin du code VBA


Merci.
Avatar
Philippe
Merci beaucoup à vous tous, vous êtes des pros !

A bientôt.
Philippe


Bonsoir,
Ceci peut-être
'---------
Private Sub CommandButton4_Click()
'Je déprotége la feuille active
If MsgBox("Voulez-vous supprimer la ligne? ", 4, Application.UserName) = 7
Then Exit Sub
ActiveSheet.Unprotect
'Sur la cellule pointée par l'utilisateur je supprime la ligne
Rows(ActiveCell.Row).Delete Shift:=xlUp
' Je protége de nouveau ma feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

'-----------

--
Salutations
JJ


"Philippe" a écrit dans le message de
news:
Bonsoir,

Avec le code si dessous je supprime une ligne donnée, je voudrais modifier
ce code pour demander à l'utilisateur si il veut confirmer ou refuser,
bref
dés le clique sur le bouton une boîte de dialogue doit apparaître.

le code :

Private Sub CommandButton4_Click()
'Je déprotége la feuille active
ActiveSheet.Unprotect
'Sur la cellule pointée par l'utilisateur je supprime la ligne
Rows(ActiveCell.Row).Delete Shift:=xlUp
' Je protége de nouveau ma feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
' Fin du code VBA


Merci.