Copier avec la couleur avec double clic.

aperobass · 5 Janvier 2013

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?

Code:

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 · 5 Janvier 2013

Re : Copier avec la couleur avec double clic.

Bonjour aperobass

Peut être cela ?

VB:

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 · 5 Janvier 2013

Re : Copier avec la couleur avec double clic.

Bonjour,

Essayez avec l'exemple en pièce jointe.

aperobass · 5 Janvier 2013

Re : Copier avec la couleur avec double clic.

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

Copier avec la couleur avec double clic.

aperobass

Guest

ROGER2327

XLDnaute Barbatruc

PMO2

XLDnaute Accro

aperobass

Guest

Discussions similaires

Copier avec la couleur avec double clic.

aperobass

Guest

ROGER2327

XLDnaute Barbatruc

PMO2

XLDnaute Accro

aperobass

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency