Suppression de lignes / action

Hello,

je cherche une macro, qui fait que dès qu'une ligne est supprimé dans la page, une cellule recoit une valeur de -1

Merci d'avance les copains !

Bonjour,

Sauf erreur de ma part, il n'existe pas d’événement spécifique à la suppression de ligne permettant de déclencher une macro (voir : https://www.excel-pratique.com/fr/vba/evenements_feuille). Il faut donc procéder par un moyen détourné, un essai :

Dans le module de la feuille concernée :

Dim NbLig As Long 
Private Sub Worksheet_Activate()
    NbLig = UsedRange.Rows.Count 'Affecte la première valeur à l'activation de la feuille
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If UsedRange.Rows.Count < NbLig Then 'Si moins de lignes après modification
        Range("A1") = Range("A1") - 1 'Modifie le compteur (ici -1 quel que soit le nombre de lignes supprimées, modifiable si besoin)
        NbLig = UsedRange.Rows.Count 'Affecte la nouvelle valeur 
    End If
End Sub

Hello merci beaucoup !

Néanmoins, lorsque j'installe la macro...

Il ne se passe rien lors de la suppression de ligne...

Hello merci beaucoup !

Néanmoins, lorsque j'installe la macro...

Il ne se passe rien lors de la suppression de ligne...

Je viens de le tester, ça fonctionne très bien chez moi...

Par contre, il y a 2 lignes à inverser dans le code pour éviter les soucis !

Dim NbLig As Long
Private Sub Worksheet_Activate()
    NbLig = UsedRange.Rows.Count 'Affecte la première valeur à l'activation de la feuille
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If UsedRange.Rows.Count < NbLig Then 'Si moins de lignes après modification
        NbLig = UsedRange.Rows.Count 'Affecte la nouvelle valeur
        Range("A1") = Range("A1") - 1 'Modifie le compteur (ici -1 quel que soit le nombre de lignes supprimées, modifiable si besoin)
        MsgBox "Suppression de ligne(s) !"
    End If
End Sub

On parle bien ici de suppression de ligne, pas simplement du contenu d'une ligne !

Re

Déjà merci encore pour le temps que tu prends.

Oui on parle bien de la supression de la ligne.

De nouveau ca ne marche pas, mais le msgbox n'apparait pas non plus...donc. J'ai du merdé quelque part.

Peux tu transmettre un fichier avec tes essais ?

La macro nécessite juste d'être initialisée par activation de la feuille en question (= tu changes de feuille puis tu reviens dessus par exemple).

Oui j'ai essayé de faire ca.

Arg le fichier est trop volumineux. Je te l'envoie par ailleurs.

(Je me permet de te l'envoyer par MP, c'est un fichier de "travail" un peu sensible, ca te va ?)

Voilà un fichier fictif sur lequel ça fonctionne :

8bdd-fictive.xlsm (46.99 Ko)

J'ai modifié la macro pour compter également le nombre de lignes supprimées et rendu les compteurs positifs.

Ahhhhhhh ! Ca marche merci beaucoup !!

Je sais pas d'où venais l'erreur, mais tout est bon maintenant !

Ahhhhhhh ! Ca marche merci beaucoup !!

Je sais pas d'où venais l'erreur, mais tout est bon maintenant !

Merci d'avoir validé le sujet, et bon courage pour la suite !

Rechercher des sujets similaires à "suppression lignes action"