Autres Dernière ligne d'une plage comportant au moins 1 valeur supérieure à zéro

[AlainProviste]

Bonjour,

malgré toutes les formules que j'ai passées en revue et testées, je n'en ai trouvées aucune qui répond à mon attente particulière : je m'explique,

Je souhaite extraire la dernière ligne d'une plage de 6 colonnes sur 2500 Lignes qui contient au minimum une valeur supérieure à zéro.

A B C D E F G H I J K L
0 0 1 4 3 0 0 0 1 3 4 6
1 0 7 0 1 0
0 0 0 0 1 3
0 0 0 1 0 0
0 0 0 0 0 0
3 1 0 0 0 5
0 0 1 3 4 6
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0 etc c'est à dire 000000 jusqu'à 2500 ème ligne...
Donc ici en colonnes G1 H1 I1 J1 K1 L1 il faudrait que la valeur 0 0 1 3 4 6 soit affichée ?
Toutes les formules qui se rapprochent de mon problème me donnent : 3 1 1 3 4 6 , ce n'est pas ce que je recherche.

En espérant avoir été clair et qu'une formule "magique" puisse m'être proposée.
Par avance merci.

 

[AlainProviste]

bonsoir a tous
et ben dit donc
vous en faite tout un ramdam pour un max row
restons simple ( a valider par CTRL+MAJ+ENTER)


le vba vous y tenez ??!!??
ok

MsgBox Evaluate("MAX(ROW(A1:E2500)*(A1:E2500>0))")

vous voulez le concact des 5 colonne le ligne !!?
ben c'est simple

MsgBox Join(Application.Index(Feuil1.[A1:E2500].Value, Evaluate("MAX(ROW(feuil1!A1:E30)*(feuil1!A1:E30>0))"), Array(1, 2, 3, 4, 5)))

ou même écrite comme çà pour l'array

MsgBox Join(Application.Index(Feuil1.[A1:E2500].Value, Evaluate("MAX(ROW(feuil1!A1:E2500)*(feuil1!A1:E2500>0))"), [{1, 2, 3, 4, 5}]))

Bonsoir patricktoulon,

il n'est pas question ici de faire une "fixette" sur le VBA mais d'adapter une macro ou autre au problème posé. Or ton premier cas donne "12" , ce n'est pas le but recherché,
S'agissant des autres cas, le résultat affiche une msgbox qui n'est d'aucune utilité dans le cas présent car inexploitable pour la suite du programme.
Mais "MAX Row" est à retenir, peut-être, pour un autre problème ?
Merci pour ton intervention...
Cordialement
Alain

 

[patricktoulon]

re
bonsoir
le msgbox n'est qu'un exemple de ce que l'on peut faire avec la formule
tu voulais le concat A:E de la dernière ligne avec au moins 1?
ben tu l'a en une seule ligne

 

[AlainProviste]

re
bonsoir
le msgbox n'est qu'un exemple de ce que l'on peut faire avec la formule
tu voulais le concat A:E de la dernière ligne avec au moins 1?
ben tu l'a en une seule ligne

re,
j'ai supprimé msgbox pour ne conserver que :
(Application.Index(Feuil1.[A1:E2500].Value, Evaluate("MAX(ROW(feuil1!A1:E2500)*(feuil1!A1:E2500>0))"), [{1, 2, 3, 4, 5}]))

et là ...que du rouge ? Comment écrire stp cette formule sans msgbox ?

 

[patricktoulon]

oulah!!
exemple=

[B1]= Application.Index(Feuil1.[A1:E2500].Value, Evaluate("MAX(ROW(feuil1!A1:E2500)*(feuil1!A1:E2500>0))"), [{1, 2, 3, 4, 5}])
en B1 tu aura les 4 chiffre de la derniere ligne avec au moins 1 dans A ou B ou c,etc....

 

[AlainProviste]

oulah !! comme tu écris, il y a du boulot !...
. Mais si j'étais bon en informatique, le débutant que je suis ne demanderait pas de l'aide.

