Compteur

[Hulk]

Bonsoir à tous,

Je souhaiterais faire en sorte qu'il ajoute en D1 1+1+1+1 etc à chaque saisie en A1, mais je n'y arrive pas 😡

Je joins un fichier pour mieux expliquer ce que je désire faire. (espérant que ça soit plus clair 😀)

Merci pour votre aide.

RECTIFICATION DU FICHIER !

Hulk.

 

[Lii]

Re : Compteur

Re,

Pourquoi veux-tu passer par 2 évènements (redite) ?

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, [A1]) Is Nothing Then
 If Target.Value = "" Then
  If [D1] > 0 Then
    [D1] = [D1] - 1
    Sheets(2).Range("A65536").End(xlUp) = ""
  End If
 Else
  [D1] = [D1] + 1
  [B]Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Value = [A1][/B]
  End If
End If

If Not Application.Intersect(Target, [B1]) Is Nothing Then
 If Target.Value = "" Then
  If [D1] > 0 Then
    [D1] = [D1] - 1
    Sheets(2).Range("B65536").End(xlUp) = ""
  End If
 Else
  [D1] = [D1] + 1
 [B] Sheets(2).Range("B65536").End(xlUp).Offset(1, 0).Value = [B1][/B]
  End If
End If

End Sub

 

[Hulk]

Re : Compteur

Hello Lii,

D'abord merci d'avoir mis ta griffe, c'est exactement ce que je voulais.

Juste encore une chose, si je protège la feuille1 sauf les cellules A1 et B1 et D1, c'est possible qu'en tapant Enter, qu'il sélectionne A1 et B1 mais pas D1 ?

Je suis obligé de dévérouiller D1 quand je protége la feuille sinon message d'erreur.

Et pour ta question, j'essaie de faire (avec le fichier Echecs.xls tu vois de quoi je parle 😉) quelque chose d'actif donc un coup à lui un coup à l'autre et si je veux revenir en arrière ou une toupie, ou on efface le dernier coup ou plus et on recommence.

Bref c'est le binz je suis absolument pas sur d'y arriver (seul) mais je sais que Gael (peut-être d'autres aussi) est sur le coup !

Je m'amuse avec Excel quoi.

Voilà tu sais tout 😀

@+, Hulk.