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

dg62

XLDnaute Barbatruc

• 18 Avril 2020

• #2

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

VB:

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

 

Pièces jointes

• BIAA GROUP To Do List_17.04.20.xlsm

  86.9 KB · Affichages: 11

Dernière édition: 18 Avril 2020

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 18 Avril 2020

• #3

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.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 18 Avril 2020

• #4

Bonjour,

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

Boisgontier

 

Vote positif 0 Vote négatif

L

Le Bourgeois

XLDnaute Nouveau

• 18 Avril 2020

• #5

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

 

Dernière édition: 18 Avril 2020

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 18 Avril 2020

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

L

Le Bourgeois

XLDnaute Nouveau

• 18 Avril 2020

• #7

Vous m'avez perdu 😱

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 18 Avril 2020

• #8

Le Bourgeois à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Solution

dg62

XLDnaute Barbatruc

• 18 Avril 2020

• #9

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

 

Vote positif 0 Vote négatif