recherchev... help

[so]

bonjour
je veux faire une recherche dans une colonne B mais étendue sur 62 feuilles, je n'arrive pas à écrire 'le nom de mon fichier' dans
=RECHERCHEV(B6;nom de mon fichier 1:65536;B:B;Faux)

merci de votre aide

 

[Tibo]

Salut So,

Il me semble que tu avais déjà un post sur le même sujet.

Bon je te donne le résultat de mes recherches :

L'aide d'excel donne les infos suivantes :

RECHERCHEV(valeur_cherchée;table_matrice;no_index_col;valeur_proche)

et pour table_matrice :

table_matrice est la table de données dans laquelle est exécutée la recherche de la valeur. Utilisez une référence à une plage ou un nom de plage, par exemple Base de données ou Liste.


Il est fait référence à UNE plage, donc je ne suis pas sûr que le Recherchev puisse s'appliquer à plusieurs feuilles simultanément, car on a alors plusieurs plages.

Il faudrait réussir à réunir les différentes plages en une seule, mais là... je ne sais pas faire. Je ne sais même pas si c'est possible. Et ça doit dépendre de la taille de tes différentes plages.

Peut-être une solution avec un onglet supplémentaire qui regrouperait tes différentes plages. Je pense à une utilisation de la fonction DECALER. Mais je n'ai pas fait d'essai. A voir.

Donne-nous davantage de précisions sur la taille des différentes plages, les noms donnés aux onglets, la structure des feuilles.


@+

 

[Robert]

Bonjour So, bonjour le forum,

Bien trop sot en formules pour pouvoir affirmer ce que j'avance mais il me semble que la fonction Recherchev n'accepte pas ce genre de syntaxe. Je pense que tu ne peux pas utiliser une recherche dans plusieurs onglets mais seulement dans une plage indiquée par son asdresse ou son nom (si elle a été nommée).
J'espère qu'un(e) de nos cracs en formules du site confirmera mes dire.

Édition

Oups Tibo, bonjour, on s'est croisés...

Message édité par: Robert, à: 19/08/2005 17:25

 

[@Christophe@]

Bonjour,

=RECHERCHEV(B6;'[Advanced-Filter-guide.xls]Sheet1'!$A$1:$H$65536;B:B;Faux)

bonne chance

 

[so]

:sick: :angry: 🙁 :unsure:
J'y arrive po, suis trop naze là, punaise excel ça me saoule!!!!!!! 😱

vu que c'est le fichier de mon client je ne peux même pas l'envoyer...

je fais
=RECHERCHEV(B8;'[base-client.xls]accueil'!$b$1:$b$65536;B:B;Faux)

et j'ai name? et ma formule se change en
=RECHERCHEV(B8;ACCUEIL!$B:$B;B:B;Faux)

 

[SO]

OK José, tu es la voix de la sagesse, je lache l'affaire...
Mais qui est fort en macro alors?????? :woohoo:

 

[pat1545.]

Salut,

je pense à 2 soluces et déjà propsées sans doute:
où tu mets tout dans le meme onglet (mais pas de doublon dans la colonne de recherche !!!) ou alors une macro avec la méthode 'find'


Patrick

 

[pat1545.]

re :

j'ajouterai , utiliser index/equiv et pas recherchetruc

Patrick

 

[so]

merci à tous, je ne vais pas abuser de vos compétences comme me le soumet gentiment José!!
Tu sais José, je fais de la photo, de l'infographie et ne tate que trop peu en excel...
C'est pour cela que j'ai fait appel à ce site... A commande spéciale, nouvel apprentissage...
Merci en tout cas...

 

[Humansoft]

Bonjour au forum

Je ne sais pas si cela peut t'aider mais c'est une façon détourner d'arriver à la solution.

Copie ce code dans un module, examine le et essaie le.

Sub Macro1()
'
' Macro enregistrée le 21/08/2005 par Humansoft ©2005
'

'
Dim zi_Nb As Integer
Dim zs_Cla As String


Application.DisplayAlerts = False
zs_Cla = 'MonClasseur.xls'
Range('B8').Select
For zi_Nb = 1 To 62
Range('B' & CStr(8 + zi_Nb)).Select
ActiveCell.FormulaR1C1 = _
'=IF(R[-13]C[-1]<>'''',VLOOKUP(R[-13]C[-1],[' & zs_Cla & ']Feuil' & CStr(zi_Nb) & '!R[-8]C[-1]:R[-3]C,2))'
Next zi_Nb
Application.DisplayAlerts = True

Range('B' & CStr(8 + zi_Nb) & '').Value = '=SUM(R[-62]C:R[-1]C)'

End Sub


Bon dimanche
Vincent

 

[Humansoft]

Re bonjour et mille excuses,

Une erreur s'est glissée dans ma précédente formule.
Après essais, il s'avère que cela ne donne pas les résultats souhaités.

Voici donc la macro qui va bien:

Sub Macro2()
'
' Macro enregistrée le 21/08/2005 par Humansoft ©2005
'

'
Dim zi_Nb As Integer
Dim zs_Cla As String

Application.DisplayAlerts = False
zs_Cla = 'MonClasseur.xls'
Range('B8').Select
For zi_Nb = 1 To 62
Range('B' & CStr(8 + zi_Nb)).Select
ActiveCell.FormulaR1C1 = _
'=IF(R6C2<>'''',VLOOKUP(R6C2,[' & zs_Cla & ']Feuil' & CStr(zi_Nb) & '!R1C2:R65336C2,2))'
Next zi_Nb
Application.DisplayAlerts = True

Range('B' & CStr(8 + zi_Nb) & '').Value = '=SUM(R[-62]C:R[-1]C)'

End Sub

Fais un essai sur un classeur vierge.

Rien n'empèche d'améliorer la macro en mettant les résultats dans une colonne cachée et le résultat dans la cellule finale.

Bon courage et bon dimanche

Vincent

 

[so]

Arf Vincent, je n'avais pas consulté le forum et j'ai trouvé une réponse par ailleurs... Sauf qu'elle ne me donne qu'un résultat approxmatif; je m'explique: lorsque je rentre la ref asso015, il m'envoie vers la réponse asso0152 au lieu de me dire 'cette ref n'existe pas'. J'ai essayé en modifiant y=false mais là il fait parel et note en plus 'cette ref...'
Merci de votre aide

la voici:
Sub galopin (z As String)
If z <> '' Then
For i = 2 To Worksheets.Count
j = Worksheets(i).Cells.SpecialCells(xlLastCell).Row
With Worksheets(i).Range('B1:B' & j)
Set c = .Find(z, LookIn:=xlValues)
If Not c Is Nothing Then
Worksheets(i).Activate
c.Activate
Y = True
Exit For
End If
End With
Next
If Not Y Then MsgBox 'Cette référence n'existe pas !'
End If
End Sub