double click

[ferdo]

bonjour


j'ai un tableau bord avec des photos de machines

il faudrait avec un dbclick recopier le type dans une cellule ( Perforateur , Meuleuse etc.. )
et
je joint le fichier

grand merci

 

[herve62]

Bonjour
Je te donne une piste car je viens de traiter une appli avec double clic pour colorier une cellule
tu mets ton traitement VBA comme j'explique dans le code , moi c'était traiter la cellule avec IF THEN ELSE
cela n'est que mon idée je n'ai pas creusé dans ta finalité
Donc je pense que c'est pour cumuler séparément des ventes par articles ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C3:L22")) Is Nothing Then
With Target
'If Selection.Interior.ColorIndex = 3 Then
'Selection.Interior.ColorIndex = xlNone
'Else
'Selection.Interior.ColorIndex = 3
'End If
' traiter le début de la chaine correspondante à l'image là on voit que clic sur PERFORATEUR  est en B68 et que
' le nom est le début en A68 , donc récupérer en testant 1er espace de la chaine le nom Perforateur 
' faire le SELECT de ce que tu veux copier et faire le PASTE ou il doit aller apparemment le Nom est aussi le nom 'de l'onglet ce qui facilite le VBA 
End With
End If
End Sub

Yups n'oublie pas de selectionner ta plage de double clic dans Intersect