Double clique sur la cellule X et inscription sur dans la cellule Y

Bonjour,

Dans le fichier ci joint,

si je double clique sur la cellule b12, elle est rempli d'une couleur et dans la cellule I12, le chiffre 1 va s'inscrire

si je double clique sur la cellule F13, elle est rempli d'une couleur et dans la cellule M13, le chiffre 5 va s'inscrire

etc...

J'ai créer un tableau identique en P12 et je souhaiterais que si je double clique dessus, le chiffre 1 va s'incrire dans la cellule w12. Hors actuellement, c'est le chiffre 15 qui y va, etc- si je clique sur Q13 = 2 en x13

D'avance merci de votre aide

Bonjour,

A tester

Bonjour,

La valeur inscrite dans la cellule dépend de la position de la colonne.

Faut ajuster en fct de la position.

Comme ca par exemple

Bonjour,

Autre proposition:

Dim Ref
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim PutColor As Boolean
If Not Application.Intersect(Target, Range("B12:F14")) Is Nothing Then

    Cancel = True
    With Target
        For i = 2 To 6
            If i = .Column And Not (.Font.Bold And .Interior.ColorIndex = 37) Then PutColor = True Else PutColor = False
            Ref = 1
            MiseEnForme Cells(.Row, i), PutColor
        Next i
    End With

ElseIf Not Application.Intersect(Target, Range("P12:T14")) Is Nothing Then

    Cancel = True
    With Target
        For i = 16 To 20
            If i = .Column And Not (.Font.Bold And .Interior.ColorIndex = 37) Then PutColor = True Else PutColor = False
            Ref = 15
            MiseEnForme Cells(.Row, i), PutColor
        Next i
    End With
    End If

End Sub

Sub MiseEnForme(Cellule As Range, Surbrillance As Boolean)
With Cellule
    .Interior.ColorIndex = IIf(Surbrillance, 37, xlNone)
    .Offset(0, 7).Value = IIf(Surbrillance, .Column - Ref, "")
    .Font.Bold = Surbrillance
End With
End Sub

Cdlt

Bonjour,

Merci à tous pour vos solutions qui fonctionnent à merveille