Copie range D2 et E2 sur la dernière ligne d'un tableau d'une feuille d'unclasse

Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019
- - Dernière réponse : 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
Bonjour,
Aider moi je n'y arrive plus
je voudrais:
copier range D2 et E2 de la feuille sommaire sur la dernière ligne d'un tableau d'une feuille" log" du classeur au worbook before save


Configuration: Windows / Chrome 78.0.3904.70
Afficher la suite 

1 réponse

Messages postés
6341
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 novembre 2019
409
0
Merci
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://www.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!


aimara974
Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019
-
merci beaucoup
Commenter la réponse de cs_Le Pivert