Interdire de supprimer une ligne

criscris11 · 25 Juillet 2008

Bonsoir,
Comment peut-on empêcher la suppression d'une ligne si dans l'onglet X et dans la colonne Y le résultat d'une formule est égal à OUI (du style : vous n'êtes pas autorisé à supprimer ces données car...).
Petite particularité : il faut agir sur plusieurs onglets car quand l'utilisateur supprime la ligne, elle est supprimée dans plusieurs onglets en même temps (si besoin, je posterai le code qui agit sur les onglets).

Bonne soirée.

Compte Supprimé 979 · 25 Juillet 2008

Re : Interdire de supprimer une ligne

Salut Criscris11,

Empêcher de supprimer une valeur, "facile", mais une ligne !?

Il n'y a pas d'évènement dans VBA excel qui permette de surveiller cet agissement.

En tout cas pas à ma connaissance (je ne connais pas tout, loin de là)

A+

Bernard_XLD · 26 Juillet 2008

Re : Interdire de supprimer une ligne

Bonjour Criscris11, Bruno, le forum

pour l'évenement, on peut le créer
le code ci dessous empèche la sélection d'une ligne entière sur des feuilles en sélection multiple dont l'une des feuilles comporte "oui" dans la colonne 8 de la sélection.

a placer dans thisworkbook

Cordialement, A+

Code:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Test As Boolean, Feuil_Ref As Worksheet, Cel_Ref As Range, Cel_Ref_Adresse As String, Colonne_a_Tester As Byte
    
    Colonne_a_Tester = 8
    
    If Not (Intersect(Target, Columns(Colonne_a_Tester)) Is Nothing) And Target.Columns.Count = 256 Then
        Test = False
        For Each Feuil_Ref In ThisWorkbook.Windows(1).SelectedSheets
            For Each Cel_Ref In Feuil_Ref.Range(Intersect(Target, Columns(Colonne_a_Tester)).Address)
                If Cel_Ref = "oui" Then Test = True: Cel_Ref_Adresse = Cel_Ref.Address
            Next Cel_Ref
        Next Feuil_Ref
        If Test = True Then ActiveSheet.Range(Cel_Ref_Adresse).Select
    End If
End Sub

Bernard_XLD · 26 Juillet 2008

Re : Interdire de supprimer une ligne

j'avais oublié le petit message d'explication

A+

Code:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Test As Boolean, Feuil_Ref As Worksheet, Cel_Ref As Range, Cel_Ref_Adresse As String, Colonne_a_Tester As Byte
 
    Colonne_a_Tester = 8
 
    If Not (Intersect(Target, Columns(Colonne_a_Tester)) Is Nothing) And Target.Columns.Count = 256 Then
        Test = False
        For Each Feuil_Ref In ThisWorkbook.Windows(1).SelectedSheets
            For Each Cel_Ref In Feuil_Ref.Range(Intersect(Target, Columns(Colonne_a_Tester)).Address)
                If Cel_Ref = "oui" Then Test = True: Cel_Ref_Adresse = Cel_Ref.Address
            Next Cel_Ref
        Next Feuil_Ref
        If Test = True Then ActiveSheet.Range(Cel_Ref_Adresse).Select: MsgBox "vous n'êtes pas autorisé à sélectionner cette ligne ", vbOKOnly + vbInformation
    End If
End Sub

Compte Supprimé 979 · 26 Juillet 2008

Re : Interdire de supprimer une ligne

Miaou, Yeahou

Ca peut-être une solution, effectivement.

Saut que si on fait menu -> Edition -> Supprimer, ligne entière
Rien, absolument rien ne nous l'empêche 🙄

A+

Bernard_XLD · 26 Juillet 2008

Re : Interdire de supprimer une ligne

re bruno

on peut supprimer cette possibilité dans le menu contextuel ou reprogrammer le menu contextuel pour gérer cela.

Cordialement

chris · 26 Juillet 2008

Re : Interdire de supprimer une ligne

Bonjour

Je n'ai pas testé mais si version 2002 ou + :
en déverrouillant toutes les cellules,
en protégeant la feuille mais cochant toutes les permissions sauf suppression de ligne
en gérant la protection en userinterfaceonly dans le code

on peut peut-être y arriver.

A voir en fonction de ton cas réel

Bernard_XLD · 26 Juillet 2008

Re : Interdire de supprimer une ligne

