Compteur de modification

[Jacques25]

Bonjour à tous,

Je cherche un moyen (par formule) de compter le nombre de fois qu'une cellule passe à 1.
Exemple : Saisir des nombres en A1, et chaque fois que ce nombre est 1, il faut incrémenter B1.

Je ne sais pas si c'est possible mais vous êtes tellement forts les uns, les autres que je ne désespère pas.

Merci à tous

Jacques

 

[Jeannot45]

Salut Jacques

Voici une petite procédure qui fait ce que tu souhaites

il faut la placer sur l'évènement Selection_Change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Intersection As Range
Set Intersection = Intersect(Range('A1'), Range('A1'))

If Intersection Is Nothing Then Exit Sub
If ActiveCell = 1 Then
    Range('B1') = Range('B1') + 1
End If

End Sub

Chaque fois que tu saisis 1 dans la cellule A1, le contenu de la cellule B1 augmente

Bonne réception

Jeannot

 

[Jeannot45]

Re,

Ne tiens pas compte de la procédure que je t'ai envoyée, elle ne fonctionne pas correctement

J'y travaille

Mille excuses

Jeannot

 

[jp14]

Bonjour

Voici une solution basée sur le passage de 0 à 1.(front montant) Elle demande une mémoire pour connaître l'état antérieur.

JP [file name=Jacques25.zip size=7067]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Jacques25.zip[/file]

 

[pierrejean]

bonjour jacques jeannot jp14

voila une autre version

mais ais-je bien compris le probleme ??? [file name=Jacques25_20060309134722.zip size=7512]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Jacques25_20060309134722.zip[/file]

Message édité par: pierrejean, à: 09/03/2006 13:47

 

[pierrejean]

re

une autre façon de comprendre [file name=Jacques25b.zip size=7247]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Jacques25b.zip[/file]

 

[Jacques25]

Bonsoir à tous,

Merci pour votre aide, la dernière solution de pierrejean me semble la plus simple, j'aurai souhaité le faire par formule mais apparement c'est pas si simple.

Encore merci à tous

jacques

 

[JeanMarie]

Bonsoir

Une possibilité avec une option de calucl d'Excel.

Va dans l'onglet Calul de la boîte de dialogue des options d'excel, coche l'option 'Itération' et fixe la valeur 'Nb maximal d'itérations :' à 1, très important. Valide.

Dans la cellule B1, tu colles cette formule
=SI(A1=1;B1+1;B1)

Si tu as une procèdure événementielle, tu dois la supprimer.

@+Jean-Marie