Discussion :

[Pix_elle]

Bonjour à tous,

Avec le code proposé plus bas, j'obtiens le numéro de la dernière ligne de chaque colonne (de la colonne 1 à la dernière). j'aimerai ensuite récupérer le "aa" le plus grand. Comment puis-je faire ? J'avais pensé à incrémenter une colonne quelconque qui est déjà vide de base mais je ne sais pas comment faire (je n'arrive pas à assimiler la méthode d'incrémentation...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub der_lig()
 
j = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
K = Split(Columns(j).Address(ColumnAbsolute:=False), ":")(1)
 
For i = 1 To j
K = Split(Columns(i).Address(ColumnAbsolute:=False), ":")(1)
aa = Range(K & Rows.Count).End(xlUp).Row
Next i
 
End Sub

Merci par avance de vos retours !

[unparia]

Bonjour
Le choix de la méthode (la plus agile en fonction de ce que tu as) dépend de la "configuration" que tu as.
Si, par exemple, tu es certain(e) de n'avoir aucune formule ni aucune mise en forme au-delà de la plus grande ligne utilisée, ce que tu cherches est ceci :

Code :

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

1
2
ActiveSheet.UsedRange ' important
MsgBox Cells.SpecialCells(xlCellTypeLastCell).Row

Si autre configuration, il nous faut savoir laquelle, pour t'indiquer la méthode la plus adaptée possible.

[Pix_elle]

Bonjour Unparia !

Non effectivement, pas de mise en forme ou de formule au delà de la dernière ligne ! Merci beaucoup

[patricktoulon]

re
désolé pix_elle chez moi cela donne un résultat faux

[Pix_elle]

Bonjour Patrick,

Je demande à regarder la dernière colonne uniquement sur la ligne 1 (qui est la ligne des libellés de variables).

Code :

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

j = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

[patricktoulon]

re
et ben c'est faux quand même!!! regarde ma capture c'est pas E qui devrait sortir c'est F

un simple split sur le usedrange.adress fait très bien l'affaire

[Pix_elle]

Euh c'est faux de quoi ?

A moins de pas avoir les yeux en face des trous, ta ligne 1 s'arrête bien en colonne E et comme dit dans ma réponse précédente, je ne regarde la dernière colonne pleine uniquement sur la première ligne.

Et quand bien même tu as des données en colonnes F sur d'autres lignes, tant que F1 est vide, ça ne le prend pas en compte.

[patricktoulon]

re
*

Code :

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

1
2
3
4
5
Sub ma_version()
dercol = Split(Sheets(1).UsedRange.Address, "$")(3)
derlig = Split(Sheets(1).UsedRange.Address, "$")(4)
MsgBox "dercol=" & dercol & vbCrLf & "derlig=" & derlig
End Sub

et si tu veux seulement la dernière ligne de la dernière colonne
c'est

Code :

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

msgbox cells(rows.count,dercol).end(xlup).row

edit:

re autant pour moi tu prends en paramètre la ligne 1 pour la dercol
alors oui
se sera

Code :

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

1
2
3
Sub test3()
MsgBox Cells(Rows.Count, Cells(1, Columns.Count).End(xlToLeft).Column).End(xlUp).Address
End Sub