Discussion :

[oliver75]

Bonjour ,

Voilà le "challenge". j'ai un fichier excel ou il y a en 3ieme ligne un code produit

du type "PROD00000016738"

je cherche à récupérer quotidiennement le dernier cours (en fait la dernier ligne de la colonne correspond à ce code produit)

Quelqu'un a t_il un idée d'une macro qui en precisant ce code produit, puisse me permettre de récupérer la dernière ligne de la colonne correspondante?

J'espère etre clair .

merci

[ouskel'n'or]

Code :

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

   DerniereLigne = Range("A65535").End(xlUp).Row

Tu remplaces A par la bonne colonne
Edit
Ok, j'ai mal lu. J'y retourne
Regarde à find, dans l'aide, tu as un exemple.

[ouskel'n'or]

Si tu as plusieurs fois la même donnée, il te faut une boucle pour trouver la dernière.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub RechercheEnBoucle()
Dim maVal As Variant, c As Variant, NoLigne As Long
Dim FL1 As Worksheet, Plage As Range
    Set FL1 = Worksheets("Feuil1")
    Set Plage = FL1.Range("B:B") ' adapte la colonne
    maVal = "PROD00000016738"
    With Plage
        Set c = .Find(maVal, LookIn:=xlValues)
        If Not c Is Nothing Then 'Si j'ai trouvé une donnée, j'entre dans la boucle
            Do
                'c contient la donnée cherchée
                'ici... on fait ce qu'on a à faire
                adresse = c.Address
                NoLigne = c.Row
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Row > NoLigne
        End If
    End With
    'quand tu sors de cette boucle tu as le bon N° de ligne
End Sub

Tu peux aussi prendre le problème à l'envers en lançant ta recherche de la dernière ligne vers la première. La première occurence trouvée te donne le N° de ligne
A+

[oliver75]

ok merci

[Tiresia]

En pièce jointe, un petit truc avec un Userform et tout et tout...en espérant que ça t'aille ouskel'nor a été plus rapide que moi mais bon