Double click = couleur dans une cellule et chiffre dans un autre

Bonjour,

Je souhaite faire un fichier qui indique par exemple si je clique sur la cellule B12, elle vient en couleur et le chiffre 1 va s'inscrire dans la cellule I12, si je clique sur la cellule D12, elle devient en couleur et le chiffre 3 va s'inscire en k12, etc.. (vous comprendrez mieux avec le fichier excel ci-joint. Il faudrait également que si je reclique sur la cellule b12, la couleur s'enlève et que le chiffre en I12 s'efface. Je souhaite également faire en sorte qu'un seul choix puisse être fait par ligne.

J'ai réussi pour la couleur mais pas pour le reste.

D'avance un grand merci

Stéphane

Bonjour,

Votre fichier est au format xlsx on ne voit pas votre code pour la couleur car pas de macro il faut enregistrer en xlsm

Bonjour Fornstep, le forum,

Salut Xmenpl,

Un essai....mais il y a certainement moyen d'optimiser...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Application.Intersect(Target, Range("B12:F13")) Is Nothing Then
  If Target.Count > 1 Then Exit Sub
   Cancel = True
    With Target
     For i = 2 To 6
      If i <> Target.Column Then
       Cells(Target.Row, i).Interior.ColorIndex = xlNone
       Cells(Target.Row, i + 7).Value = ""
      End If
     Next i
    .Interior.ColorIndex = IIf(.Interior.ColorIndex = xlNone, 6, xlNone)
    .Offset(0, 7) = IIf(.Interior.ColorIndex = xlNone, "", Target.Column - 1)
   End With
  End If
End Sub

Cordialement,

C'est parfait; ça fonctionne comme espéré

Merci beaucoup

Bon week-end