Discussion :

[Runsh63]

Bonjour,

J'ai un tableau de données que je dois traiter régulièrement mais dont la structure est susceptible de changer à chaque fois. Afin de le traiter, je souhaite intégrer dans une macro un bout de code me permettant de délimiter la dernière cellule de mon fichier. Quoiqu'il arrive, ma première valeur est en A1, voilà ce que j'ai écrit, malheureusement mon petit niveau ne me permet pas de corriger l'erreur au niveau de cette ligne :

Code :

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

Set Matrix = Range("A1", LRow & LCol)

Pouvez-vous m'aider SVP ?
Merci d'avance !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Sheets("Original data")
 
    Dim Matrix As Range, Target As Range, LRow As Integer, LCol As Byte
        Set Matrix = ActiveSheet.Cells
        Set Target = Matrix.Find("Final balance*")
 
            LCol = Matrix.Column
            LRow = Range(LCol & ":65536").End(xlUp).Row
 
        Set Matrix = Range("A1", LRow & LCol)
 
End With
 
End Sub

[Runsh63]

Re-bonjour,

Excusez mon empressement à poster mon message, j'ai corrigé mon erreur.
Malheureusement, je ne comprends pas pourquoi quel que soit mon fichier, il consifère que ma dernière cellule est en A1. Pourtant, sur le fichier testé :
- LCol devrait ressortir en 10 (= colonne J) et ma dernière ligne est 22973.
Pouvez-vous me dire ce qui cloche dans mon code SVP (ci-dessous celui que je viens de corriger et qui s'exécute sans problème) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With Sheets("Original data")
 
    Dim Matrix As Range, Target As Range, LRow As Integer, LCol As Byte
        Set Matrix = ActiveSheet.Cells
        Set Target = Matrix.Find("Final balance*")
 
            LCol = Matrix.Column
            LRow = Range(LCol & ":65536").End(xlUp).Row
 
        Set Matrix = Range(Cells(1, 1), Cells(LRow, LCol))
 
    Matrix.Copy
 
End With
 
End Sub

[MarcelG]

Bonsoir,

C'est un sujet récurent.

Regarde cette discussion où tu auras une liste de 3 liens traitant cette question.

3 LIENS

Je te recommande de lire en premier le tutoriel d'Ouskelnor.

[Runsh63]

Bonsoir MarcelG,

Merci pour ton lien, celui conseillé en premier a parfaitement résolu mon problème, tout en compactant mon code pour obtenir le résultat voulu.
Encore merci, bonne soirée !

Runsh