Discussion :

[Denis_67]

Bonjour,

Voici un sujet maintes fois abordé et pourtant pour moi pas totalement résolu.
Toutes les explications que j'ai trouvé font référence à la recherche par rapport à une colonne.
or lorsqu'il s'agit de nettoyer le bas d'une feuille, on ne sait pas toujours dans quelle colonne figure la dernière ligne utilisée.

Il y a bien une explication complète des sélections dans la FAQ
http://excel.developpez.com/faq/?page=Cellule

Mais là la recherche de dernière ligne utilisée me donne en fait toutes les lignes (1 048 576)

Code :

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

DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row

aussi le post suivant
http://www.developpez.net/forums/d10...gne-d-colonne/ se base sur le N° de la colonne à tester.

Je suis régulièrement confronté à ce dilemme et bricole à chaque fois pour etre sûr d'avoir une colone propre pour ma sélection, mais ce n'est pas sécurisé.

Merci pour vos commentaires
Denis

[Thautheme]

Bonjour Denis, bonjour le forum,

Peut-être comme ça :

Code :

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

1
2
3
4
5
6
Sub Macro1()
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
 
DL = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'définit la dernière ligne DL
MsgBox DL 'affiche la variable DL
End Sub

[Denis_67]

Ne fonctionne pas sur ma feuille de test.

je récupère toujours 1 048 576 et ce indépendamment de ce qui est renseigné

merci pour la tentative

[Nico Chg]

Bonjour,

voici un petit code un peu "usine à gaz" mais qui me permet de trouver la dernière colonne remplie, d'une feuille sans connaître la ligne ou chercher, avec un peu d'adaptation ...

Code :

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

1
2
3
4
5
6
7
8
NbCol = 1
 
For I_Max = 1 To NbLig
    B_Max = FeuilleDeux.Rows(I_Max).Find("*", , , , xlByRows, xlPrevious).Column
    If B_Max >= NbCol Then
        NbCol = B_Max
    End If
Next I_Max

[Thautheme]

Bonjour le fil, bonjour le forum,

Ne fonctionne pas sur ma feuille de test.

je récupère toujours 1 048 576 et ce indépendamment de ce qui est renseigné

merci pour la tentative

Étrange, chez moi ça fonctionne...

[Marc-L]

Bonjour Robert !

C'est normal selon la "conception" de sa feuille devant être truffée de mise en forme …

[Thautheme]

Bonjour le fil, bonjour le forum,

Merci du tuyau Marc ! Je saurais à l'avenir que cette méthode n'est pas fiable...