[XL-2007] Trouver la dernière colonne utile [Résolu]

[Runsh63]

Bonjour,

Je bloque sur un truc tout bête, trouver la dernière ligne et la dernière colonne où se trouve les data dont j'ai besoin. Voilà ce que j'ai écrit.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Sub Compile_LCERO()
 
Dim StartRange As Range, Matrix As Range
Dim FirstRow As Byte, FirstCol As Byte, LastCol As Byte
Dim LastRow As Long
 
Application.ScreenUpdating = False
 
    'Nettoyer feuilles de destination des données
 
    With Sheets("Retreated TB")
        .UsedRange.EntireColumn.Delete
 
        With .Cells
            .HorizontalAlignment = xlLeft
            .NumberFormat = "General"
            .ColumnWidth = 10.71
            .RowHeight = 12.75
 
            With .Font
                .Name = "Arial"
                .Size = 10
                .FontStyle = "Normal"
            End With
 
            With .Borders
                .LineStyle = xlNone
            End With
 
            With .Interior
                .Pattern = xlNone
            End With
 
        End With
 
    End With
 
    With Sheets("Dataloader")
        .UsedRange.EntireColumn.Delete
 
        With .Cells
            .HorizontalAlignment = xlLeft
            .NumberFormat = "General"
            .ColumnWidth = 10.71
            .RowHeight = 12.75
 
            With .Font
                .Name = "Arial"
                .Size = 10
                .FontStyle = "Normal"
            End With
 
            With .Borders
                .LineStyle = xlNone
            End With
 
            With .Interior
                .Pattern = xlNone
            End With
 
        End With
 
    End With
 
    'Copier données dans onglet de retraitement
 
    With Sheets("Original TB")
 
    Set StartRange = .Cells.Find("101", LookIn:=xlValues)
    FirstRow = StartRange.Row
    FirstCol = StartRange.Column
    LastCol = .Range(.Cells(FirstRow, .Columns.Count)).End(xlToLeft).Column
    LastRow = .Range(.Cells(.Rows.Count, LastCol)).End(xlUp).Row
 
    End With
 
Application.CutCopyMode = False
Application.ScreenUpdating = True
 
End Sub

Je bloque pour définir LastCol et LastRow. Pouvez-vous m'aider SVP ?
D'avance merci !

[Daniel.C]

Bonjour,

Si j'ai bien suivi :

Code :

1
2
   LastCol = .Cells(FirstRow, .Columns.Count).End(xlToLeft).Column
   LastRow = .Cells(.Rows.Count, LastCol).End(xlUp).Row

[Runsh63]

Salut Daniel,

Merci pour ton aide, une fois de plus c'était tout bête...

Je bloque maintenant pour déterminer la plage à copier, à savoir (toujours avec le même code au début) :

Code :

Set Matrix = Union(.Cells(FirstRow, FirstCol), .Cells(FirstRow, LastCol.Offset(0, -3)), .Cells(LastRow, LastCol))

Il n'aime pas le LastCol.Offset. As-tu STP une idée pour que je puisse déterminer ma plage avec succès ? Dans l'absolu, je peux également définir une nouvelle variable qui serait basée sur LastCol est sur laquelle j'appliquerai le Offset... Mais ton puit de connaissance semble intarissable sur ce sujet, tu vas bien me sortir de la panade n'est-ce pas ?!?

D'avance merci pour ton aide !

[Daniel.C]

Il manque une parenthèse :

Code :

Set Matrix = Union(.Cells(FirstRow, FirstCol), .Cells(FirstRow, LastCol).Offset(0, -3)), .Cells(LastRow, LastCol))

[kiki29]

Salut, à consulter http://www.developpez.net/forums/d45...gnees-feuille/

[Runsh63]

Bonjour à vous deux, et merci pour vos réponses, c'est parfait