Chercher la derniere cellule dune colonne comprenant mot précis et la copier

[bobylaroche]

Bonjour à tous,

Ce post concerne l'extraction de la dernière cellule d'une colonne contenant un mot précis.

J'ai essayé avec les fonctions rechercher, lookup mais je n'y parviens pas.
Pour exemple le mot à rechercher dans le fichier joint est "inventaire".

Si vous avez une solution.

Merci

 

[mapomme]

Re : Chercher la derniere cellule dune colonne comprenant mot précis et la copier

Bonjour bobylaroche,

Essayer le code suivant:

Sub essai()
Dim xrg As Range

Set xrg = Nothing
Set xrg = Sheets("Feuil1").Range("b:b").Find("inventaire", _
        after:=Sheets("Feuil1").Range("B1"), searchdirection:=xlPrevious, _
        LookIn:=xlValues, lookat:=xlPart, MatchCase:=False)
If Not xrg Is Nothing Then Sheets("Feuil2").[b5] = xrg.Value Else Sheets("Feuil2").[b5] = CVErr(xlErrNA)
End Sub

Edit: modif avant dernière ligne du code

 

[mapomme]

Re : Chercher la derniere cellule dune colonne comprenant mot précis et la copier

Re,

Ou bien sans VBA, avec une formule matricielle en B5:

=INDEX(Feuil1!$B:$B;GRANDE.VALEUR((SIERREUR(CHERCHE("inventaire";DECALER(Feuil1!$B$1;0;0;EQUIV("zzzz";Feuil1!B:B;1);1));0)*LIGNE(DECALER(Feuil1!$B$1;0;0;EQUIV("zzzz";Feuil1!B:B;1);1)));1))

 

[bobylaroche]

Re : Chercher la derniere cellule dune colonne comprenant mot précis et la copier

Bonjour Mapomme,

Génial, après une matinée de recherche, tu m'épargnes l'après midi.
Le bravo, c'est pour qui ? C'est pour mapomme