Procédure déclenchée par la suppression d'une ligne ou d'une colonne

Bonjour

Un moyen simple, non.

Essayer et adapter.
Pour les lignes :
Si la plage de travail de la feuille correspond aux lignes
de 1 à 9.
A10 =ADRESSE(LIGNE();COLONNE())
et dans le code de la feuille
Private Sub Worksheet_Calculate()
If [A10] <> "$A$10" Then
Application.EnableEvents = False
With [A10]
.Formula = .End(xlUp).Formula
.End(xlUp).ClearContents
End With
Application.EnableEvents = True
MsgBox "change"
End If
End Sub

Alain CROS

-----Message d'origine-----
Salut à tous.
Y a-t-il un moyen simple de déclencher une proc en cas de
suppression de

ligne ou de colonne par l'utilisateur (un BeforeSuppress,
en quelque

sorte...) ?
Merci de vos réponses.


.

Bonne idée, mais il n'y aura pas de différence entre supprimer une ligne
entière ou une cellule de la colonne A. de plus, si l'utilisateur supprimer
une ou plusieurs cellule d'autre colonnes, pas de réaction.
Merci. Je vais continuer à chercher.
"Alain CROS" <anonymous@discussions.microsoft.com> a écrit dans le message
de news: 317e01c4a253$f6f8c3e0$a601280a@phx.gbl...
Bonjour

Un moyen simple, non.

Essayer et adapter.
Pour les lignes :
Si la plage de travail de la feuille correspond aux lignes
de 1 à 9.
A10 ­RESSE(LIGNE();COLONNE())
et dans le code de la feuille
Private Sub Worksheet_Calculate()
If [A10] <> "$A$10" Then
Application.EnableEvents = False
With [A10]
.Formula = .End(xlUp).Formula
.End(xlUp).ClearContents
End With
Application.EnableEvents = True
MsgBox "change"
End If
End Sub

Alain CROS

-----Message d'origine-----
Salut à tous.
Y a-t-il un moyen simple de déclencher une proc en cas de
suppression de

ligne ou de colonne par l'utilisateur (un BeforeSuppress,
en quelque

sorte...) ?
Merci de vos réponses.


.