Worksheet_change détection "couper"
Bonjour le Forum,
J'ai un fichier excel contenant un onglet principal, et d'autres onglets en miroir.
Je souhaiterais detecter automatiquement lorsque l'utilisateur coupe une ligne ou une colonne. L'objectif serait que le programme me retourne l'adresse de la ligne colonne coupée afin que je puisse reporter la modification sur les autres onglets. De même ensuite lorsqu'il insère les cellules coupées.
Si quelqu'un à une idée je suis preneur car j'ai essayé différentes méthodes sans succés.
Je vous laisse mon code pour vous donner une piste mais il n'est pas du tout correct
Code:
1 2 3 4 5 6 7 8 9 10 11 12
|
Private sub Worksheet_change
Dim myControls As CommandBarControls
Set myControls = Application.CommandBars("Row").FindControl(ID:=21)
If myControls.Count > 0 Then
Select Case LCase$(Split(Application.CommandBars("Row").FindControl(ID:=21).List(1), " ")(0))
Case "paste", "drag"
MsgBox ("Ligne coupée") & Target.Address
Exit Sub
End Select
End If
end sub |
Merci pour votre aide,
Matlucky