autre p'tite question

Re;-)

Malheuresement, il n'y a pas d'événement RowDelete ;-)

Private Sub Worksheet_Activate()
'code qui s'exécute lorsque la feuille est activée...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Code qui s'exécute lorsque la sélection sur la feuille est modifiée...
'Target = Cellule, ou plage sélectionnée

Bonne nuit ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"mateos francois" <fmateos@free.fr> a écrit dans le message de news:
41b0e60b$0$409$626a14ce@news.free.fr...

re
je souhaiterai qu'après l'évènement <suppression d'un ligne entière> l'on
fasse telle action

j'utilise dans la Feuil1

Private Sub Worksheet_Activate()

End Sub

ou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub


J'ai un peu de mal à comprendre la différence entre les deux.
Encore merci pour votre aide,

le savoir n'est bénéfique que s'il est partagé......

Dommage ;((
Merci pour tes explications.
Bonne nuit.

Sincère salutations

françois Mateos.

On peut bidouiller qques chose (un peu lourd mais bon...) pour contourner
l'absence d'événement "Suppression ligne"

Exemple si tu veux controler (empêcher) la suppression/ajout de lignes dans
"Feuil1"
Dans "Feuil2" (à masquer ensuite)
Sélection de A1 > appui sur touche F8 > Ctrl + Flèche vers Bas > dans la barre
de formule saisir :
=LIGNE(Feuil1!A1)

Valider par Ctrl + Entrée > Appui sur F8
Dans le module de la feuille :

Private Sub Worksheet_Calculate()
If Application.CountIf([A:A], "#REF!") > 0 Then
MsgBox "Pas le droit de supprimer ou insérer une ligne !"
With Application
.Calculation = xlManual
.Undo
.Calculation = xlAutomatic
End With
End If
End Sub

Masquer "Feuil2"

AV