MachineGunJ
Messages postés2Date d'inscriptionvendredi 4 janvier 2008StatutMembreDernière intervention 5 janvier 2008
-
5 janv. 2008 à 11:37
MachineGunJ
Messages postés2Date d'inscriptionvendredi 4 janvier 2008StatutMembreDernière intervention 5 janvier 2008
-
5 janv. 2008 à 16:48
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...!
MachineGunJ
Messages postés2Date d'inscriptionvendredi 4 janvier 2008StatutMembreDernière intervention 5 janvier 2008 5 janv. 2008 à 16:48
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.