Formule incomplète...un peu d'aide svp

[memene]

Bonjour à tous,

Dans le fichier que je joints j'ai créé un code VBA qui permet de rendre rouge la cellule comprise entre c23:h23 sur laquelle je double-clique.
Je voudrai effectuer cette même opération pour les cellules c22:h22 mais indépendamment de la ligne 23.
En gros, j'ai créé un VBA pour la ligne 23 et je veux le même pour la ligne 22 mais sans que les 2 s'interfèrent. Est-ce possible?
Merci d'avance pour votre aide.

Memene

 

[KenDev]

Re : Formule incomplète...un peu d'aide svp

Bonjour memene,

voir post suivant

 

[KenDev]

Re : Formule incomplète...un peu d'aide svp

OUps j'ai été un peu vite :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pl As Range, n%
Set pl = Range("C21:H23")
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
n = Target.Row
Set pl = Range(Cells(n, 3), Cells(n, 8))
Cancel = True
pl.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
Cells(n, 14).Value = Target.Value
End Sub

Cordialement

KD

 

[memene]

Re : Formule incomplète...un peu d'aide svp

Super! Merci Kendev...exactement ce que je voulais.

A+
Memene