Recherche dernière valeur

tototiti2008

XLDnaute Barbatruc

• 7 Octobre 2010

• #2

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 ?

Cliquez pour agrandir...

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

Code:

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 😉

 

Dernière édition: 7 Octobre 2010

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 7 Octobre 2010

• #3

Re : Recherche dernière valeur

bonjour,

Avec une formule matricielle du type:

Code:

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

 

Dernière édition: 7 Octobre 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Octobre 2010

• #4

Re : Recherche dernière valeur

Bonjour à tous,

une autre solution vba pour éviter la boucle :

Code:

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

 

Vote positif 0 Vote négatif

L

Lu K

XLDnaute Occasionnel

• 7 Octobre 2010

• #5

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 !

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 7 Octobre 2010

• #6

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

 

Vote positif 0 Vote négatif

L

Lu K

XLDnaute Occasionnel

• 7 Octobre 2010

• #7

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 !!!

@+

 

Vote positif 0 Vote négatif