revoie de valeur par clic

[Ilino]

Forum Bonjour
J’ai un tableau(code couleur) avec des données, je souhaite que lorsque je clic sur une de ces cellules de ce tableau elle revoie la valeur de cette cellule vers une autre cellule bien précisée
exemple
Si je clic sur RD après sur Vi après sur PK je dois avoir dans la cellule W36 le texte suivant « RD,VI,PK » et ainsi de suite
a+

 

[Ilino]

Re : revoie de valeur par clic

Re BONJOUR fORUM
CI JOINT LE CODE

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("C32:Z32")) Is Nothing Then Exit Sub
    Sheets("Feuil1").Range("W36").Value = Target.Value
    Cancel = True
End Sub

MAIS je n'arrive pas a faire afficher une chaine ????

 

[Robert]

Re : revoie de valeur par clic

Bonjour Ilino, bonjour le forum,

Ha les cellules fusionnées ! Quelle m... !
Essaie comme ça :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("C32:Z32")) Is Nothing Then Exit Sub
Cancel = True
Range("W36")(1).Value = IIf(Range("W36")(1).Value = "", Target(1).Value, Join(Array(Range("W36")(1).Value, Target(1).Value), ", "))
End Sub

 

[Ilino]

Re : revoie de valeur par clic

bONJOUR rOBERT
nIKEL ça fonctionne tres bien
A+