.find avec .end

bonjour je cherche à combiner c'est deux fonctions afin de rechercher la dernière valeur rechercher

exemple:
on a une colonne avec des valeurs

1 (ligne 1 excel)
1 (ligne 2 excel)
1 (ligne 3 excel)
2 (ligne 4 excel)
2 (ligne 5 excel)
2 (ligne 6 excel)
3 (ligne 7 excel)
3 (ligne 8 excel)
3 (ligne 9 excel)

je cherche à faire en sorte qu'il me donne la ligne du dernier 3 avec

Code:

---

1 2	ligne = cells.find("3").end(xlDescending).Row

---

le soucis c'est que ça ne marche pas.
il me donne la ligne 7 à la place de la ligne 9

si quelqu'un pourrait m'aider

Bonjour,
si tu regardes l'aide F1 de vba sur le mot "Find", tu trouveras les propriétés de cette fonction, dont la propriété qui permet de définir le sens de la recherche, donc pas besoin du End.

code:

Code:

---

Set ligne = Cells.Find("3", , , , , 2)

---

bien vu!!

je te remercie

je reviens sur le sujet car ça ne marche pas.

donc je reformule mon problème

je cherche une commande qui permet de rechercher une valeur dans une colonne est de me donner la position de la dernière ligne où se trouve cette valeur.

je remet mon exemple
supposons que les valeurs sont la colonne A
A
1 (ligne 1 excel)
1 (ligne 2 excel)
1 (ligne 3 excel)
2 (ligne 4 excel)
2 (ligne 5 excel)
2 (ligne 6 excel)
3 (ligne 7 excel)
3 (ligne 8 excel)
3 (ligne 9 excel)


donc j'aimerai avoir si je recherche 3 qu'il me donne l'adresse du dernier 3 qui se trouve dans la colonne A
donc se sera A9 dans mon exemple.

quand tu dis ça ne marche pas soit plus clair.
dans le premier post tu dis :

Citation:

---

je cherche à faire en sorte qu'il me donne la ligne du dernier 3 avec

---

le code :

Code:

---

1 2	Set ligne = Cells.Find("3", , , , , 2) If Not ligne Is Nothing Then MsgBox ligne.Row

---

fait cela, ça marche.

maintenant tu dis :

Citation:

---

donc j'aimerai avoir si je recherche 3 qu'il me donne l'adresse du dernier 3 qui se trouve dans la colonne A
donc se sera A9 dans mon exemple.

---

et bien tu adaptes par exemple:

Code:

---

1 2	Set ligne = Cells.Find("3", , , , , 2) If Not ligne Is Nothing Then MsgBox ligne.Address

---

ce code affiche l'addresse ou se trouve le dernier 3, ça marche
As-tu regarder :f1: sur l'instruction Find?

oui ça marche autant pour moi j'ai juste oublié une virgule

erreur de frappe

merci à toi

J'ajoute qu'il faut déclarer certains paramètres de Find
personnellement je ferai comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Sub aaa() Dim c As Range   With Sheets("Feuil1") Set c = .Range("A1", .Range("A" & .Rows.Count).End(xlUp)).Find(3, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious) If Not c Is Nothing Then MsgBox c.Address Set c = Nothing End If End With End Sub

---

à voir notamment si tu cherche les valeurs ou dans le résultat de formules
LookIn:=xlValues ou xlFormulas
LookAt:=xlWhole ou xlPart