OVH Cloud OVH Cloud

Compteur d'incrémentation d'une cellule

4 réponses
Avatar
Geoffrey J
Bonjour,

Je cherche une fonction ou un moyen de compter le nombre=20
de fois qu'une cellule est modifi=E9e.

Formule? Macro?

Merci de votre aide.

Geoffrey

4 réponses

Avatar
AV
Je cherche une fonction ou un moyen de compter le nombre
de fois qu'une cellule est modifiée.


M'est avis qu'il faudrait préciser la demande au travers d'un exemple....
Ex.: Si on rentre la même valeur, c'est une modif ou pas ?

AV

Avatar
Geoffrey
En fait, si on entre une valeur quelconque distincte de la
précédente, il faudrait incrémenter la valeur d'une autre
cellule.
C'est possible par Macro, mais existe-il une fonction dans
Excel pour ça ?

Merci


-----Message d'origine-----
Je cherche une fonction ou un moyen de compter le nombre
de fois qu'une cellule est modifiée.


M'est avis qu'il faudrait préciser la demande au travers
d'un exemple....

Ex.: Si on rentre la même valeur, c'est une modif ou pas ?

AV


.




Avatar
AV
En fait, si on entre une valeur quelconque distincte de la
précédente, il faudrait incrémenter la valeur d'une autre
cellule.C'est possible par Macro,


Pas si facile....
Pour incrémenter B1 si la valeur de A1 est changée :
Dans le module de la feuille :

Private laVar

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If zz.Value <> laVar Then [B1].Value = [B1] + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
laVar = zz.Value
End Sub

mais existe-il une fonction dans Excel pour ça ?
Pas que je sache !


AV

Avatar
Geoffrey
Merci!!


-----Message d'origine-----
En fait, si on entre une valeur quelconque distincte de
la


précédente, il faudrait incrémenter la valeur d'une autre
cellule.C'est possible par Macro,


Pas si facile....
Pour incrémenter B1 si la valeur de A1 est changée :
Dans le module de la feuille :

Private laVar

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If zz.Value <> laVar Then [B1].Value = [B1] + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
laVar = zz.Value
End Sub

mais existe-il une fonction dans Excel pour ça ?
Pas que je sache !


AV


.