Remplacer INDEX + EQUIV par une macro

screewy

XLDnaute Nouveau
Bonjour,

J'ai un fichier de travail,Table_A_renseigner, dans lequel j'ai la formule suivante dans les différentes cellules.
Code:
=RECHERCHEH(C$3;'I:\Travail VBA\[Table_fr.xls]Sheet1'!$C$3:$Q$169;EQUIV($B4;'I:\Travail VBA\[Table_fr.xls]Sheet1'!$B$5:$B$169);FAUX)+RECHERCHEH(C$3;'I:\Travail VBA\[Table_fr.xls]Sheet2'!$C$3:$Q$169;EQUIV($B4;'I:\Travail VBA\[Table_fr.xls]Sheet2'!$B$5:$B$169);FAUX)


Je souhaite obtenir le même résultat mais en passant par une macro Excel sous VBA.

Étant débutant, j'ai quelques difficultés. Pouvez vous m'aider ?

Merci par avance
 

Pièces jointes

  • Table_A_renseigner.xls
    232.5 KB · Affichages: 64
  • Table_A_renseigner.xls
    232.5 KB · Affichages: 78
  • Table_A_renseigner.xls
    232.5 KB · Affichages: 74
  • Table_fr.xls
    216.5 KB · Affichages: 57
  • Table_fr.xls
    216.5 KB · Affichages: 72
  • Table_fr.xls
    216.5 KB · Affichages: 64

Discussions similaires

Statistiques des forums

Discussions
312 505
Messages
2 089 070
Membres
104 016
dernier inscrit
Mokson