Copie range D2 et E2 sur la dernière ligne d'un tableau d'une feuille d'unclasse
Fermé
aimara974
Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019
-
1 nov. 2019 à 04:19
aimara974 Messages postés 17 Date d'inscription dimanche 27 octobre 2019 Statut Membre Dernière intervention 1 novembre 2019 - 1 nov. 2019 à 11:15
aimara974 Messages postés 17 Date d'inscription dimanche 27 octobre 2019 Statut Membre Dernière intervention 1 novembre 2019 - 1 nov. 2019 à 11:15
A voir également:
- Derligne vba
- Tableau croisé dynamique - Guide
- Aller à la ligne excel - Guide
- Copie cachée - Guide
- Tableau ascii - Guide
- Hors ligne instagram - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié le 1 nov. 2019 à 09:00
Modifié le 1 nov. 2019 à 09:00
Bonjour,
As-tu regarder le classeur que j'ai posté?
Dans ThisWorbook il y a justement un enregistrement à la fermeture, il suffit de l'adapter à ton cas.
https://forums.commentcamarche.net/forum/affich-36287330-copie-donnees#4
il faut d'abord chercher la 1ère ligne vide dans la feuille log comme ceci:
ensuite il faut simplement mettre les données de la feuille sommaire dans la feuille log comme ceci:
ce qui donne :
c'est simple!
As-tu regarder le classeur que j'ai posté?
Dans ThisWorbook il y a justement un enregistrement à la fermeture, il suffit de l'adapter à ton cas.
https://forums.commentcamarche.net/forum/affich-36287330-copie-donnees#4
il faut d'abord chercher la 1ère ligne vide dans la feuille log comme ceci:
Dim Derligne As Long
Derligne = Sheets("log").Range("A" & Rows.Count).End(xlUp).Row + 1
ensuite il faut simplement mettre les données de la feuille sommaire dans la feuille log comme ceci:
Sheets("log").Range("D" & Derligne) = Sheets("sommaire").Range("D2")
Sheets("log").Range("E" & Derligne) = Sheets("Sommaire").Range("E2")
ce qui donne :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Derligne As Long
Derligne = Sheets("log").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("log").Range("D" & Derligne) = Sheets("sommaire").Range("D2")
Sheets("log").Range("E" & Derligne) = Sheets("Sommaire").Range("E2")
End Sub
c'est simple!
1 nov. 2019 à 11:15