Copie Colle au double clic

[Demouret]

Bonjour le Forum

En foullant dans les trésors des archives j'ai trouvé ce code qui au double clic copie la cellule selectionné et colle le contenu dans une autre cellule au clic droit en y ajoutant "TD".
Ce code arrangerait bien mes affaires et serait même parfait si je pouvais aussi copier (et coller...) la couleur et le motif de la cellule à copier...

Auriez vous une idée de comment faire ?

Merci à vous

Pierre

-----------------------------------------
Private val As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "" Then Exit Sub Cancel = True
val = "TD/" & Target.Value
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If val = "" Then Exit Sub
Cancel = True
Target.Value = val
End Sub
-----------------------------------------

 

[Gorfael]

Re : Copie Colle au double clic

Salut Demouret et le forum
Tu as assez de postes pour comprendre l'utilisation des balises de code (#)

Normalement, avec ça

Private Val As Range
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Val = Target
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Val Is Nothing Then Exit Sub
Cancel = True
Val.Copy Target
Target = "TD/" & Target
Set Val = Nothing
End Sub

À la place, ça devrait marcher.
A+

 

[Demouret]

Re : Copie Colle au double clic

Excellent !!

Merci Gorfael

 

[Demouret]

Re : Copie Colle au double clic

Aie ... Excusez moi mais J'ai parlé trop vite...

En fait ce code ne fonctionne que si mes cellules destinations ne sont pas fusionnés.. et le premier fonctionnait avec les cellules fusionnées mais ne me copiait pas ni la couleur ni le motif...

Je met un exemple en PJ

S'il y avait une bonne âme ;-)

Merci à vous