Bonjour Cher Frère Jacques, @Xtof@, le Forum
Dans la Lignée de ce que l'on a pu te conseiller pour le coloriage automatique...
Donc à mettre dans le Private Module de la Feuille en Question :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target = 'A'
End Sub
(@Xtof@, Je mets toujours les paramètre Cancel en premier)
Maintenant reste à déterminer si tu veux avoir des lettres de l'alphabet en Variable...
On peut envisager une 'Codification' en Nombre de Clicks par exemple ...
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Static ClickClick As Byte
ClickClick = ClickClick + 1
Cancel = True
Target = Chr(64 + ClickClick)
End Sub
C'est plus pour le Fun qu'autre chose !!! alors bon week end
[ol]@+Thierry[/ol]