dernière ligne non vide de colonne avec formule[RESOLU]

[herve62]

Bonjour
je pensais trouver sur le Web la réponse ...mais non
Dans une colonne j'ai sur 100 lignes en Feuil1 : ='Feui2'!A2 , puis A3 ..etc
Il n'y a des valeurs que sur 10 lignes
Si j'applique le fameux : Range("A65000").End(xlUp).Row
ca me renvoie 100 , j'aimerai avoir 10
Que faut-il faire ?
Merci

 

[JNP]

Re : dernière ligne non vide de colonne avec formule

Bonsoir Hervé62 🙂,
Depuis la ligne que tu as détectée avec ton End, remonter en testant si la valeur est "" jusqu'à la dernière cellule non vide en valeur 😛...
Bon courage 😎

 

[JHA]

Re : dernière ligne non vide de colonne avec formule

Bonjour à tous,

Un essai par formule avec ce que j'ai compris

JHA

 

[herve62]

Re : dernière ligne non vide de colonne avec formule

Bonsoir
J'ai testé JNP : si je fais 2 X un End(xlUp) ca me donne la 1ere ligne ou il y a du texte (titre colonne) alors que j'ai 10 lignes en dessous avec des données
1er END > me retourne 100
2eme END > me retourne 15 la 1er ligne vide mais c'est la cellule Titre !! en dessous j'ai encore 10 lignes avec données
Peut-être n'ai je pas bien compris non Plus ?

JHA : ca marche , mais je suis en VBA donc faut ruser !!! : aller chercher la valeur dans la cellule ou il y a "Recherche" .... c'est faisable
Merci à vous

 

[Pierrot93]

Re : dernière ligne non vide de colonne avec formule

Bonsoir à tous,

='Feui2'!A2

sauf erreur, si vide ta formule en l'état va renvoyer 0 non ...

Autre remarque, peut être utiliser le numéro de ligne de la feuille 2.... Sans plus de détails....


bonne soirée
@+

 

[herve62]

Re : dernière ligne non vide de colonne avec formule

Oui Pierrot , même en mettant format texte , et masquant l'affichage ZERO
Je pensais que VbA pouvait detecter malgré le 0 , que la cellule était vide

 

[Pierrot93]

Re : dernière ligne non vide de colonne avec formule

Re,

peut être conditionner la formule avec une fonction "SI", tester la feuille 2 ou la proposition de JNP🙂....

 

[Guest]

Re : dernière ligne non vide de colonne avec formule

Bonsoir le fil,

si tes formules sont censées renvoyer du texte tu peux tester ceci:

Function GetDerLigneTexte() As Long
Dim plg As Range
On Error Resume Next
Set plg = Range("A1:A100").SpecialCells(xlCellTypeFormulas, xlTextValues)
If Not plg Is Nothing Then
    With plg.Areas(plg.Areas.Count)
        GetDerLigneTexte = .Cells(.Cells.Count).Row
    End With
End If
End Function

A+

 

[JNP]

Re : dernière ligne non vide de colonne avec formule

Re 🙂,

BPeut-être n'ai je pas bien compris non Plus ?

Le but était plutôt

Sub Test()
Dim I As Integer
For I = Range("A65000").End(xlUp).Row To 1 Step -1
If Range("A" & I).Text <> 0 Then Exit For
Next I
MsgBox I
End Sub

Bonne suite 😎

 

[Pierrot93]

Re : dernière ligne non vide de colonne avec formule

Bonjour à tous,

si tu "conditionnes" ta formule :

=SI(Feuil2!A1<>"";Feuil2!A1;"")

tu pourrais aussi coder ainsi :

Dim x As Long
x = Columns(1).Find("*", , xlValues, , 1, 2, 0).Row

bonne jourée
@+

 

[Pierrot93]

Re : dernière ligne non vide de colonne avec formule

Re,

pour éviter l'erreur au cas ou aucune cellule ne soit valorisée dans la colonne A :

Dim x As Range
Set x = Columns(1).Find("*", , xlValues, , 1, 2, 0)
If Not x Is Nothing Then MsgBox x.Row

 

[herve62]

Re : dernière ligne non vide de colonne avec formule

Bonjour à tous , Slt les "Barba.."
J'ai testé vos trucs avec le petit exemple de JHA ( ou sa formule fonctionne)
Pierrot : Dsl ton code ne fonctionne pas ... Tjs =20 , je pense que c'est parce que tu fais un FIND "*" et donc Vba prend le 0
JNP : ta petite Sub test fonctionne .... =10 qui est le résultat attendu dans ce cas
Bonne journée et bon WE

 

[Guest]

Re : dernière ligne non vide de colonne avec formule

bonjour,

Je suis visiblement invisible !

A+

 

[herve62]

Re : dernière ligne non vide de colonne avec formule

Mes plates excuses Hasco .... j'étais pas remonté si haut !!!
je viens de tester ... ca marche aussi
Merci .. comme ca j'ai le choix maintenant

 

[Guest]

Re : dernière ligne non vide de colonne avec formule[RESOLU]

Re,

Pas de problème, parfois, ça va trop vite...

A+