comparaison de données

Bonjour
Le programme suivant teste une idée semblable ; le copier-coller dans
l'éditeur VBA d'un nouveau fichier .
La formule à utiliser sous le 3ème onglet figure dans le listing sous forme
VBA (rédaction RC) ou en REMarque (') selon le mode d'utilisation
d'Excel....
@+
M41
===================================== Sub Comparer ()
'
'On est sur Feuil1 et on remplit un tableau de A (de A1 à C10)
Sheets("Feuil1").Select
Range("A1").Select
'
ActiveCell.FormulaR1C1 = "A"
Selection.AutoFill Destination:=Range("A1:C1"), Type:=xlFillDefault
Range("A1:C1").Select
Selection.AutoFill Destination:=Range("A1:C10"), Type:=xlFillDefault
Range("A1:C10").Select
'
'On est sur Feuil2 et on remplit un tableau de B
Sheets("Feuil2").Select
Range("A1").Select
'
ActiveCell.FormulaR1C1 = "B"
Selection.AutoFill Destination:=Range("A1:C1"), Type:=xlFillDefault
Range("A1:C1").Select
Selection.AutoFill Destination:=Range("A1:C9"), Type:=xlFillDefault
Range("A1:C9").Select
'
'On est sur Feuil3 et on remplit un tableau d'une formule
' =SI(Feuil1!A1þuil2!A1;Feuil1!A1;"") en cellule A1 <<<<< en tableur
Excel
Sheets("Feuil3").Select
Range("A1").Select
'
ActiveCell.FormulaR1C1 = "=IF(Feuil1!RCþuil2!RC,Feuil1!RC,"""")"
'<<<<< en VBA
Selection.AutoFill Destination:=Range("A1:C1"), Type:=xlFillDefault
Range("A1:C1").Select
Selection.AutoFill Destination:=Range("A1:C9"), Type:=xlFillDefault
Range("A1:C9").Select
'
'Test : on modifie une cellule de la feuil2 en mettant un A
Sheets("Feuil2").Select
Range("B5").Select
ActiveCell.FormulaR1C1 = "A"
Sheets("Feuil3").Select
End Sub

=====================================

"nbarreau" <nbarreau1@free.fr> a écrit dans le message de news:
4289caa5$0$22958$636a15ce@news.free.fr...

Bonjour,

je recherche une solution pour comparer les données de deux tableaux.
Chaque tableau se trouve dans un onglet différent et je voudrais que les
données identiques à chaque tableau s'inscrivent dans un troisième (dans
un troisième onglet).

Pourriez-vous m'aider. Merci d'avance.
Nicolas