Modification code

[castor30]

Bonjour le forum,
Je fais encore appel à vous pour modifier le code.
Un double clic en colonne F met la date en rouge, c'est Ok
Je voudrai que ça mette le nom sur la même ligne en colonne A en rouge.
En vous remerciant.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 6 Then
        If Target.Font.Color = RGB(0, 0, 0) Then Target.Font.Color = RGB(255, 0, 0) Else Target.Font.Color = RGB(0, 0, 0)
    End If
        If Target.Column = 5 Then
            Target = "X"
            Target.Offset(0, 1) = Date
            Target.Offset(0, 1).Select
        End If
    Cancel = True
End Sub

 

[Papou-net]

Bonjour castor30,

Si j'ai bien compris, je te propose:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 6 Then
Target.Font.Color = IIf(Target.Font.Color = RGB(0, 0, 0), RGB(255, 0, 0), RGB(0, 0, 0))
Target.Offset(0, -5).Font.Color = Target.Font.Color
End If
If Target.Column = 5 Then
Target = "X"
Target.Offset(0, 1) = Date
Target.Offset(0, 1).Select
End If
Cancel = True
End Sub​

Cordialement.

 

[castor30]

Bonjour Papou-net,
Je te remercie c'est exactement ce que je souhaitais.
Bon Week-end à toi.