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

JNP

XLDnaute Barbatruc

• 2 Février 2012

• #2

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 😎

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 2 Février 2012

• #3

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

Bonjour à tous,

Un essai par formule avec ce que j'ai compris

JHA

 

Pièces jointes

• Classeur2.xlsx

  9.2 KB · Affichages: 203
• Classeur2.xlsx

  9.2 KB · Affichages: 210
• Classeur2.xlsx

  9.2 KB · Affichages: 204

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 2 Février 2012

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Février 2012

• #5

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

Bonsoir à tous,

='Feui2'!A2

Cliquez pour agrandir...

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
@+

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 2 Février 2012

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Février 2012

• #7

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🙂....

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 2 Février 2012

• #8

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:

Code:

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+

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 2 Février 2012

• #9

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

Re 🙂,

herve62 à dit:

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

Cliquez pour agrandir...

Le but était plutôt

Code:

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 😎

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Février 2012

• #10

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

Bonjour à tous,

si tu "conditionnes" ta formule :

Code:

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

tu pourrais aussi coder ainsi :

Code:

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

bonne jourée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Février 2012

• #11

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 :

Code:

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

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 3 Février 2012

• #12

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 3 Février 2012

• #13

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

bonjour,

Je suis visiblement invisible !

A+

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 3 Février 2012

• #14

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 3 Février 2012

• #15

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

Re,

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

A+

 

Vote positif 0 Vote négatif