Case en jaunes

Bonjour je sollicite votre aide .

lorsque je clique sur un chiffres exemple 1B

alors il mettra en 2B le chiffre 1 si je ne clique seulement 1 fois 1B

si je cliques 3fois de suites sur 1B alors en 2B il indiquera 3

idem pour les autres chiffres

et il mettra la case en jaunes si il y a le chiffres 2

exemple je clique 2 fois

D11 alors en D12 il mettra le chiffres 2 et la case sera jaunes

Salut le forum

Encore une problématique non-explicite, ou il faut deviner quoi faire et ou le faire . . .

Angel09 a écrit :

Lorsque je clique sur un chiffre exemple 1B

Déjà faudrait le trouver le 1B

Mytå

bonsoir c'est le chiffre 0

Re le forum

Code à insérer dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CelAdr As String

If Not Application.Intersect(Target, Range("B1:G26")) Is Nothing Then
  CelAdr = Target.Cells(1, 1).Address
    With Range(CelAdr)
      If IsNumeric(.Value) And .Interior.ColorIndex <> xlNone Then
        .Offset(1) = .Offset(1) + 1
        If .Offset(1) = 2 Then .Offset(1).Interior.ColorIndex = 6
      End If
    End With
  Range("A1").Activate
End If

End Sub

Mytå

Bonjour et merci pour votre réponse mais c'est ou le module

merci pour votre aide

Re le forum

Alt + F11 pour accéder au VBA, double clique à gauche sur la feuille

et insère le code dans la fenêtre de droite.

Mytå

merci pour votre aide mille merci et bonne fin de journée