Comment dire que le code soit actif uniquement en A ? [résolu]

[anthoYS]

Bonjour,

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim couleurs()
couleurs = Array(RGB(255, 255, 0), RGB(0, 255, 0), RGB(255, 255, 255))
On Error GoTo color
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 5)
Cancel = True
Exit Sub
color:
Target.Interior.color = couleurs(0)
Cancel = True
End Sub

Si en B, figer la date ainsi :

Cells(Target.Row, 2) = Date

Merci par avance

 

[Staple1600]

Bonjour le fil, le forum

@anthoYS
Faudrait peut être à voir à se souvenir des syntaxes que tu utilises dans tes précédentes discussions, non ?
https://www.excel-downloads.com/thr...lorer-en-vert-et-figer-date-du-jour.20024933/
https://www.excel-downloads.com/thr...je-saisis-dans-différentes-colonnes.20019821/
Où l'on peut lire des choses comme Target.Column=X

Donc facile à adapter cette syntaxe si on parle de la colonne A (donc la colonne 1), non ?

 

[job75]

Bonjour anthoYS, salut JM,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 2 Then Exit Sub
Cancel = True
If Target.Column = 2 Then Target = Date: Exit Sub
'---suite du code pour colorer en colonne A---

A+

 

[anthoYS]

Re,

Merci beaucoup !

 

[job75]

Bonjour anthoYS, JM,

Étonnant qu'un Barbatruc comme toi ai buté la dessus...

anthoYS était sûrement capable de s'en sortir seul, je pense qu'il voulait comparer avec d'autres Barbatrucs.

Ils se suivent mais ne se ressemblent pas n'est-ce pas

A+