Macro événementielle lors de suppression / ajout de ligne

[Legolas]

Bonjour aux Excelnautes !

Je souhaite créer une macro événementielle qui s'active lors de la suppression ou de l'ajout d'une ligne.
Je n'ai pas trouvé l'instruction répondant à ce besoin... est-ce que cela existe ?
Merci pour votre aide.

A+

 

[Victor21]

Re : Macro événementielle lors de suppression / ajout de ligne

Bonjour, Legolas.

Je ne connais pas d'événement détectable lors de l'ajout ou la suppression de lignes. Mais on peut contourner :
En-dessous de la zone utilisée de votre feuille, une cellule contenant =ligne() changera de valeur si vous supprimez ou insérez une ligne. Et ce changement peut être intercepté.

 

[Legolas]

Re : Macro événementielle lors de suppression / ajout de ligne

Oki, merci pour la réponse.
Je vais essayer de solutionner ça en contournant le problème.

A+

 

[job75]

Re : Macro événementielle lors de suppression / ajout de ligne

Bonjour Legolas, Patrick,

Voici une manière de détecter la suppression de lignes entières sélectionnées.

Mettez ces 4 macros dans ThisWorkbook :

Private Sub Workbook_Open()
On Error Resume Next 'si la sélection n'est pas un Range
If Selection.Columns.Count = Columns.Count Then Selection.Name = "cible"
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next 'si la sélection n'est pas un Range
If Selection.Columns.Count = Columns.Count Then Selection.Name = "cible"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Selection.Columns.Count = Columns.Count Then Selection.Name = "cible"
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
If Selection.Columns.Count = Columns.Count Then
  Dim a As String
  On Error Resume Next
  a = Range("cible").Address
  If a = "" Then MsgBox "Ligne(s) supprimée(s)"
  Selection.Name = "cible"
End If
End Sub

A+

 

[Legolas]

Re : Macro événementielle lors de suppression / ajout de ligne

Bonjour Job75,

Je viens de tester ta proposition et ça marche très bien.
Par contre, je ne comprends pourquoi il y a besoin de 4 macros pour y arriver...

A+

 

[job75]

Re : Macro événementielle lors de suppression / ajout de ligne

Bonjour Legolas,

Les 2 premières macros ne sont pas strictement indispensables mais faites un test :

- supprimez les 2 premières macros, Open et SheetActivate

- sélectionnez une ligne dans la feuille active

- supprimez le nom défini "cible"

- enregistrez, fermez puis rouvrez le fichier

- EFFACEZ (sans la supprimer - touche Suppr) la ligne déjà sélectionnée...

Je reconnais que c'est du pinaillage, et si bon vous semble supprimez les 2 premières macros.

A+