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

Signaler
Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019
-
Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019
-
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

1 réponse

Messages postés
7081
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 novembre 2020
578
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:

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!


Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019

merci beaucoup