copier contenu cellule modifiée Résolu/Fermé

Question

Bonjour, 

Je suis actuellement confronté à un problème concernant le VBA. N'ayant pas de connaissance dans ce langage c'est assez compliqué pour moi même si je pense la problématique n'est pas si difficile que cela..

J'ai une colonne A dans laquelle figure des valeurs 

Je souhaiterai qu'à chaque modification faite sur l'une des cellules de la colonne A, l'ancienne valeur soit reportée automatiquement dans la case de la même ligne de la colonne B.

Exemple : 

J'ai ok en A1 
Si je change "ok" en "ko", je veux que "ok" soit reporté en B1 automatiquement

Bonus : 
Est ce qu'il serait possible que la macro prenne en compte le fait qu'une colonne soit ajoutée dans le tableau ? 

Exemple : Si j'ajoute une colonne à gauche de la colonne A, le décalage soit pris en compte ?

Je vous remercie pour toute aide.. Ce problème qui m'a bloqué tout l'après midi dans mon travail..

Bonne fin de soirée !

Bazargones

michel_m · Answer

Bionjour

essaies
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Columns("A")) Is Nothing Then     With Application          .EnableEvents = False          nouveau = Target          .Undo          ancien = Target          Range("B" & Target.Row) = ancien          Target = nouveau          .EnableEvents = True     End WithEnd IfEnd SubSub SOS()'réarmorce la prise en compte événementApplication.EnableEvents = TrueEnd Sub 

macro à installer dans le module feuille concerné

comment installer ?
copier cette macro
clic droit sur le nom de l'onglet de la feuille concernée (en bas de l'écran)
visualiser le code
coller

bazargones · Answer

Bonjour @michel_m, 

C'est exactement ce que je cherchais.. Je te remercie !!

Bonne fin de journée

Bazargones

Copier contenu cellule modifiée

2 réponses

Discussions similaires