Compteur

Excel-lent

XLDnaute Barbatruc

• 5 Décembre 2008

• #2

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

 

Pièces jointes

• Incrémente D1 à chaque saisie dans A1.xls

  27.5 KB · Affichages: 83
• Incrémente D1 à chaque saisie dans A1.xls

  27.5 KB · Affichages: 87
• Incrémente D1 à chaque saisie dans A1.xls

  27.5 KB · Affichages: 82

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 5 Décembre 2008

• #3

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.

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 5 Décembre 2008

• #4

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.

 

Pièces jointes

• Incrémente D1 à chaque saisie dans A1.xls

  39 KB · Affichages: 74
• Incrémente D1 à chaque saisie dans A1.xls

  39 KB · Affichages: 74
• Incrémente D1 à chaque saisie dans A1.xls

  39 KB · Affichages: 77

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 5 Décembre 2008

• #5

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 5 Décembre 2008

• #6

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.

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 5 Décembre 2008

• #7

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.

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 5 Décembre 2008

• #8

Re : Compteur

Bonjour Hulk, bonjour à tous,

Tu peux aussi essayer:

Code:

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 5 Décembre 2008

• #9

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.

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 5 Décembre 2008

• #10

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.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 5 Décembre 2008

• #11

Re : Compteur

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

Que de monde... etdubeau🙂

essaye ça

Code:

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 5 Décembre 2008

• #12

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Décembre 2008

• #13

Re : Compteur

Re

A partir du code de Dull

A tester

 

Pièces jointes

• Incrémente D1 à chaque saisie dans A1.zip

  11.2 KB · Affichages: 32

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 5 Décembre 2008

• #14

Re : Compteur

Re,

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

Magnifique Pierrejean, la touche finale !

Bonne journée à tous.

Hulk.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 5 Décembre 2008

• #15

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

 

Vote positif 0 Vote négatif