Aide pour fonc. recherche dans classeur.

Signaler
Messages postés
2
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2008
-
Messages postés
2
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2008
-
Bonjour à tous,

Je me permets de poster un message afin de demander l'aide de personnes plus doués que moi en la matière.
Voilà, j'ai un classeur dans lequel je crée un ensemble de facturations, à savoir une feuille par facture. Il se trouve que chaque mois je refait un classeur pour chaque période: un classeur pour janvier , un autre pour février, etc...
Alors je suis entrain de faire un autre classeur indépendant, mais toujours dans le même répertoire que les classeurs facturation, et dans ce classeur que je bomme "recherche" je souhaite pouvoir selectionner un ou plusieurs classeur et de pouvoir y effectuer une recherche pour retrouver rapidement le nom du client en affichant sa facture...
En théorie rien de bien compliqué, ceci dit, là j'avance pas très vite.
Je suis arrivé à tout ordonner pour ce qui est des variables, j'utilise une fonction open toute bête pour l'ouverture du classeur dans laquelle j'aimerais effectuer la recherche, mais là ou je coince c'est pour lancer la recherche àpartir du classeur "recherche" pour le classeur, par exemple "factures novembre 2007.xls"  :

voici un bout de code, si vous pouvez m'aider:

Workbooks.Open nom // nom etant la variable pour le classeur conserné par la recherche
Workbooks(nom).Find(What:="NomClt", After:=ActiveCell, LookIn:=xlFormulas, _  //NomClt variable nom client pour rech.
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

        MsgBox ("si c'est pas recherché c'est que ça ne marche pas...")// petit test pour voir que le code ne fonctionne pas  

Désolé pour l'inexactitude du code, je me remets petit à petit a coder....
Merci d'avance à ceux qui peuvent m'apporter de l'aide...!

1 réponse

Messages postés
2
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2008

Re bonjour à tous,

J'ai fait quelques progrès dans mon projet, à savoir que j'en suis là:

For feuille = 1 To Sheets.Count 'boucle pour executer la recherche sur toute les feuilles du classeur
Sheets(feuille).Select
Set trouvé1 = Cells.Find(What:=nom2, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
If Not trouvé1 Is Nothing Then ' en cas de échec pour l'élément recherché.
non = MsgBox("le texte recherche n'est pas trouve " & nom2)
End If


Next feuille
      
Seul soucis, il ne me trouve rien, alors que la valeur de "nom2" est bien présent dans une feuille du classeur...
Des idées? Merci encore.