Discussion :

[Jaymerry]

Bonsoir à tous,

Je cherche à créer un range portant jusqu'à la dernière valeur présente sur la feuille concernée. Ce range comprendrait 2 colonnes (I et J) et près de 10000 lignes.

J'ai utilisé le code suivant :

Code :

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

1
2
3
 
Dim R as Range
Set R = ThisWorkbook.Worksheets("mafeuil").Range("I1:J" & Split(ActiveSheet.UsedRange.Address, ":")(4))

Mais ce dernier forme un range qui s'arrête à la ligne 3671

Avez-vous une idée ?

Merci pour votre aide,

Jaymerry

[Vadorblanc]

Bonjour
Je fais de cette façon, essaie.

Code :

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

1
2
Selection.SpecialCells(xlCellTypeLastCell).Select
    Selection.CurrentRegion.Select

Cordialement

[Philippe Tulliez]

La cellule de la ligne 3672 ne serait-elle pas vide ?

[patricktoulon]

bonjour

Code :

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

1
2
3
 
Dim R as Range
Set R = ThisWorkbook.Worksheets("mafeuil").Range("I1:J" & ThisWorkbook.Worksheets("mafeuil").Range("J65536").End(xlUp).Row)

au plaisir

[Theze]

Bonsoir,

Si tu souhaite avoir la plage entière utilisée d'une feuille essai ceci en exécutant la proc "RetournerPlage" puis adapte à tes besoins du style Set MaPlage = Plage(Worksheets("Feuil1")) :

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
17
18
19
20
21
22
23
24
25
26
27
 
Sub RetournerPlage()
 
    'dans le cas où la feuille est vide
    On Error GoTo Fin
 
    MsgBox Plage(ActiveSheet).Address
 
    Exit Sub
 
Fin:
    MsgBox "La feuille est vide de toutes valeurs !"
 
End Sub
 
Function Plage(Fe As Worksheet) As Range
 
    With Fe
        Set Plage = .Range(.Cells(1, 1), _
                    .Cells( _
                    .Cells.Find("*", .[A1], -4123, , _
                    1, 2).Row, _
                    .Cells.Find("*", .[A1], -4123, , _
                    2, 2).Column))
    End With
 
End Function

Hervé.

[Jaymerry]

Super, merci à vous tous, j'ai opté pour la solution de Patrick qui fonctionne nickel.

Bonne fin d'année à tous !

Jaymerry