Afficher une MsgBox lors de l'ajout/suppression d'une colonne
Bonjour,
Est-il possible d'afficher une MsgBox lors de l'ajout/suppression d'une colonne de manière automatique ?
Je pensais utiliser cette méthode mais pas sûr que cela fonctionne vu que la fonction demande un numéro de colonne :
If Columns().Insert Then
MsgBox ("Bonjour")
End IfMerci !
Bonjour,
l'ajout ou la suppression d'une colonne peut être détectée par la surveillance événementielle "Change" :
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "LouReeD"
End SubAprès c'est à vous de savoir quoi faire à la place du MsgBox
Les surveillances événementielle sont accessibles sur la page de code de la feuille en question, il suffit de faire un clic droit sur le nom de l'onglet, puis afficher le code. Sous la fenêtre VBA il y a deux liste de choix au dessus de la zone de code, dans la première (générale), sélectionnez Worksheet, cela vous donnera les différentes possibilités liées à la feuille sur la liste de choix de gauche. Par défaut c'est le "SelectionChange" qui est "préparé", mais si vous prenez "Change" il vous reste plus qu'à écrire votre code. Target correspond à la nouvelle colonne créée, donc en sélectionnant la colonne F, puis en faisant une insertion colonne, MsgBox Target.Column affichera : 6.
@ bientôt
LouReeD
Merci pour ta réponse rapide je vais me pencher sur ta solution !
Merci de votre retour et remerciement !
@ bientôt
LouReeD