j'avais écrit avant ton post ceci et cela m'affichait , oups ! : (j'ai en fait 6 colonnes dans l'énoncé)

0 1 2 2 0 0

0 1 2 2 0 0

0 1 2 2 0 0

0 1 2 2 0 0

0 1 2 2 0 0

0 1 2 2 0 0

Sheets("feuil1").Range("S13:X13").Value = Join(Application.Index(Feuil1.[I1:N2500].Value, Evaluate("MAX(ROW(feuil1!I1:N2500)*(feuil1!I1:N2500>0))"), [{1,2,3,4,5,6 }]))

Le[B1] que tu me proposes m'affiche 0 ! ??

 

[patricktoulon]

d'accord tu ne le veux pas dans une mais chaque chiffre dans une colonne a partir de X 13
donc on concat pas
Sheets("feuil1").Range("S13:X13").Value = Application.Index(Feuil1.[I1:N2500].Value, Evaluate("MAX(ROW(feuil1!I1:N2500)*(feuil1!I1:N2500>0))"), [{1,2,3,4,5,6 }])

 

[AlainProviste]

Oui 1 valeur dans chaque cellule. de S1 à X1 par exemple ...

 

[patricktoulon]

ben la tu l'a de s13 à x13

 

[AlainProviste]

Oui en effet mais c'est pour les essais . Mettons le résultat en S13 et X 13 comme dans la formule alors.

 

[patricktoulon]

comme tu vois ma formule fonctionne très bien
elle donne bien la dernière ligne ayant au moins + de 1
le résultat tu le met ou tu veux après

Sub test()
Sheets("feuil1").Range("S1:X1").Value = Application.Index(Feuil1.[I1:N2500].Value, Evaluate("MAX(ROW(feuil1!I1:N2500)*(feuil1!I1:N2500>0))"), [{1,2,3,4,5,6 }])
End Sub

 

[AlainProviste]

Bonjour patricktoulon,

merci de t'être creusé les méninges pour moi !
Afin que tu comprennes pourquoi ton code ne fonctionne qu'en parties je te joins un fichier qui je l'espère sera plus explicatif.

Ce qui me parait bizarre c'est que les précédents intervenants (Silvanu, eriic et job75 ) n'avaient pas non plus ce fichier et ça fonctionnait correctement ? Mystère pour moi..?

Bonne journée surtout qu'à Toulon il y a du soleil...

 

[patricktoulon]

RE
c'est quoi ce fichier
visiblement le travail que tu fais dessus ne correspond pas a la demande initiale
c'est donc par chance que les autres t'on compris
pour rappel je te cite(post#1)

Je souhaite extraire la dernière ligne d'une plage de 6 colonnes sur 2500 Lignes qui contient au minimum une valeur supérieure à zéro.

et ce que je t'ai donné fait exactement et uniquement çà( j'ai testé avant de te la donner)
bref si tu a ce qu'il te faut tant mieux
perso a la vue de ton fichier qui pique les yeux je vais même pas chercher a comprendre ce que tu cherche a faire
bon courage

 

[AlainProviste]

Tu es trop aimable. Je ne te piquerais plus les yeux...!
J'avais cru comprendre pourtant que ce site était un lieu d'entraide d'indulgence et de convivialité...
Heureuse que j'ai eu beaucoup de chance !...

Bon courage à toi aussi.

 

[patricktoulon]

re
ben quoi
tu a posé une question claire
je t'ai répondu clairement (macro clé en main travail tout mâché)
et tu me montre un fichier dont le travail fait dessus n'a rien a voir avec la demande
on en est au post 28 et ton truc n'est toujours pas résolu
pose toi les bonnes questions
je rappelle pour info qu'une démo animée te montre que ca fonctionne en post 25
bref OK

 

[AlainProviste]

"on en est au post 28 et ton truc n'est toujours pas résolu"

En post 5 : marqué comme résolu.