XL 2021 Dernière ligne utilisée d'une colonne et d'une ligne

[Nicolas JACQUIN]

Bonjour à tous,
Je cherche à trouver la dernière ligne utilisée d'une colonne en partant pas d'une référence de colonne,
mais en partant d'une cellule cible,
exemple "B3" ou "C12", par rapport à une cellule, pas une colonne.
Et la même chose pour la dernière colonne
Merci à tous.
Nicolas

 

[youky(BJ)]

Hello,
pour trouver la dernière ligne de la cellule B3
bas = Cells(Rows.Count, [B3].Column).End(3).Row
pour trouver la dernière colonne de la ligne 1
col = Cells(1, Columns.Count).End(1).Column
Bruno

 

[vgendron]

Hello

si la question porte sur une formule directement dans la feuille excel
formule matricielle

=MAX(SI(A:A<>"";LIGNE(A:A)))

sinon, il va falloir préciser le besoin avec un fichier exemple
(je pressens une formule à base de decaler...)

 

[Nicolas JACQUIN]

Bonjour et merci pour vos retour,
#vgendron, non c'est pas ça du tout mais merci.
#youky(BJ), ça fonctionne mais pas comme je pensais, ce serait en faites plus pour remplacer
par une variable si je peux l'expliquer ainsi.

Job75 m'a fait une fonction qui fonctionne très bien et je pensais m'en sortir facilement suite à ça.
Voici la fonction

Sub Test()
Agenda 2024, 5, "B3"
End Sub

Sub Agenda(an%, mois%, deb$)

Dim n%, P As Range, i%, sem%, j%
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Cells.Delete 'RAZ
Range(deb) = DateSerial(an, mois, 1)
n = DateSerial(an, mois + 1, 1) - Range(deb)
Set P = Range(deb).Resize(, n)
P.DataSeries
For i = 1 To n
    P(2, i) = Application.Proper(Format(P(i), "dddd"))
    P(3, i) = Format(P(i), "dd mmmm yyyy")
Next i
For i = 1 To n
    sem = Application.IsoWeekNum(P(i))
    For j = i + 1 To n
        If Application.IsoWeekNum(P(j)) <> sem Then Exit For
    Next j
    P(i).Resize(, j - i).Merge 'fusionne
    P(i).HorizontalAlignment = xlCenter 'centrage
    P(i) = "Semaine " & Format(sem, "00")
    i = j - 1
Next i

'Columns.AutoFit 'ajustement largeurs

'Cells(Rows.Count, [deb].Column).End(3).Select
End Sub

J'ai plein de chose à rajouter après, c'est pour ça je pensais pouvoir récupérer la dernière ligne et ou dernière colonne par rapport au "deb", si toutefois je voulais déplacer le point de départ

Merci encore

 

[youky(BJ)]

Peut être comme ceci car pas trop compris la demande
bas = Cells(Rows.Count, Range(deb) .Column).End(3).Row
Bruno

 

[TooFatBoy]

Bonjour,

Peut être comme ceci car pas trop compris la demande

Moi non plus je ne pige pas trop l'histoire de "cellule de départ"...
Je pense que le paramètre à utiliser est simplement la colonne de la cellule "deb".

 

[Nicolas JACQUIN]

Re,
Par rapport à la fonction

Sub Agenda(an%, mois%, deb$)

Soit "deb"= "B3" dans ce cas présent

Ce que je souhaite c'est récupérer la dernière ligne, la dernière colonne par rapport à "deb"
Comme ça pas tout à modifier si modification de mon code

Votre code proposé fonctionne pas

 

[Nicolas JACQUIN]

Bonjour,


Moi non plus je ne pige pas trop l'histoire de "cellule de départ"...
Je pense que le paramètre à utiliser est simplement la colonne de la cellule "deb".

Bonjour, oui en gros c'est ça, mais j'arrive pas

 

[TooFatBoy]

Bonjour, oui en gros c'est ça, mais j'arrive pas

Ben c'est ce que vient de te donner le Youki, me semble-t-il.
Ca ne marche pas ?

 

[Nicolas JACQUIN]

ça fonctionne pas du tout

 

[TooFatBoy]

Ca correspond à la dernière ligne que tu as mise en commentaire dans le code posté en #4.

 

[Nicolas JACQUIN]

non c'est bon c'est moi qui suis à coté, merci

 

[vgendron]

Hello

en VBA
Range("B3").end(xldown).row
donne la numéro de ligne de la dernière cellule NON vide sous B3
equivaut au double clic sur la bordure basse de la cellule B3

et si B3 est amené à changer

set Deb=range("B3")

Bas=deb.end(xldown).row