Menu

Macro événementielle. [Résolu]

Messages postés
6
Date d'inscription
dimanche 8 septembre 2013
Statut
Membre
Dernière intervention
2 mai 2019
-
Bonjour,
mon problème est le suivant: je peut modifier le contenu des cellules de la colonne A de ma feuille via un choix de valeur dans une liste déroulante.
J'aimerais pouvoir conserver la valeur originale (avant modification) dans la cellule correspondante en colonne B.
J'ai une macro événementielle qui marche pour A1 avec copie en B1 mais je ne parvient pas à l'étendre à A1:A20
Pourriez vous m'aider

macro :


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$A$1" Then Exit Sub
Dim OldVal As Variant, NewVal As Variant
Application.EnableEvents = False
NewVal = Target.Value
Application.Undo
OldVal = Target.Value
Target.Value = NewVal
Target.Offset(0, 1).Value = OldVal
Application.EnableEvents = True
End Sub


Merci d'avance



Configuration: Windows / Chrome 73.0.3683.103
Afficher la suite 

Votre réponse

1 réponse

Messages postés
14372
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 mai 2019
1137
0
Merci
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim OldVal As Variant, NewVal As Variant
    
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A1:A20")) Is Nothing Then
        Application.EnableEvents = False
        NewVal = Target.Value
        Application.Undo
        OldVal = Target.Value
        Target.Value = NewVal
        Target.Offset(0, 1).Value = OldVal
    End If
    Application.EnableEvents = True
End Sub
VINCENTNINI
Messages postés
6
Date d'inscription
dimanche 8 septembre 2013
Statut
Membre
Dernière intervention
2 mai 2019
-
Merci j'essaye demain car je ne suis pas chez moi !!!
Commenter la réponse de f894009