Evénement suppression de ligne sous conditions

[pedrohacastro]

Bonjour à tous !!

Je suis nouveau sur le forum mais je suis déjà vos discussions depuis un moment, merci beaucoup !!

Mon problème donc, c'est que je veux insérer dans un évènement Worksheet_Change la condition suivante :

. Si l'utilisateur supprime une ligne, la routine vérifie si cette ligne comporte un texte en gras dans la colonne "opération". Si oui, il vérifie si la ligne juste au-dessous a un fond blanc et si elle n'a pas un texte en gras. Si ces conditions sont vraies, l'utilisateur n'a pas le droit de supprimer la ligne. Le problème, c'est qu'avec mon code je n'arrive pas à analyser la ligne avant qu'elle soit supprimée. Lorsque j'analyse la ligne range(colonne_operation & target.row), la case analysée est celle qui a pris la place de celle qui a été supprimée, tant que c'est celle qui a été supprimée qui m'intéresse. Mon code est le suivant :

    If Target.Columns.Count = Columns.Count Then
        ' Si sous-titre supprimé
        If Range(colonne_operation & Target.Row).Font.Bold = True Then
            If Range(colonne_operation & Target.Row).Offset(1, 0).Font.Bold = False And _
            Range(colonne_operation & Target.Row).Offset(1, 0).Interior.Color = RGB(255, 255, 255) Then
                MsgBox "Vous ne pouvez pas supprimer un titre sans avoir supprimé les opérations correspondantes."
                Application.Undo
            End If
        End If
    End If

Merci beaucoup en avance !!

 

[Modeste]

Re : Evénement suppression de ligne sous conditions

Bonjour pedrohacastro et bienvenue (pour ton premier message, en tout cas! 😀)

Si tu as compris que l'événement n'était pas le bon (ou que ça risquait de te compliquer la vie)... tu ne peux pas en utiliser un autre (soit un double-clic, soit un clic droit dans une cellule "dédiée" pour chaque ligne)?

 

[pedrohacastro]

Re : Evénement suppression de ligne sous conditions

Merci, Modeste !

En fait non, il faudrait vraiment que ça déclenche si l'utilisateur essaie de supprimer la ligne, et jamais dans d'autre situations. J'ai réussi à trouver quelque chose qui me dépanne bien :

- Je fais un "Undo" de suite, sans savoir si la ligne peut ou non être supprimée. Après je l'analyse, si effectivement elle peut être supprimée, je fais encore un "Undo" (et celui-ci annule donc le dernier, ce n'est pas possible de faire "Application.Redo", mais ce serait le même principe !). Voici mon code :

If Target.Columns.Count = Columns.Count Then
        i = Target.Row
        Application.Undo
        ' Si sous-titre supprimé
        If Range(colonne_operation & i).Font.Bold = True Then
            ' Si case juste au-dessous est une opération, on ne peut pas supprimer
            If Range(colonne_operation & i).Offset(1, 0).Font.Bold = False And _
            Range(colonne_operation & i).Offset(1, 0).Interior.Color = RGB(255, 255, 255) Then
                MsgBox "Vous ne pouvez pas supprimer un sous-titre sans avoir supprimé les opérations correspondantes."
            ' Si ce n'est pas une opération juste au-dessous, on peut supprimer
            Else
                Application.Undo
            End If
       End If
End If

Merci !

 

[Modeste]

Re : Evénement suppression de ligne sous conditions

Re,

Mais alors, n'imorte quel changement de valeur dans une cellule quelconque de la feuille va être suivi d'un "Undo" 😱

 

[pedrohacastro]

Re : Evénement suppression de ligne sous conditions

En fait non !

La condition :

"If Target.Columns.Count = Columns.Count Then"

Ne permet que les changements de ligne entière (insertion ou suppression) soit considérés. Pour un changement de valeur quelconque, Target.Columns.Count <> Columns.Count

 

[Modeste]

Re : Evénement suppression de ligne sous conditions

"If Target.Columns.Count = Columns.Count Then"

Oups, je ne l'avais pas vu, celui-là 😱

 

[tototiti2008]

Re : Evénement suppression de ligne sous conditions

Bonjour pedro, Bonjour Môôôssieur,

Je suppose que tu t'es inspiré de là : [Toutes versions] Empêcher suppression de ligne
La remarque de Didier Gonard est à prendre en considération
Ce n'est pas parce qu'on agit sur une ligne entière qu'il s'agit forcément d'une insertion ou suppression

 

[tototiti2008]

Re : Evénement suppression de ligne sous conditions

Re,

un autre essai pour la suppression de ligne, sans doute imparfait (déjà ne détecte que la suppression de lignes contenant des données)

 

[pedrohacastro]

Re : Evénement suppression de ligne sous conditions

Bonjour, tototiti2008 !

Je me souvenais plus où j'avais vu ça mais oui, effectivement je me suis inspiré de là, merci mercatog !

Pour l'instant le code que j'utilise marche bien, sauf dans un cas (mais je pense que je laisserai comme ça, je vois pas vraiment un moyen de résoudre ce problème) :

- Si l'utilisateur essaie de supprimer plusieurs lignes, c'est la première ligne qui est considérée par la routine comme la ligne supprimée, et je n'arrive vraiment pas à trouver quelque chose qui analyse toutes les lignes supprimées, mais bon, ce n'est pas non plus une fatalité...

Bonne journée !