VBA excel et recherche contenu cellule

[Philippe]

Bonjour,

Je souhaite faire une recherche du contenu d'une cellule fichier dans une colonne d'un autre fichier. J'essaie le programme suivant mais cela ne marche pas:
Columns("B:B").Select
Selection.Find(What:="[Be3.xls]Consoprov!R5C7", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

Quelqu'un peut-il m'aider?
Merci d'avance,
Cordialement,

Philippe

 

[Zon]

Salut,

Admettons que ton fichier s'appelleFichier2, essaies plutôt ce type de procédure.

Sub Recherche()
Dim C As Range, Plage As Range, Chaine As String
Chaine = ActiveCell.Text 'on recherche la valeur la cellule actrive du 1 er fichier
With Workbooks("fichier2.xls")'ton fichier dans lequel tu fais ta recherche
Set Plage = .Sheets("Lenomdetafeuille").Columns(2)
Set C = Plage.Find(Chaine, , xlValues, xlWhole, , , False)
If Not C is nothing then
'ton traitement
End if
End With
End Sub


A+++

 

[Philippe]

Merci de ta réponse je suis débloqué. J'ai bien compris la démarche de ton programme et le contrôle apporté à la recherche.
Par contre, j'ai un souci de libellé pourr set C. J'ai traduit ton programme par la ligne:
Set C = Plage.Find(What:=Chaine, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
mais je fais une erreur de syntaxe que je n'arrive pas à résoudre.
Peux tu m'aider à nouveau ?

D'avance merci.

 

[Zon]

Salut,

C'est VBA qui bugge ou c'est toi qui en effectuant les tests qui ne trouvent pas la valeur escomptée ?

Pour VBA à priori j'ai testé la syntaxe est bonne=>envoies moi tes fichiers par courriel pour voir ce qui pourrait clocher dans ton code ....

Pour le 2 eme cas, fais une recherche plutôt dans xlvalues et xlwhole, comme je te l'avais indiqué dans le post d'hier soir...


A+++