Message d'alerte

Bonjour au forum,

Je voudrais savoir s'il est possible de créer un message d'alerte sur Excel si un utilisateur tente de supprimer ou d'insérer une ligne et/ou une colonne ?

En remerciant de votre aide.

Bonjour,

OUI !

Du moins sur le principe. Ensuite savoir ce que tu veux exactement pour tester au plus près lors de l'évènement Change, et définir les actions dans les différents cas à distinguer.

Cordialement.

Dans mon exemple du fichier joint, je souhaite que :

l’utilisateur peut uniquement saisir des données sur la plage des cellules C2 à D8 (zone verte).

Il ne peut en aucun cas modifier la forme du tableau en insérant des lignes ou des colonnes.

J’ai mis le code suivant, mais cela ne fonctionne pas. Quand l’utilisateur insère une ligne, il voit bien le message d’alerte mais son action n’est pas bloquée.

Comment puis-je faire ?

Private Sub Worksheet_Change(ByVal Target As Range)

MsgBox "Merci de ne pas modifier cette feuille !"

End Sub
37test-13052016.xlsm (15.84 Ko)

C'est plus restrictif que ce que tu disais au départ...

Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim annul As Boolean
    If Intersect(Target, Me.Range("C2:D8")) Is Nothing Then
        annul = True
    ElseIf Intersect(Target, Me.Range("C2:D8")).Address <> Target.Address Then
        annul = True
    ElseIf Target.Count > 1 Then
        annul = True
    End If
    If annul Then
        MsgBox "Merci de ne pas modifier cette feuille !"
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

Cordialement.

Rechercher des sujets similaires à "message alerte"