Discussion :

[yfchauer]

Bonjour à tous,
J'ai un fichier excel (cf.copie d'écran) avec 2 feuille
Sur la feuille "Données" en J4 et K4, ces valeurs sont issues d'une autre plage et varient en fonction de la journée.
Je souhaiterait une formule ou éventuellement une macro permettant l'auto-incrémentation des valeurs issues de A4:K4 de la feuille "Données" sur la feuille "Recup" à chaque fois que l'on change de jour.
Ex. les données de la date du jour, de A4:K4 (données) sont enregistrées dans (recup) sur la plage A4:k4
et les données du lendemain, dans "Données" seront toujours dans la plage A4:K4 seront enregistrées de A5:K5 dans "Recup" et ainsi de suite et cela à l'ouverture du fichier.
Merci d'avance pour votre aide.

[letudiant68]

Bonjour, à coller dans le code du classeur (ThisWorkbook) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Workbook_Open()
    Dim LastRow As Long
    LastRow = Sheets("Recup").Range("A" & Rows.Count).End(xlUp).Row
    If Sheets("Données").Range("A4") <> Sheets("Recup").Range("A" & LastRow) Then
        Sheets("Recup").Range("A" & LastRow + 1 & ":K" & LastRow + 1).Value = Sheets("Données").Range("A4:K4").Value
    End If
End Sub

[yfchauer]

Bonjour letudiant68,
Merci du code,
il fonctionne, mais je remarque que les données récupérées (recup) ne sont pas mises à jour après modification dans "données".
Je me ne suis rendu compte que je n'étais pas assez clair dans mon précédent message,
Je souhaiterais la mise à jour automatique des données à chaque changement dans "données"
Une fois de plus merci

[letudiant68]

Il suffit de rajouter un Else :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Workbook_Open()
    Dim LastRow As Long
    LastRow = Sheets("Recup").Range("A" & Rows.Count).End(xlUp).Row
    If Sheets("Données").Range("A4") <> Sheets("Recup").Range("A" & LastRow) Then
        Sheets("Recup").Range("A" & LastRow + 1 & ":K" & LastRow + 1).Value = Sheets("Données").Range("A4:K4").Value
    Else
        Sheets("Recup").Range("A" & LastRow & ":K" & LastRow).Value = Sheets("Données").Range("A4:K4").Value
    End If
End Sub

J'avais compris que tu voulais une macro qui se lance à l'ouverture du classeur d'où le Workbook_Open mais si tu veux que la macro se lance à un autre moment copie le code et met le dans un module en changeant le nom de la procédure. Tu pourra ensuite affecter ce code à un bouton par exemple.

[yfchauer]

Bonjour letudiant68,
Merci, cela fonctionne comme je le souhaitais.