Discussion :

[redstoff]

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 :

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

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

[rvtoulon]

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 :

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

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

[redstoff]

bien vu!!

je te remercie

[redstoff]

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.

[rvtoulon]

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

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

le code :

Code :

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

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

fait cela, ça marche.

maintenant tu dis :

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 :

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

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 sur l'instruction Find?

[redstoff]

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

erreur de frappe

merci à toi

[mercatog]

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

Code :

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

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