pour cela il faut que tu fasses un recherchev :
tu rentres ta formule dans la cellule c1:
=recherchev(a1;$a$1:$b$200;2;'')
et puis tu incrémentes jusqu'en bas
après tu copies colles les valeurs de la colonne c sur une autre feuille.
en vba ca donnerait:
range('c1').select
activecell.formular1c1='=vlookup(rc[-2],R1C1:R200C2,2,'')'
Selection.AutoFill Destination:=Range('c1:c200'), Type:=xlFillDefault
range('c1:c200').select
selection.copy
sheets.add
activesheet.select
activesheet.name='comparaison'
range('a1').select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
voila
Message édité par: toubib, à: 20/09/2005 18:16