Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier contenu cellule modifiée

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion bazargones
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bazargones

XLDnaute Nouveau
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
 
Trier par date Trier par votes
Re : Copier contenu cellule modifiée

Bonjour

Définis (onglet formules/définir un nom) par exemple "plage" la plage contenant les cellules d'intérêt (dans ta colonne A au départ)
à mettre dans le code de la feuille concernée :

Code: 
Dim OldValue

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("plage")) Is Nothing Then
 Target.Offset(0, 1) = OldValue
 End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("plage")) Is Nothing Then
 OldValue = Target.Value
End If
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
561
TomJoad
T
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
2 K
firecarl
F
  • Question Question
XL 2021 Création calendrier ( Agenda ) en VBA
2
Réponses
15
Affichages
2 K
Nicolas JACQUIN
H
  • Résolu(e)
XL 2016 effacer le contenu d'une cellule contenant un menu deroulant
Réponses
2
Affichages
483
hdparcs
H
  • Question Question
XL 2021 Modifier une condition pour le calcul du bonus défensif pour un programme de rugby
2 3
Réponses
32
Affichages
2 K
djidji59430
Q
  • Question Question
XL 2019 copier une ligne en fonction de la valeur d'une cellule
Réponses
10
Affichages
1 K
quetzal974
Q
M
  • Question Question
Autres copier la couleur d'une cellule
Réponses
4
Affichages
808
michel1941
M
C
  • Question Question
XL 2019 Déplacer lignes selon contenu d'une cellule
Réponses
2
Affichages
1 K
ARMAEL
A
C
  • Résolu(e)
Microsoft 365 Macro qui crée un lien hypertexte + se déclenche OnClick
Réponses
5
Affichages
963
AtTheOne
S
  • Résolu(e)
XL 2016 VBA effacer contenu colonne en fonction des infos d'une autre
Réponses
8
Affichages
933
sandfer
S
S
  • Question Question
Microsoft 365 Reporter une date selon le contenu d'une cellule
Réponses
2
Affichages
840
sebastien176
S
B
  • Résolu(e)
XL 2019 copier automatique des donnes en fonction d'un critère
2 3
Réponses
31
Affichages
2 K
ben soumare
B
R
  • Question Question
Microsoft 365 RESOLU Conditions multiples avec dates et textes dans cellule
Réponses
2
Affichages
860
richard31
R
D
  • Question Question
Microsoft 365 Report de lignes entières dans un autre fichier en fonction du contenu d'une cellule
Réponses
5
Affichages
893
ddavid237
D
M
  • Résolu(e)
Microsoft 365 Récupérer données d'une autre feuille en fonction de ma selection dans une liste
Réponses
2
Affichages
935
minamas
M
B
  • Question Question
XL 2016 Supprimer contenu de deux autres cellules en fonction d'une cellule
Réponses
8
Affichages
884
babacool22
B
X
  • Résolu(e)
XL 2013 passage de cellules en negatif en fonction d'une autre cellule
Réponses
4
Affichages
2 K
xoxopeter
X
G
  • Résolu(e)
Microsoft 365 Copier le contenu d'une cellule suite à une sélection avec menu déroulant
Réponses
2
Affichages
991
Greg59115
G
  • Question Question
Microsoft 365 Copier la valeur de cellules non contigües de plusieurs feuilles vers une feuille récapitulative.
Réponses
14
Affichages
1 K
Droopyougo
S
  • Résolu(e)
XL 2019 Supprimer ou décaler une ligne lors d'un transfert de données d'un onglet à un autre via une macro
Réponses
6
Affichages
2 K
Sod2
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…