Copier avec la couleur avec double clic.

[aperobass]

Bonjour,
J'ai bessoin d'un petit coup de main pour finir mon code.
Dans ce code quand je double clic ,je voudrais copier avec la couleur .J'ai essayé avec Interior.ColorIndex mais ça marche pas!
Quelqu'un peut m'aider?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("D2:R11"), Target) Is Nothing Then
  If Target.Value <> "" Then
    Target.Value = ""
  Else
    Target.Value = UCase(Left(Range("T2").Value, 11))
    
     
    End If
  End If
End Sub

 

[ROGER2327]

Re : Copier avec la couleur avec double clic.

Bonjour aperobass

Peut être cela ?​

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Range("D2:R11"), Target) Is Nothing Then
        If Target.Value <> "" Then
            Target.Value = ""
            Target.Interior.Color = xlNone
        Else
            With Range("T2")
                Target.Value = UCase(Left(.Value, 11))
                Target.Interior.Color = .Interior.Color
            End With
        End If
        Cancel = True
    End If
End Sub

ROGER2327
#6354

Dimanche 8 Décervelage 140 (Saint Bordue, Capitaine - fête Suprême Tierce)
16 Nivôse An CCXXI, 7,0688h - silex
2013-W01-6T16:57:55Z

 

[PMO2]

Re : Copier avec la couleur avec double clic.

Bonjour,

Essayez avec l'exemple en pièce jointe.

 

[aperobass]

Re : Copier avec la couleur avec double clic.

Merci..à vous deux c'est nickel ça marche .