Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 11 And Target.Count = 1 Then
' Appel de ta macro
MsgBox "macro"
Target.Offset(0, 1).Select
End If
End Sub
j'ai essaye mais il ne se passe rien. C'est peut etre parce que j'ai deja un sub de ce type dans la feuille ASS. Je t'envoi un fichier, les instructions sont sur la feuille. Tu ne devrais pas avoir de difficulte!
Private Sub worksheet_SelectionChange(ByVal Target As Range)
Dim Lig As Long
If FlgCopy Then
Lig = Selection.Row
FlgCopy = False
Application.EnableEvents = False
Range("C" & Lig).Insert Shift:=xlDown
Range("I" & Lig).Select
Application.CutCopyMode = xlNone 'pour desactiver ce mode (permet d'enlever la selection en pointille si on faisait "COPIER")
Application.EnableEvents = True
Number 'met a jour la colonne # de ligne
End If
If Not Intersect(Columns("K"), Target) Is Nothing And Target.Count = 1 Then
' Appel de la macro
MsgBox "Appel de la macro"
End If
End Sub
Mais je ne sais si cette macro doit s'exécuter quelque soit la valeur de FlgCopy (cas traité) ou seulement dans un cas précis
Oui, ca dois s'executer quelque soit la valeur de FlgCopy.
Ca fonctionne, par contre notre ajout empeche la touche <link> de toggler entre colonne H et K.
Par exemple un clic sur une cellule en K nous amene sur une cellule en H, ce qui est correcte mais si ensuite on fait "link" , ca nous retourne plus en K.
Donc la macro Link_clic ne fait plus basculer de colonne H a K.