Compteur

[biloute91]

Bonjour à tout le forum,

Je souhaiterais une formule ( pas forcement en vba) qui me permettrait de comptabiliser le nombre de fois où une cellule est modifiée.
Ex :

En A1 = valeur
En B1 = le compteur

Dès que A1 est modifiée , B1 est alimentée

Merci pour votre aide

 

[skoobi]

Re : Compteur

Bonjour,

dans les options onglet calcul, coche itération et 1 pour la valeur.
En B1: =B1+1

 

[Cousinhub]

Re : Compteur

Bonjour
sans VBA, ce sera difficile...
Avec VBA :

Dans le workbook_open()

Private Sub Workbook_Open()
ancienne_valeur = [A1]
End Sub

dans un module standard, tu déclares ancienne_valeur en Public :

Public ancienne_valeur

et dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then _
    If Target <> ancienne_valeur Then [B1] = [B1] + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then ancienne_valeur = Target
End Sub

 

[biloute91]

Re : Compteur

Bonjour skoobi,

dans le principe la formule fonctionne sauf que la cellule A1 contient du texte et donc en B1 j'obtiens #Valeur

 

[biloute91]

Re : Compteur

bonjour bhbh,

merci pour ta formule qui fonctionne. Si je veux l'appliquer à l'ensemble de la colonne, dois-je juste changer [A1] en [A:A] et de même pour B ?

 

[Cousinhub]

Re : Compteur

Re-,
oui, en adaptant :

dans le workbook_open()

Private Sub Workbook_Open()
Sheets("Feuil1").Select
[A1].Select
End Sub

tu gardes le module standard, avec la variable en Public, et dans l'évènement de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then _
    If Target <> ancienne_valeur Then Target.Offset(, 1) = Target.Offset(, 1) + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then ancienne_valeur = Target
End Sub

Attention, toutefois, si tu as d'autres codes, il faudra penser à initialiser la valeur de "ancienne_valeur" en fin de code, en sélectionnant obligatoirement la cellule A1 par exemple, ou une autre colonne (B1).
Ainsi, en sélectionnant une cellule de la colonne A, on initialise la valeur publique

 

[BOISGONTIER]

Re : Compteur

Bonjour bhbh,

>Attention, toutefois, si tu as d'autres codes, il faudra penser à initialiser la >valeur de "ancienne_valeur" en fin de code, en sélectionnant obligatoirement >la cellule A1 par exemple, ou une autre colonne (B1).
>Ainsi, en sélectionnant une cellule de la colonne A, on initialise la valeur >publique

En mémorisant l'ancienne valeur dans un nom (mémo), on échappe à cette contrainte puisque mémo est sauvegardé avec le classeur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then _
    If Target <> [mémo] Then Target.Offset(, 1) = Target.Offset(, 1) + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Formula & Chr(34)
  End If
End Sub

JB

 

[Cousinhub]

Re : Compteur

Bonjour JB
Bien joué, je n'y avais pas pensé.
Merci pour lui (et moi.....)
Bonne soirée

 

[biloute91]

Re : Compteur

N'arrivant pas à mettre en place le code , je vous joins en fichier.
Les cellules qui sont susceptibles d'être modifiées sonr en colonne B et le compteur devrait être en colonne C et ce sur les 4 premières feuilles

 

[Cousinhub]

Re : Compteur

Re-,
ce n'est plus la même chose, ta cellule modifiée étant le résultat d'une formule, et plusieurs cellules ont la même formule...
Pourquoi ne pas incrémenter la 4 ème colonne de la feuille "Liste" comme ceci :

....
.....
With Sheets("Liste")
.Cells(L, 2).Value = Me.TextBox1.Value
.Cells(L, 4).Value = .Cells(L, 4).Value + 1
End With
.....
.....

Tu auras ainsi le nombre de modifs dans cette feuille

 

[biloute91]

Re : Compteur

Bonjour bhbh,

merci pour ta formule, c'est fait et cela fonctionne

Bonne journée