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.

 

[Excel-lent]

Incrémente D1 à chaque saisie dans A1

Bonsoir Hulk,

Voici ci-joint ton fichier complété.

D1 est incrémenté à chaque fois que tu saisie quelque chose en A1 (texte, formule, nombre, ...)

Bonne fin de semaine

 

[Hulk]

Re : Compteur

Hello,

Excellent Excel-lent !

J'étais loin du compte 😱

Heu tu as vu que j'ai modifié le fichier ayant oublié quelque chose..

Tu sais comment, par dessus le marché, il copie dans la Feuil2 en colonne A1 ce que j'ai saisi en Feuil1 A1 ?

Revois le fichier que j'ai joins pour plus de précision, peut-être qu'avant tu l'as pris avant que je fasse la modification.

En tous les cas un grand merci.

Hulk.

 

[Hulk]

Re : Compteur

re,

Je remets le fichier fair par Excel-lent avec une nouvelle demande que je n'arrive pas à faire..

Merci de votre aide.

Hulk.

 

[excalibur]

Re : Compteur

bonjour couche tard Excel-lent le forum
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then [d1] = [d1] + 1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets(2).Range("a65536").End(xlUp).Offset(1, 0).Value = [a1]
End Sub

 

[Hulk]

Re : Compteur

Salut la compagnie,

Super les gars et merci pour vos réponses.

Cependant, n'y a t-il pas moyen de lui dire que c'est uniquement quand je manipule Feuille 1/A1 qu'il copie en Feuille 2/Colonne A ?

Car comme tel, il copie A1 chaque fois que je saisi quelque chose où que ce soit, et même lorsque je sélectionne n'importe quelle cellule de feuille1

Je m'suis dit ok j'ai qu'à protéger la Feuille1, mais non.. message d'erreur.
Si je protège le feuille, je sais que pour éviter le message d'erreur je rajoute On Error Resume Next avant le If, mais réflexion faite, je ne veux pas protéger la feuille 😀

J'ai aussi essayé ça

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then [d1] = [d1] + 1
Sheets(2).Range("a65536").End(xlUp).Offset(1, 0).Value = [a1]
End Sub

mais là il me copie 2 fois la chose 😀
N'y a t-il pas moyen de lui dire de copier juste une fois

Merci pour votre aide.

Hulk.

 

[Hulk]

Re : Compteur

Re,

Au fait je pinaille là, ça va très bien avec la version que tu m'as donné Exca.

Juste rajouté le On Error Resume Next pour le cas ou je protège la feuille, éviter le message d'erreur d'execution.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then [d1] = [d1] + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets(2).Range("a65536").End(xlUp).Offset(1, 0).Value = [a1]
End Sub

Merci encore et bonne journée à tous !

Hulk.

 

[Gael]

Re : Compteur

Bonjour Hulk, bonjour à tous,

Tu peux aussi essayer:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
[d1] = [d1] + 1
Sheets(2).Range("a65536").End(xlUp).Offset(1, 0).Value = [a1]
End If
End Sub

Comme cela, la copie n'a lieu que si c'et la cellule A1 qui et modifiée.

@+

Gael

 

[Hulk]

Re : Compteur

Re,

Impec Gael, mais au fait j'étais pas loin avant alors... me manquait le End If ou bien... Bref.

Merci à tous impeccable !

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

Bonne journée à tous.

 

[Hulk]

Re : Compteur

Re,

Juste encore une petite question:

Si je veux qu'il copie uniquement dans la plage A2:A100 au lieu de A65536 ?

J'ai essayé Sheets(2).Range("A2:A100").... mais non.

Merci. Hulk.

 

[Dull]

Re : Compteur

Salut Hulk, Excel-lent, Excalibur, Gaël, le forum

Que de monde... etdubeau🙂

essaye ça

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A1]) Is Nothing Then [D1] = [D1] + 1
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]
End Sub

Si la valeur en A1 est différente de la valeur en dernière position de la col A de la feuille 2 / copie de la valeur et incrémentation de la valeur en D1

Bonne Journée

 

[Hulk]

Re : Compteur

Hello, les maitres 😀

Ca joue aussi Dull impec.

Mais je vais compliquer la chose 😀

Supposons que je me sois trompé, je voulais saisir "Z" au lieu de "Y" en A1,
donc j'efface et le compteur compte 1 de plus.

Comment faire pour que si j'efface la dernière saisie, non seulement qu'il n'incrémente pas le compteur, et qui plus est, qu'il efface en feuille 2 le "Z", effet inverse quoi 😀

Epatez-moi les pros 😛

Merci pour votre aide messieurs.

Hulk.

 

[pierrejean]

Re : Compteur

Re

A partir du code de Dull

A tester

 

[Hulk]

Re : Compteur

Re,

Et un pro de plus ! j'suis gâté 😀

Magnifique Pierrejean, la touche finale !

Bonne journée à tous.

Hulk.

 

[Dull]

Re : Compteur

Salut pierrejean🙂, le Fil

Cette fois c'est décidé... je te déteste 😛
1/ je n'arrive pas a ouvrir ton fichier(chépaspourquoi) 😱
2/ Ce doit être la (PilePoil) réponse de l'ami Hulk
3/ le 1/ ne pas valable car je connais la valeur de l'ami Pierre et ilm'énèreve 😀

Bonne journée à tous