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.

 

[pierrejean]

Re : Compteur

Re

Avec la version non zippée

Moi je t'adore cher Dull 🙂

 

[Hulk]

Re : Compteur

re,

zzz calme toi Dull, s'il y en a un qui doit s'énérver ici c'est.. pas moi ! (vaut mieux pas disons 😀)

Encore un petit détail... celui qui tue 🙄

Tant que je laisse appuyer sur delete il soustrait 1 au compteur.. ok.
Mais comment lui dire que j'ai le droit qu'à un delete à la fois ?

Je m'explique :

Je me trompes, j'efface, puis si par erreur je delete à nouveau qu'il m'affiche une MsgBox disant que je peux deleter qu'une fois après chaque saisie.
Ceci pour que le compteur ne descende pas plus bas que le coup d'avant.

Voyez ce que je veux dire... Possible ça ?

Merci, Hulk.

 

[Gael]

Re : Compteur

Re et Salut PierreJean,

Au fait Gael, je cherche encore le test conditionnel SI pour les échecs... en vain 😡 mais on y arrivera ! 😀

Je t'enverrai bientôt une version améliorée dans laquelle un seul échiquier suffit pour gérer toutes les parties.

Pardonne-moi PierreJean si cela courtcircuite ta macro multiéchiquiers.

@+

Gael

 

[Dull]

Re : Compteur

Cher ami pierrejean 🙂, le fil

Merci pour cette attention

mais, comme moi, le simple fait de double-clicker sur la cellule A1 incrémente la Valeur de D1 de la feuil1 ...chose que j'aurais voulu éviter.

1/ Ensemble on vaincra
2/ Peut-être comme cela

MODIF: Cause Erreur

Peut être cela

Re Modif:


EDITION: Salut Gaël🙂
Bonne Journée

 

[Hulk]

Re : Compteur

Re,

Je t'enverrai bientôt une version améliorée dans laquelle un seul échiquier suffit pour gérer toutes les parties.

Champion du monde !

et

Pardonne-moi PierreJean si cela courtcircuite ta macro multiéchiquiers..

Que Pierrejean ne s'inquiète pas, son fichier me sera très utile à moi 😉

Cela dit, revenons à nos moutons.
Donc si moyen d'éviter plusieurs fois de suite le delete...

@+.

Hulk.

 

[Hulk]

Re : Compteur

Re,

Dull, WE CAN bon dieu 😀

 

[Hulk]

Re : Compteur

Re,

Je suis désolé de tout mélanger, mais au fait le dernier fichier envoyé par Pierrejean est, pour moi, impec.

Ok pour qu'on puisse deleter plusieurs fois de suite, mais que la cellule compteur ne puisse pas descendre en dessous de zéro. C'est à dire qu'a partir de zéro, là on ne puisse plus deleter !

Possible ?

Encore pardon pour mes embrouilles 😀

Hulk.

 

[pierrejean]

Re : Compteur

Re

A tester

 

[Hulk]

Re : Compteur

Re,

Impec Pierrejean, la classe.

Bon si tu veux pour l'échange, je t'initie au échecs 😀

Passe un bon week... et les autres aussi !

Hulk.

 

[lazare]

Re : Incrémente D1 à chaque saisie dans A1

bonjour,
je suis nouveau sur ce site, et je trouve la solution à un probleme que je voulais résoudre: l'incrementation d'une cellule; cela marche mais pourrais -je savoir comment cela a été réalisé
merci

 

[Lii]

Re : Compteur

Bonsoir Tous,

pour avoir suivi les échanges, quel est l'intérêt d'utiliser 2 évènements ?
Pourquoi ne pas utiliser le compteur comme compteur de lignes ?
On pourrait avoir une procédure plus simple :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count <> 1 Or Target.Address <> "$A$1" Then Exit Sub
  If Target.Value = "" And [D1] > 0 Then
      Sheets(2).Range("A" & [D1]) = ""
      [D1] = [D1] - 1
    End If
  Else
    [D1] = [D1] + 1
    Sheets(2).Range("A" & [D1]) = [A1]
  End If

Si on ne veut qu'une suppression possible, on peut passer par le

Dim Fait As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count <> 1 Or Target.Address <> "$A$1" Then Exit Sub
  If Target.Value = "" And [D1] > 0 Then
    If Fait = True Then
      MsgBox "Halte au feu", , "Oh ..."
      Exit Sub
    Else
      Sheets(2).Range("A" & [D1]) = ""
      [D1] = [D1] - 1
      Fait = True
    End If
  Else
    [D1] = [D1] + 1
    Sheets(2).Range("A" & [D1]) = [A1]
    Fait = False
  End If
End Sub

 

[Hulk]

Re : Compteur

Hello,

Salut Lii et merci.

Encore une version différente.. bon à prendre !
Au passage, merci aussi pour ta contribution sur le post concernant les échecs !

Merci à tous pour votre aide.

Hulk.

 

[Hulk]

Re : Compteur

Re,

J'essaie de l'appliquer sur deux colonnes comme ceci

Option Explicit

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
  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
  End If
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Sheets(2).Range("A65536").End(xlUp).Value = [A1] Then Exit Sub
Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Value = [A1]

If Sheets(2).Range("B65536").End(xlUp).Value = [B1] Then Exit Sub
Sheets(2).Range("B65536").End(xlUp).Offset(1, 0).Value = [B1]

End Sub

mais il ne copie pas dans la colonne B, il copie seulement après avoir saisi encore A1

Pourquoi 😕

Par contre pour le compteur c'est bon il l'incrémente bien.

J'opte finalement pour la dernière solution de Pierrejean. J'espère que vous ne m'en voudrez pas.

Merci de votre aide.

Hulk.

 

[Hulk]

Re : Compteur

Et re,

Bon j'ai encore essayé comme ça

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Sheets(2).Range("A65536").End(xlUp).Value = [A1] And Sheets(2).Range("B65536").End(xlUp).Value = [B1] Then Exit Sub
Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Value = [A1]
Sheets(2).Range("B65536").End(xlUp).Offset(1, 0).Value = [B1]

End Sub

et là, il copie bien dans les deux colonnes, mais il copie aussi en A1 quand je saisis en B1 😀

J'arrive pas trouver la bonne combine 😡 😀

We can !

@+.

Hulk.

 

[Hulk]

Re : Compteur

Hello,

Je relance la chose car je n'arrive pas à y appliquer sur deux colonnes.

Je joins le fichier concerné.

Merci pour votre aide.

Bonne soirée.

Hulk.