Créer un historique lorsqu'une cellule est modifiée.

  • Initiateur de la discussion Initiateur de la discussion Willy
  • 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 !

W

Willy

Guest
Bonsoir à toutes et à tous,

Je souhaiterai créer un historique, c'est à dire que chaque fois que le contenu d'une cellule de la colonne C est modifiée ( si bien sur celle-ci contient une valeur ), sauvegarder les données des cellules des colonnes A à F de la ligne identique à la cellule (C) modifiée et coller cela dans une autre page masquée.

Pour être plus clair :
Mon tableau comprend les colonnes A à F dans la feuil1
Je modifie le contenu de la cellule C3.
Dès que je clique sur la touche ENTREE, le contenu des cellules A3,B3,C3,D3,E3 et F3 est copié et collé dans la feuil2 en A1.
Si je modifie une autre cellule, par exemple la C4 le contenu est collé dans la feuil2 à la suite soit la ligne A2. et ainsi de suite.

Pour l'heure, j'ai un début de procédure qui permet seulement de copier la ligne entière, la colle dans la feuil2, seulement :
Elle copie également la mise en forme des cellules ( couleur de fond, bordures), ce que je ne souhaite pas;
Je n'arrive pas à coller dans la feuil2 sur la ligne vierge suivante automatiquement;
et pour finir la ligne entière est copiée et non pas uniquement les colonnes A à F

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.CutCopyMode = False
'Après la modif de la cellule dans la colonne 3
'Sélectionne et copy la ligne complete de la cellule
If ActiveCell.Column = 3 Then
Rows(ActiveCell.Row - 1).Select
Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("Feuil2").Range("A1")
Application.CutCopyMode = False
End If
End Sub

J'ai essayé plusieurs modifications mais sans résultat.

Merci de votre aide
bonne soirée
Willy
 
Salut à tous,

Willy, regarde le fichier joint a priori il semble faire ce que tu veux,

j'ai juste ajouté
la détection de la ligne à utiliser en feuille2
un paste special valeurs only pour résoudre ton 1er problème et
une variable lignesource pour sélectionner ta plage Alignesource:Flignesource

ça me semble répondre à ta question.Confirme moi le.

@+
Steplof
 

Pièces jointes

- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
197
Réponses
6
Affichages
176
  • Question Question
Microsoft 365 CSV en EXCEL
Réponses
1
Affichages
97
Réponses
4
Affichages
134
Retour