Comparer des données d'une ligne sur 2 feuilles

[tarvel]

Bonjour,
J'ai des données à comparer sur 2 feuilles.
Dim résultat as string.
Les cellules A2, B2 et D2 sur feuil1 sont constantes
Si Sur feuil1 les cellules A2, B2 et D2 sont retrouvées en feuil2 en ColA, B
et D je voudrais que la chaine de texte 'résultat' soit collée en ColE sur la
même ligne trouvée sur cette feuil2.
Merci [file name=ComparerLignes.zip size=1719]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ComparerLignes.zip[/file]

 

[anuky]

Bonjour,

du code n'est pas forcément nécessaire, tu peut t'en sotir avec une formule avec

=SI(ET(Feuil1!$A$2=Feuil2!A5;Feuil1!$B$2=Feuil2!B5;Feuil1!$D$2=Feuil2!D5);'résultat';'')

Ci-joint ton fichier avec les formules


j'espère avoir répondu ta question

Bonc ourrage.

[file name=ComparerLignes_20051020111451.zip size=1837]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ComparerLignes_20051020111451.zip[/file]

 

[SergiO]

Bonjour,

Voilà une solution mais regarde si elle répond à ta demande.

A+ [file name=ComparerLignes_Sol.zip size=1995]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ComparerLignes_Sol.zip[/file]

 

[tarvel]

OK pour la formule...mais en fait j'aimerais plutot une macro vb à inclure dans une autre macro qui me permet d'extraire bcp de données.
J'avais trouver ceci sur un autre forum qui me conviendrait bien mais cela concerne que la cellule A2 de la feuil1
Sub comparerLigne()
Dim Lg As Range, Lg1 As Range, C As Range
Set Lg = Worksheets('Feuil1').Range('A2')
With Worksheets('Feuil2')
Set Lg1 = .Range('A1:A' & .Range('A65536').End(xlUp).Row)
End With
For Each C In Lg1
If C.Value = Lg.Value Then
C.Offset(, 4) = 'Résultats'
End If
Next
Set Lg = Nothing: Set Lg1 = Nothing: Set C = Nothing
End Sub

Comment faire pour prendre en considération A2, B2 et D2 de la feuil1???
Merci