Bonsoir à tous,
J'utilise une macro qui agit comme un toggle button.
je voudrais qu'a la fin il y ait une commande qui dise au curseur de se positionner dans la cellule a gauche de la cellule active. Voici la macro et qu'elle serait ma dernière ligne qui lui dirait de déplacer le curseur dans la cellule à gauche de celle dans laquelle il est
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, Range("c2:c112")) Is Nothing Then
'***détermine si la cellule sélectionnée appartient à la cible...
Static TB As Boolean
TB = Not TB
ActiveCell.Value = IIf(TB, "A", "I")
End If
End Sub
Merci !!
J'utilise une macro qui agit comme un toggle button.
je voudrais qu'a la fin il y ait une commande qui dise au curseur de se positionner dans la cellule a gauche de la cellule active. Voici la macro et qu'elle serait ma dernière ligne qui lui dirait de déplacer le curseur dans la cellule à gauche de celle dans laquelle il est
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, Range("c2:c112")) Is Nothing Then
'***détermine si la cellule sélectionnée appartient à la cible...
Static TB As Boolean
TB = Not TB
ActiveCell.Value = IIf(TB, "A", "I")
End If
End Sub
Merci !!