XL 2010 recopie automatique de données vers le bas

[philmaure]

bonjour,

je souhaite recopier automatiquement via macro les 3 dernières valeur de la dernière colonne (cf fichier joint)
Ceci sachant que le nombre de ligne est variable

Merci pour votre aide
Cdlt
Philmaure

 

[thebenoit59]

Re : recopie automatique de données vers le bas

Bonjour Philmaure.

Une proposition :

Sub Copie_3L()
Dim l%, l2%, r As Range, r2 As Range

With Sheets("Feuil1")
    'On détermine la dernière ligne.
    l = .[c65000].End(xlUp).Row
    l2 = .[b65000].End(xlUp).Row
    'On enregistre les trois valeurs.
    Set r = .Range(.Cells(l - 2, "C"), .Cells(l, "C"))
    Set r2 = .Range(.Cells(l - 2, "C"), .Cells(l2, "C"))
    'On copie les valeurs.
    r.AutoFill Destination:=r2, Type:=xlFillValues
End With
End Sub

 

[philmaure]

Re : recopie automatique de données vers le bas

bonjour et un grand merci pour la solution
bonne journée
Cdlt
Philmaure

 

[Marc L]

Bonjour,

une variante un peu plus directe :

​

Sub Demo()
    With Feuil1.Cells(3).End(xlDown)
        R& = .Parent.Cells(1).CurrentRegion.Rows.Count
        If .Row > 3 And .Row < R Then .Offset(-2).Resize(3).AutoFill .Offset(-2).Resize(R - .Row + 3)
    End With
End Sub

_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
​