Discussion :

[jefe.k]

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

[random]

regarder dans l'aide recherchev

[jefe.k]

j'aimerais realiser ceci avec une macro...

[tonton fred]

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) ?

[jefe.k]

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

[tonton fred]

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

Code :

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

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

[jefe.k]

ne connaissant par trop les subtilité des modules fonction

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

Code :

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

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

[tonton fred]

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 :

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

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 :

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

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

[jefe.k]

merci bien...

probleme résolu...