Recherche dernière valeur

[Lu K]

Bonjour,

Voilà je fait encore appel à vous,

Je suis à la recherche d'un code pour activer la dernière cellule suivant une valeur donné (on va dire "x") de la colonne B

En gros :

A B
1 t g
2 g x
3 b x
4 t r

Là, il faudrai pouvoir activer la cellule B3 !

Je sais comment faire pour trouver la première valeur "x", mais pour la dernière je bloque ! Peut être en commençant la recherche par la fin ?

D'avance merci pour vos réponse

 

[tototiti2008]

Re : Recherche dernière valeur

Bonjour Lu_K,

Je sais comment faire pour trouver la première valeur "x", mais pour la dernière je bloque ! Peut être en commençant la recherche par la fin ?

Excellente analyse 😉

un bout de fichier exemple, peut-être ?
ton exemple propose 2 colonnes mais 3 valeurs par ligne, je ne comprend pas bien

Edit : Oups, ah oui il ya un décalage...

Sub test()
Dim i as long
For i = range("B65536").end(xlup).row to 2 Step -1
if Cells(i,2).value = "x" then
Cells(i,2).select
Exit For
end if
Next i
End sub

Edit2 : Bonjour mth 😉

 

[mth]

Re : Recherche dernière valeur

bonjour,

Avec une formule matricielle du type:

=MAX((B1:B25="x")*LIGNE(B1:B25))

mais tu voulais peut-être du VBA ?

Bonne journée,

mth

Edit: oups ... désolée ... bonjour tototiti 🙂
m
Edit 2: et bonjour Pierrot 🙂

 

[Pierrot93]

Re : Recherche dernière valeur

Bonjour à tous,

une autre solution vba pour éviter la boucle :

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

bon après midi
@+

 

[Lu K]

Re : Recherche dernière valeur

Bonjour Tototiti2008, mth,Pierrot 93 et le fil

Merci à tous pour vos réponse sir rapide.

J'opte pour la solution à Pierrot 93, elle fonctionne du 1 er coup ! je n'ai pas réussi avec ta solution Tototiti2008. Merci aussi à mth, mais effectivement je voulais une solution par VBA.

Encore merci à tous, vous êtes rapide et éfficace !

 

[tototiti2008]

Re : Recherche dernière valeur

Bonjour Pierrot,
Re,

En VBA, "x" est différent de "X", donc si tu as mis des majuscules ça ne marchera pas

Sinon chez moi mon code fonctionne... Mais la solution de Pierrot est trés bien

 

[Lu K]

Re : Recherche dernière valeur

Re Tototiti2008,

Je viens d'essayé ton code à nouveau, et comme je n'aime pas rester sur ma fin, il a fallu que je sache pourquoi ça ne fonctionne pas !
Je suis un idiot (mais ne le dites à personne !), comme j'ai voulu adapter ton code à mon fichier, j'ai oublié de changer les références des colonnes:
if Cells(i,2).value = "x" then
Cells(i,2).select
par
if Cells(i,10).value = "x" then
Cells(i,10).select
pour une recherche sur la colnne "J"

Donc t'as solution fonctionne très bien

Tototiti2008, je te présente toutes mes plus plates excuses !!!

@+