Discussion :

[tzehani]

Bonjour à toutes et à tous

je voudrai au fait savoir s'il est possible de coder en VBA, une application qui recherche dans un fichier2.xls une certaine valeur ( par exemple :"PCE" ) située dans un fichier1.xls et surtout attribue au boolean trouve le nombre 1 si ma cellule existe et 0 sinon.

Ce code, je veux le taper dans une macro située dans le fichier1.xls c'est à dire où se situe réelement ma valeur.

Merci de votre aide.

[Garuda]

Ouvre deux classeur vide
Fais "Enregistrer une macro" dans le classeur 1
Simule ce que tu veux faire.
Arrête l'enregistrement.
Consulte le code généré dans Classeur 1

[tzehani]

C'est pas tout à fait le genre de réponse que j'attendais
Je pense que j'ai mal décrit mon problème,

J'ai un fichier excel nommé Premier.xls dans ce meme fichier j'ai une cellule par exemple A2 où il est écrit "PCE".
Ce que je veux faire, c'est tester si "PCE" existe ou pas dans un autre fichier excel nommé Deuxieme.xls.

Et Je veux que cette macro soit éditer dans le fichier excel Premier.xls


Merci de votre aide

[Garuda]

Si tu fais ce que je suggére, tu auras le code tout cuit de ce que tu veux faire !
Il faudra juste un peu réfléchir (et chercher dans l'aide de VBA) pour savoir si la recherche a abouti ou pas.

De manière générale, l'enregistrement de macro permet souvent de trouver des solutions !

[tzehani]

le problème, est que je ne vois pas comment le faire sur deux feuilles vides, ce qui m 'embete c'est d'effectuer la recherche sur un autre fichier.

Si mon mot par exemple PCE se situe sur Premier.xls et que j'effectue ma recherche sur le meme fichier c'est bon c'est juste une boucle mais la je dois chercher ce mot dans un autre fichier et le truc c'est que je vais devoir faire ca sur beaucoup d'autre mots.

Ce que je ne sais pas aussi c'est avec quelle fonction je peux effectuer une recherche.

Voila merci encore

[Garuda]

Dans classeur 1,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub macro 1(nom_classeur as string,valeur as variant)
Dim s As Worksheet, c As Range
   Set s = Workbooks(nom_classeur).Sheets(1)
   Set c = s.Cells.Find(What:=valeur, _
        After:=s.Range("A1"), _
        LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
  ....
    Set c = s.Cells.FindNext(After:=c)
  ...
End Sub