Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Limitation fonctionnement macro

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

Gil_Se

XLDnaute Occasionnel
Bonjour à tous.
Ci-dessous une macro qui fonctionne bien liée à un bouton de commande. Dès qu'on clique sur ce bouton, la ligne de la cellule active est supprimée. Toutefois, je souhaite que cette macro ne fonctionne pas pour les 5 premières lignes, avec un MSGBOX du style: "Vous ne pouvez pas supprimée cette ligne" et suite à ce message la macro se ferme.
J'espère avoir été clair.
Merci d'avance.

Gilles



Private Sub BtnSupLigneVoitEntre_Click()
If MsgBox("Etes-vous sur de vouloir supprimer la ligne contenant " & ActiveCell.Value, vbYesNo, "Demande de confirmation") = vbYes Then
ActiveSheet.Unprotect Password:="password"
ActiveCell.EntireRow.Delete

ActiveSheet.Protect "password"
ActiveWorkbook.Save
End If

End Sub
 
Trier par date Trier par votes
Re : Limitation fonctionnement macro

salut

à tester
Code: 
Private Sub BtnSupLigneVoitEntre_Click()
  If ActiveCell.Row < 6 Then
    MsgBox "vous ne pouvez pas supprimer cette ligne", vbCritical, "Action interdite"
  Else
    If MsgBox("Etes-vous sur de vouloir supprimer la ligne contenant " & ActiveCell.Value, vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
    ActiveSheet.Unprotect Password:="password"
    ActiveCell.EntireRow.Delete
    ActiveSheet.Protect "password"
    ActiveWorkbook.Save
  End If
End Sub
 
Vote positif 0 Vote négatif
Re : Limitation fonctionnement macro

Bonjour,

Code: 
Private Sub BtnSupLigneVoitEntre_Click()
    If ActiveCell.Row < 6 Then
        MsgBox "Vous ne pouvez pas supprimer cette ligne", vbCritical
    Else
        If MsgBox("Etes-vous sur de vouloir supprimer la ligne contenant " & ActiveCell.Value, vbYesNo, "Demande de confirmation") = vbYes Then
            ActiveSheet.Unprotect Password:="password"
            ActiveCell.EntireRow.Delete
            ActiveSheet.Protect "password"
            ActiveWorkbook.Save
        End If
    End If
End Sub

Cordialement.

EDIT : Bonjour à tous ! y'a plus qu'à choisir entre bonnet blanc et bonnet blanc !
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Limitation fonctionnement macro

Bonjour Gil_Se,

Peut-être comme ceci:

Code: 
Private Sub BtnSupLigneVoitEntre_Click()

If ActiveCell.Row <= 5 Then
MsgBox "Vous ne pouvez pas supprimer cette ligne", vbCritical
Exit Sub
End If
If MsgBox("Etes-vous sur de vouloir supprimer la ligne contenant " & ActiveCell.Value, vbYesNo, "Demande de confirmation") = vbYes Then
ActiveSheet.Unprotect Password:="password"
ActiveCell.EntireRow.Delete

ActiveSheet.Protect "password"
ActiveWorkbook.Save
End If

End Sub
Bonne journée

EDIT : Bonjour tout le monde, à la bourre !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
515
un internaute
U
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
630
Piment
P
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
801
Phil69970
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
664
thunder23
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
608
fanch55
  • Question Question
XL 2010 [RESOLU] Lenteur rendre visible un Label
Réponses
11
Affichages
518
patricktoulon
N
  • Résolu(e)
Microsoft 365 Mot de passe pour activation macro
Réponses
4
Affichages
470
Nathan027
N
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
338
escudo
E
D
  • Question Question
Microsoft 365 Macro pour conditionner une réponse selon des hypothèses
Réponses
3
Affichages
252
Phil69970
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
676
Phil69970
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
700
arnoldbrice19
A
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
458
ManuEven
M
N
  • Question Question
LibreOffice Calc LibreOffice cal probleme pour effacer colonne
Réponses
1
Affichages
281
Staple1600
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
P
  • Question Question
Microsoft 365 TextBox avec limitation de la saisie entre 2 valeurs
Réponses
8
Affichages
384
pat66
P
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
693
MBEPID
M
  • Résolu(e)
XL 2021 touches Ctrl+R pour revenir
Réponses
4
Affichages
578
TooFatBoy
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
651
piga25
G
  • Résolu(e)
XL 2021 Problème d'impression
Réponses
2
Affichages
539
gui22
G
  • Question Question
XL 2021 Exportation module, erreur après déprotection
2
Réponses
20
Affichages
1 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…