XL 2016 Derniere cellule non vide

[KTM]

Salut Cher forum
j'ai une Plage [A3:A55]
J'aimerais récupérer par code vba le numéro de la première cellule non vide en partant de A55
Merci

 

[Staple1600]

Bonsoir le fil

KTM
La première ou la dernière (parce que ton titre est en contradiction avec ton message) 😉

Sinon pourquoi le VBA, alors qu'une formule peut le faire?

dernière
=RECHERCHE(2;1/($A$1:$A$54<>"");$A$1:$A$54)

première
=INDEX($A$1:$A$54;EQUIV(VRAI;INDEX(($A$1:$A$54<>0);0);0))

 

[ChTi160]

Bonsoir KTM
peut être avec :

LigneNonVide=WorkSheets("Feuil1").Cells(55,1).End(xlUp).Row

sans fichier pas évident
Edit Bonsoir JM
jean marie

 

[Staple1600]

Re,

Bonsoir d'un JM à un autre JM 😉

 

[KTM]

Bonsoir KTM
peut être avec :

LigneNonVide=WorkSheets("Feuil1").Cells(55,1).End(xlUp).Row

sans fichier pas évident
Edit Bonsoir JM
jean marie

Merci c'est ce que je voulais

 

[Staple1600]

Re

KTM
Merci d'avoir superbement ignoré le message#2 🙄

PS: Heureusement, ChTi160 m'a vu passé dans le fil
(Ce qui minore la douleur qui irradie encore en dedans de moi)

 

[KTM]

Re

KTM
Merci d'avoir superbement ignoré le message#2 🙄

PS: Heureusement, ChTi160 m'a vu passé dans le fil
(Ce qui minore la douleur qui irradie encore en dedans de moi)

Votre proposition est bonne et est prise en compte et pourra me servir plus tard mais je devais utiliser ce code dans une macro.
Encore Merci.

 

[Dranreb]

Bonsoir.
Il y a des solutions plus modernes que ce fameux .End(xlUp) lorsque la plage a fait l'objet d'une mise sous forme de tableau Excel.

 

[Hervé]

salut 🙂

et si on rajoute un tout petit s à la fin de la proposition de chti on récupère la valeur de la cellule.

a plus

 

[ChTi160]

Bonjour KTM
Bonjour JM (mdr)
Bonjour Hervé (Content de te Croiser , j'espère que tu vas bien ?)
Bonjour Bernard , il faudrait que je m'y mette , j'ai récolté un Max de Tutos et autres exemples sur les Tableaux ( ListObjects ), mais je ne m'y suis pas encore attelé ( je ne dois pas être moderne) , je n'utilise pas personnellement Excel , peut être la raison ! Lol
Bonne journée
jean marie

 

[job75]

Bonjour à tous,

Il faut bien voir que End(xlUp) ne va pas bien si la feuille est filtrée.

Par ailleurs avec les tableaux structurés ListObjects(1).Range.Row + ListObjects(1).DataBodyRange.Rows.Count ne donne pas la bonne valeur si la dernière ligne est vide.

A+

 

[Dranreb]

Bonjour.
Il vaut mieux utiliser ListObjects(1).ListRows.Count, parce que s'il est à 0 .DataBodyRange n'est pas défini.

 

[job75]

Oui, tu veux dire ListObjects(1).Range.ListRows.Count je suppose.

Edit : pardon Bernard j'ai mal lu, je voulais dire ListObjects(1).Range.Rows.Count

 

[Dranreb]

Non, l'objet Range n'a pas de collection ListRows, c'est le ListObject qui a une collection ListRows d'objets ListRow et une collection ListColumns d'objets ListColumn. L'objet ListRow a une propriété Range, le ListColumn aussi, et en plus une DataBodyRange, le ListObject aussi, et en plus une HeaderRowRange et une TotalsRowRange. En ajoutant que le ListObject a aussi une TableStyle, je croyais naïvement avoir fait le tour de ce qu'il fallait savoir, mais l'Explorateur d'objets m'a révélé qu'il n'en était rien…

 

[mapomme]

Bonsoir à tous 🙂

J'avais, il y a quelques temps, tenter de faire un fonction qui retourne la dernière cellule (range) non vide de la première colonne d'une plage.
Il fallait que ça fonctionne avec une plage quelconque, avec un tableau structuré ou non inclus dans la plage, avec des lignes masquées (ou filtrées) ou non.

J'ai pondu ce qui suit:

Function DerCellNonVide(xplage As Range) As Range
Dim i&, j&
   On Error Resume Next
   i = Application.Match(999 ^ 9, xplage.Columns(1), 1)
   j = Application.Match(String(255, "z"), xplage.Columns(1), 1)
   On Error GoTo 0
   If i + j <> 0 Then Set DerCellNonVide = xplage.Columns(1).Cells(IIf(i > j, i, j), 1)
End Function

Divers exemples figurent dans le fichier joint.

Pouvez-vous critiquer en espérant que je n'ai pas laissé passer un cas évident ou trivial d'échec ?

Merci

edit: version v1a plus concise.