Suppression cellules multiples

Bonjour,

Dans le fichier joint dans la plage [C9:E50]:

L'ajout d'un nom dans une cellule déclenche le tri.

La suppression d'un nom déclenche la suppression de la ligne.

Une erreur se produit si je veux supprimer plusieurs noms en une seule fois.

Je dois pourtant l'envisager car le futur utilisateur du fichier peut être confronté à cette situation.

Quelqu'un aurait un conseil?

Cordialement

bonjour

quel est le message d'erreur ? sur qu'elle ligne de code ?

Bonjour,

A essayer :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Not Intersect(Target, [C9:E50]) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        For Each c In Target.Cells
            If c = "" Then c.Offset(, 3 - c.Column).Resize(, 3).ClearContents
        Next c
        Application.EnableEvents = True
        [C9:E50].Sort Key1:=[C8], order1:=xlAscending, Header:=xlYes
    End If
End Sub

Bonjour MFerrand,

Je viens de tester. C'est tout bon.

Je ne voulais pas induire de réponse dans ma question mais j'attendais un test sur les touches del et suppr.

Merci et belle journée à toi.

Bonjour Pierre jy,

Selectionne les cellules c13:14 et appuie sur la touche de suppr.

Tu comprendras le souci que j'avais.

Belle journée également

Bonjour à tous

Une variante à tester. Te convient-elle ?

Bye !

Bonjour Gmb,

Mais oui, cette variante convient parfaitement aussi.

Peut-être plus rapide et proche de ma programmation.

Cordialement,