un exemple avec une modification de l'enregistrer sous

https://www.excel-downloads.com/threads/enregsitrer-sous-sous-controle.39887/

A+

Bernard_XLD · 26 Juillet 2008

Re : Interdire de supprimer une ligne

yo chris

l'idée est bonne mais non adaptée au cas précis car on doit pouvoir supprimer les lignes ou pas en fonction d'une valeur dans une colonne. on peut le gérer mais beaucoup plus complexe que les solutions précitées.

A+

criscris11 · 26 Juillet 2008

Re : Interdire de supprimer une ligne

Salut Yeahou, Bruno, Chris, le forum,
Merci pour vos réponses. Je vais tester le code de Yeahou pour voir si cela correspond à mon idée de départ. Cependant, je n'ai pas vu dans le code la syntaxe pour dire sur quel onglet se situe la colonne à tester mais bon je verrai bien quand le code sera en action.
Bonne soirée à tous.

Bernard_XLD · 26 Juillet 2008

Re : Interdire de supprimer une ligne

elle teste la colonne 8 sur tous les onglets sélectionnés, si l'un ou l'autre contient oui, cela bloque la sélection de la ligne entiere, c'était pas ça la question ?

criscris11 · 26 Juillet 2008

Re : Interdire de supprimer une ligne

Re,
Oui en espérant que je n'ai pas deux colonnes 8 dans mes onglets qui contiennent OUI.
Sinon peut-on effectuer ton code en lui disant dans quel onglet le valeur OUI doit être trouvée par interdire la sélection ?
Merci pour ton intervention et bonne soirée.

Si tu veux je poste mon code qui me permet d'effectuer une modification ou suppression dans les onglets voulus.

JCGL · 26 Juillet 2008

Re : Interdire de supprimer une ligne

Bonjour à tous,

Juste pour rire 😛

criscris11 à dit:
Oui en espérant que je n'ai pas deux colonnes 8 dans mes onglets qui contiennent OUI

Je peux t'affirmer que tu n'auras pas deux colonnes 8 dans la même feuille

Bises à Eythan et aux trois "autres", à Madame et A++ à toi
A+ à tous

criscris11 · 26 Juillet 2008

Re : Interdire de supprimer une ligne

Re JC,
C'est vrai que j'ai oublié de préciser "je n'ai pas deux colonnes 8 dans mes onglets sélectionnés qui contiennent OUI 😉
Bonne soirée à toi et au plaisir.

Bernard_XLD · 27 Juillet 2008

Re : Interdire de supprimer une ligne

Bonjour

modifié pour ne tester qu'un seul onglet dans les feuilles sélectionnées

A+

Code:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Test As Boolean, Feuil_Ref As Worksheet, Cel_Ref As Range, Cel_Ref_Adresse As String, Colonne_a_Tester As Byte
    Dim Nom_Onglet As String
    
    Colonne_a_Tester = 8
    Nom_Onglet = "ongletàtester"
    
    If Not (Intersect(Target, Columns(Colonne_a_Tester)) Is Nothing) And Target.Columns.Count = 256 Then
        Test = False
        For Each Feuil_Ref In ThisWorkbook.Windows(1).SelectedSheets
            If Feuil_Ref.Name = Nom_Onglet Then
                For Each Cel_Ref In Feuil_Ref.Range(Intersect(Target, Columns(Colonne_a_Tester)).Address)
                    If Cel_Ref = "oui" Then Test = True: Cel_Ref_Adresse = Cel_Ref.Address: Exit For
                Next Cel_Ref
            End If
        Next Feuil_Ref
        If Test = True Then ActiveSheet.Range(Cel_Ref_Adresse).Select: MsgBox "vous n'êtes pas autorisé à sélectionner cette ligne ", vbOKOnly + vbInformation
    End If
End Sub

Interdire de supprimer une ligne

criscris11

XLDnaute Accro

Compte Supprimé 979

Guest

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Bernard_XLD

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

criscris11

XLDnaute Accro

Bernard_XLD

XLDnaute Barbatruc

criscris11

XLDnaute Accro

JCGL

XLDnaute Barbatruc

criscris11

XLDnaute Accro

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires

Interdire de supprimer une ligne

XLDnaute Accro

Compte Supprimé 979

Guest

XLDnaute Barbatruc

XLDnaute Barbatruc

Compte Supprimé 979

Guest

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency