rechercher dans un tableau en fonction de la valeur d'une cellule

bonjour,

je souhaiterais en fonction du texte contenu dans un cellule d'un première feuille, lancer une recherche dans un tableau (genre de listing) afin de trouver le texte contenu dans la cellule de la première feuille et ensuite récupérer le numéro de la ligne du listing qui contient ce texte....

mes connaissances en visual basic étant limitées, j'aurais besoin d'aide
merci a tous

regarder dans l'aide recherchev

j'aimerais realiser ceci avec une macro...

Bonjour,
C'est un sujet tres vaste et tres souvent aborde ici, il faut un peu plus preciser tes besoins et contraintes:
Ton "genre de listing" est une feuille excel ? Dans le meme classeur (fichier) ? Les valeurs sont toutes dans la meme colonne ? Quel type de valeur (Nombre reel, entier, chaine de caractere) ?

la valeur a chercher dans le listing, qui est une feuille excel du meme classeur, est une chaine de caractère, un nom plus précisement.

Le but de cette macro serait d'aller rechercher le nom dans le listing (tjs dans la meme colonne) et de ressortir le numéro de la ligne ou il apparait...

voila

Par macro, ce probleme a deja ete traite des dizaines de fois (et je suis la que depuis 2 mois...).

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function TrouverLigne(NomATrouver as string, NoCol as integer) as long dim Ligne as Long Ligne = 1 Do If cells(Ligne, NoCol).value = NomATrouver then TrouverLigne = Ligne Exit do end if Ligne= ligne + 1 Loop End Function

---

ne connaissant par trop les subtilité des modules fonction

j'ai finalement créer une macro sous l'inspiration de tonton fred:D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

sub chercher() dim num as variant num=6 for k =1 to 6500 if worksheets("feuil2").cells(num,6).value = worksheets("feuil1").cells(12,2).value then   worksheets("feuil2").cells(1,1).value = num enf if num = num + 1 next k   end sub

---

voili voualou

Citation:

---

Envoyé par jefe.k

ne connaissant par trop les subtilité des modules fonction

---

Une fonction et une procedure sont exactement pareils a une chose pres: la fonction retourne une valeur. L'emploi est different mais generalement on peut utiliser l'un ou l'autre indifferement (l'un est simplement "plus court" que l'autre suivant la situation):

Code:

---

NumeroLigne = TrouverLigne("Coucou",15)

---

Ceci dit, il y a quelques petites ameliorations qui peuvent etre apportees a ta macro (pour celle la ca va, mais si tu veux faire un truc plus complexe tu vas t'y paumer si tu fais pareil ;) )
-num correspond a ton numero de ligne, donc il est inutile de le declarer en variant, Long suffit
-si tu utilises une boucle for, il est inutile d'utiliser un deuxieme indice (a savoir num)

Ce qui donne:

Code:

---

1 2 3 4 5 6 7 8

sub chercher() dim num as Long for num = 6 to 6500 if worksheets("feuil2").cells(num,6).value = worksheets("feuil1").cells(12,2).value then worksheets("feuil2").cells(1,1).value = num end if next num end sub

---

Cependant, bravo pour avoir fait ca tout seul :king:

merci bien...

probleme résolu...