[RESOLUTO]CODE pour code couleur

[Ilino]

Forum Bonjour
ci dessous un code ( grazie Bénévole), je souhaite le généralisé sur les cellules bleux (de W32 - w41)
grazie

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("C27:Z27")) Is Nothing Then Exit Sub
Cancel = True
Range("W32")(1).Value = IIf(Range("W32")(1).Value = "", Target(1).Value, Join(Array(Range("W32")(1).Value, Target(1).Value), ","))
'Range("W33")(1).Value = IIf(Range("W33")(1).Value = "", Target(1).Value, Join(Array(Range("W33")(1).Value, Target(1).Value), ","))
End Sub

 

[camarchepas]

Re : CODE pour code couleur

Bonjour ,

une solution par boucle :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Tourne As Long
If Application.Intersect(Target, Range("C27:Z27")) Is Nothing Then Exit Sub
 Cancel = True
 For Tourne = 32 To 41
  Range("W" & Tourne)(1).Value = IIf(Range("W" & Tourne)(1).Value = "", Target(1).Value, Join(Array(Range("W" & Tourne)(1).Value, Target(1).Value), ","))
 Next Tourne
End Sub

 

[Ilino]

Re : CODE pour code couleur

Bonjour Nono, Bonjour Forum
grazie pour la réponse rapide, mais mon souci persiste encore ( sorry peut etre j'ai mal expliqué mon souci tellement je suis ...😡)
je ne souhaite pas avoir les mêmes donnes dans les cellules ,chaque cellule est indépendantes des autres.
A+

 

[Ilino]

Re : CODE pour code couleur

Re Bonjour Forum
est ce que mon souci est claire ?
merci par avance

 

[job75]

Re : CODE pour code couleur

Bonjour Ilino, camarchepas,

est ce que mon souci est claire ?

Non, comme d'habitude 🙄

Mais ma boule de cristal chérie donne ceci :

Dim mem$ 'mémorise

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [C27:Z27]) Is Nothing Then Cancel = True: mem = Target(1)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [W32:W41])
If Not r Is Nothing And mem <> "" Then
  For Each r In r
    r = IIf(r = "", "", r & ", ") & mem
  Next
  mem = "" 'RAZ, à placer soit ici
End If
'mem = "" 'soit là
End Sub

Fichier joint.

A+

 

[Ilino]

Re : CODE pour code couleur

Bonjour
Mais ma boule de cristal chérie donne ceci :

Bonjour MAITRE😱
Elle n’a pas tord ... super c'est nickel
Problème RESOLUTO
a+

 

[camarchepas]

Re : CODE pour code couleur

Re ,

Job , Juste extra Lucide , ou tu as le Tel d'Ilino , Lol

Car pas simple de chopper la bonne fréquence ......

Bravo en tout cas .