Discussion :

[babybell]

Bonjour le forum

Est-il possible de détecter si l'on fait une insertion de colonne afin de lancer une macro ?

Merci de votre aide.

[babybell]

J'ai bien trouvé sur le Forum ce code

Code :

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

1
2
3
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Rows.Count = Rows.Count Then MsgBox "Ligne(s) supprimée(s) ou ajoutée(s)"
End Sub

Seulement, cela fonctionne seulement lorsque je supprime une colonne, pas quand j'en insère une.

[babybell]

Solution trouvée :

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
If Target.Row = 1 Then If Target.Rows.Count = ActiveSheet.Rows.Count Then MsgBox "Colonne : " & Target.Column & " ajoutée ou supprimée "
 
End Sub

[babybell]

Bonjour à tous

Mon code fonctionne bien, mais seulement avec Excel 2003. Sur Excel 2000, cela ne fonctionne que lorsque j'enlève une colonne, pas quand j'en rajoute une.

Quelqu'un aurait-il une idée ?

Merci