Discussion :

[leptitdave]

Bonjour,
Est-il possible qu'une msgbox s'affiche si on fait une insertion de ligne dans une feuille?
Merci

[Krovax]

Bonjour,
Une idée que j'ai eu ne lisant la question. On fait sans doute mieu et plus clean mais l'idée m'a amusé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Replace(Replace(Target.Address, "$", ""), ":", "")) Then MsgBox "Vous avez inséré ou supprimé une ligne"
End Sub

[leptitdave]

merci krovax
je ne comprends pas trop ce que tu as ecris mais à l'éxécution c'est dès que je clique sur une ligne que j'ai la message box.

en fait merci beaucoup ca me convient comme ca le message je l'ai avant de faire l'insertion/ suppression.

[Krovax]

tu as copié le code tel quel dans le code de la feuille?

Tu n'as pas mis dans selectionchange?

EN gros ce que fait le code il regarde l'adresse de la plage modifié et regarde si c'est une ligne complete. C'est loin d'être parfait car si tu modifie tout une ligne d'un coup ca le lance aussi

[leptitdave]

oui oui j'ai bien mis où il faut.

Oui ce n'est pas parfait car dès que tu cliques sur une ligne le message se met mais c'est bon ca me convient comme ca merci encore j'aurais jamais trouvé ca tout seul

[Krovax]

Ce qui n'ets pas normale c'est que la simple selection d'une ligne actionne le code.
Essaye le dans un fichier vierge pour voir et si ca le fait envoi le je regarderais ca dans la soirée