Discussion :

[DenisHen]

Bonjour à tous,

Voilà, j'ai un petit souci, j'aimerais savoir si une cellule a changer lors de la "sortie" de celle-ci.

Par exemple, une cellule contient "PARIS", j'aimerais savoir si l'opérateur l'a changer ou pas, afin de savoir si une sauvegarde est nécessaire ou pas...

Je suis ouvert à tous conseils ou astuces...

Denis...

[78chris]

Bonjour

Pour un contrôle sur la colonne B, sachant que l'utilisateur peut saisir ou supprimer simultanément dans plusieurs cellules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
 
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    x = Target.Cells(1, 1).Value
    Application.Undo
    For Each cellule In Target.Cells
        y = cellule.Value
        If y <> x Then
            cellule.Value = x
            AChange = True
        End If
    Next
    If AChange = True Then MsgBox "la ou les cellules ont changé"
    Application.EnableEvents = True
End Sub

[DenisHen]

Bonjour Chris, et merci de me répondre.

Ce bout de code ne fait rien...

Je pensais attribuer à une variable AncienValue$ l'ancienne valeur de la cellule et en sortie, comparer la valeur de la cellule à AncienValeur$...

Mais ça semble beaucoup plus compliqué que ça...

Pour la petite histoire, je contrôle les lignes de 1 à 16.

Merci encore.

Denis...

[78chris]

Bonjour

Il faut coller le code dans le module de la feuille concernée et adapter la plage de contrôle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Intersect(Target, Range("1:16")) Is Nothing Then Exit Sub