Macro événementielle.

Résolu/Fermé

VINCENTNINI Messages postés 8 Date d'inscription dimanche 8 septembre 2013 Statut Membre Dernière intervention 29 juin 2019 - Modifié le 2 mai 2019 à 14:09
VINCENTNINI Messages postés 8 Date d'inscription dimanche 8 septembre 2013 Statut Membre Dernière intervention 29 juin 2019 - 2 mai 2019 à 20:57

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

A voir également:

Macro événementielle.
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 mai 2019 à 17:38

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 8 Date d'inscription dimanche 8 septembre 2013 Statut Membre Dernière intervention 29 juin 2019
2 mai 2019 à 20:57

Merci j'essaye demain car je ne suis pas chez moi !!!

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters