Discussion :

[retraite83]

Bonjour,

je me heurte à un problème que je ne pensai pas avoir.

Je veux trouver la dernière ligne qui contient une valeur particulière dans une colonne (en 1 ligne ou 2 VBA).

Par exemple le dernier "papa" dans la colonne A, il peut y avoir plusieurs lignes qui contiennent la valeur recherchée, et d'autres valeurs sont également possible dans cette colonne.

Je pensai m'en sortir facilement avec le code qui permet de détecter classiquement la dernière ligne d'une colonne en ajoutant une condition, mais voilà…

Je n'ai pas trouvé de doc pouvant me guider, pourtant il doit bien y en avoir.

Merci de votre aide

[unparia]

Bonjour
Les solutions existent, mais aucune, à ma connaissance, en conformité avec la condition que tu mets, à savoir :

en 1 ligne ou 2 VBA

[retraite83]

ok,

alors en plus de lignes, je n'ai pas le choix, si possible sans écrire une boucle qui cherche la valeur ligne à ligne en commençant par la fin

[unparia]

mais sans écrire une boucle

Une boucle me paraissant nécessaire (y compris en utilisant la méthode Find), je ne me sens pas apte à te donner cette satisfaction.

[retraite83]

Une boucle me paraissant nécessaire (y compris en utilisant la méthode Find), je ne me sens pas apte à te donner cette satisfaction.

Merci, je vais donc me plier aux exigences de VBA

[anasecu]

Bonjour,

aucune, ... en conformité avec la condition que tu mets, à savoir : en 1 ligne ou 2 VBA

@unparia Salut à toi : j'essaie tout de même de relever le défi tel que je l'ai compris.

- une ligne sur la feuille : =der_lig(2;A1) 2 colonne de recherche, A1 valeur recherchée

- 2 VBA à mettre dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Function der_lig(col, chr): For der_lig = Cells(Rows.Count, col).End(xlUp).Row To 1 Step -1: If Cells(der_lig, col).Value = chr Then Exit Function
Next: der_lig = "absent": End Function

[unparia]

Bonjour ami anasecu

je veux croire que tu plaisantes et sais pertinemment que tu as là autant de lignes réelles de code que le nombre + 1 des ":" qui figurent là

Re-amitiés

EDIT : toujours avec toute mon amitié --->> tu aurais quand-même pu accélérer avec Find et FindNext, non ?

[anasecu]

Bonsoir à tous,

je veux croire que tu plaisantes et sais pertinemment que ...

@ unparia
Lorsque l'on fixe des critères qui n'ont que peu de rapport avec l'efficacité de la procédure,
n'est-ce pas normal de répondre en respectant à la lettre les conditions ?

Soit rassuré, si je ne connaissais pas la signification des ":" en VBA je n'aurais pas été en mesure de rester dans les 2 lignes accordées.
Quant à l'accélération, faisait-elle partie des règles ? en tout cas je n'ai pas vu.
Mais c'est vrai, tu as tout à fait raison, car avec 'Find' l'on réduit à 1 ligne, si l'on utilise bien les paramètres !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function der_lig(col, chr): der_lig = Columns(col).Find(chr, Cells(1, col), xlValues, xlWhole, xlByColumns, xlPrevious).Row: End Function

@ retraite83
Ainsi, je pense que tu as ta ligne VBA pour trouver la dernière valeur cherchée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

der_lig = Columns(colonne_de_recherche).Find("texte_cherché", Cells(1, colonne_de_recherche), xlValues, xlWhole, xlByColumns, xlPrevious).Row

Bonne soirée et bon dimanche.

[Pierre Fauconnier]

Salut.

Pour les cellules dont la valeur est égale à "papa, en une ligne et sans boucle (au sens VBA du terme), en Excel (formule matricielle) et en VBA





Si tu souhaites la ligne de la dernière cellule qui contient "papa" (ta question initiale), tu adaptes la matricielle