XL 2016 Compteur de nombre de changement de valeur d'une cellule

[Le Bourgeois]

Bonjour à tous,

je me trouve en galère à créer un compteur de changement de cellule.

J'ai essayé de copier/coller des macros complètes en tentant de changer les target mais cela ne fonctionne qu'à moitié.

J'aimerais qu'à chaque fois que je change une valeur en colonne F, la colonne H incrémente et surtout, comprendre la logique de programmation derrière.

D'avance merci pour votre support et excellente journée.

Adrien

 

[dg62]

Bonjour Le Bourgeois,
A chaque modification de la colonne F La valeur de la cellule correspondante de H s'incrémente.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("F2:F100")) Is Nothing Then

       Target.Offset(0, 2).Value = Target.Offset(0, 2).Value + 1

        End If

End Sub

 

[jmfmarques]

Bonjour dg62
Ta réponse est bonne, mais à compléter (mise en mémoire - pour comparaison - de la valeur au selection_change) car l'évènement change est déclenché même si la nouvelle saisie est égale à la précédente.
Je te laisse compléter.

 

[BOISGONTIER]

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/HistoriqueModification.xls

Boisgontier

 

[Le Bourgeois]

Un GRAND MERCI l'équipe, je me rends compte de mes nombreuses erreurs. Par contre je ne comprends pas ou la macro décide d'écrire. Je ne vois pas la colonne H?

Bon confinement à vous

 

[dg62]

Bonjour le Fil,
Pour faire suite à la remarque de JmfMarques

Option Explicit
Public cel As Variant

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("F2:F100")) Is Nothing Then
            If Target.Value <> cel Then
            
                Target.Offset(0, 2).Value = Target.Offset(0, 2).Value + 1
            Else
                MsgBox "Valeur identique"
            End If
        End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' mise en mémoire de la valeur initiale
cel = ActiveCell.Value
End Sub

 

[Le Bourgeois]

Vous m'avez perdu

 

[dg62]

Un GRAND MERCI l'équipe, je me rends compte de mes nombreuses erreurs. Par contre je ne comprends pas ou la macro décide d'écrire. Je ne vois pas la colonne H?

Bon confinement à vous

Target.offset(0,2) correspond à la colonne H

 

[dg62]

Re,

Target.Offset(0,2) signifie que l'on accède à la cellule située 2 cellules plus loin sur la droite.
0 position initiale
2 décalage à droite