Rechercher et copier la dernière valeur numérique d'une colonne

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'712
Appréciations reçues : 702
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 14 juin 2019, 18:05

Bonjour,
Essaie ceci (sans grande conviction).
Sinon Cells(1)=Cells(1,1) soit A1
A te relire.
Cdlt.
Sub CopyValues()
'Déclaration des variables
Dim sh As Worksheet
Dim rng As Range, lastRow As Long, Lrow As Long, lRow2 As Long
Const LMAX As Double = 9.99999999999999E+307
    'Ma feuille de départ
    Set bilan = ActiveSheet
    'j'ouvre le classeur qui contient les données à rapatrier
    Workbooks.Open Filename:="Bob.xlsm"
    
    With ActiveWorkbook.Worksheets("xxx")   'xxx nom de la feuille (à définir)
        'Dernière ligne non vide colonne 1 (A)
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        'Plage de cellules variable (x lignes et 3 colonnes)
        Set rng = .Cells(1).Resize(lastRow, 3)
        'Position de la dernière valeur numérique colonne 2 (B)
        Lrow = Application.Match(LMAX, rng.Columns(2), 1)
        'Position de la dernière valeur numérique colonne 3 (C)
        lRow2 = Application.Match(LMAX, rng.Columns(3), 1)
    End With
    
    With bilan
        'Restitution des valeurs suivant position
        'Colonne 2 (B)
        .Cells(1, 6).Value = Application.Index(rng.Columns(1), Lrow)
        .Cells(1, 7).Value = Application.Index(rng.Columns(2), Lrow)
        'Colonne 3 (C)
        .Cells(2, 6).Value = Application.Index(rng.Columns(1), lRow2)
        .Cells(2, 7).Value = Application.Index(rng.Columns(3), lRow2)
    End With
    
End Sub
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
G
Guizmonster
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 22 juillet 2018
Version d'Excel : 2013 fr

Message par Guizmonster » 14 juin 2019, 21:18

Bonsoir Jean-Eric,

Sur mon fichier test, le code fonctionne. Je vais le tester sur des vrais données durant le week-end ou début de semaine prochaine.
Merci pour ta pédagogie.

Cordialement
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message