Discussion :

[NoodleDS]

Bonjour à tous,

J'ai besoin d'aide car j'ai toujours des difficultés pour coder en VBA. Je cherche dans une macro enregistré à remplacer le code généré par une RECHERCHEV par un petit programme équivalent.
La formule est la suivante :
RECHERCHEV(V2;FEUIL2!$B$2:$C$50;2;FAUX)

Ce nouveau code effectuerai la "RECHERCHEV" en colonne W - FEUIL1. Il comparait exactement la colonne V (à partir de la ligne 2) - FEUIL1 jusqu'à la dernière cellule non vide à la colonne B de la Matrice (colonne B et C - FEUIL2) jusqu'à la dernière cellule non vide.

Après correspondance, les informations rapatriées en colonne W - FEUIL1 serait celles trouvées en colonne C - FEUIL2. Dans le cas où il n' y a pas correspondance, il faudrait indiquer dans la cellule correspondante de la colonne W - FEUIL1 : "NON TROUVE".

Je vous remercie par avance pour votre aide.

Cordialement.
NoodleDS

[jouana]

Bonsoir au tu peux faire ça dans ta case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=SIERREUR(RECHERCHEV(V2;FEUIL2!$B$2:$C$50;2;FAUX); "NON TROUVE")

Bonne soirée

[mercatog]

Bonsoir au tu peux faire ça dans ta case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=SIERREUR(RECHERCHEV(V2;FEUIL2!$B$2:$C$50;2;FAUX); "NON TROUVE")

Bonne soirée

Attention, SIERREUR Disponible seulement à partir d'Excel 2007

[NoodleDS]

Bonjour,
La véritable formule que j'utilise est celle-ci :
=SI(ESTERREUR(RECHERCHEV(V2;FEUIL2!$B$2:$C$50;2;FAUX));T2;(RECHERCHEV(V2;FEUIL2!$B$2:$C$50;2;FAUX))).
Je souhaiterai remplacer cette formule par un code VBA qui s’adapterait automatiquement à la taille de la matrice qui peut évoluer en nombre de ligne, tout comme le nombre de ligne des colonnes concernées en FEUIL1.

Je vous remercie par avance.

Cordialement.
NoodleDS

[NoodleDS]

Bonjour,
Pouvez-vous m'aider, la macro enregistrée donne le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(RC[-1],FEUIL2!R2C2:R50C3,2,FALSE)),RC[-3],(VLOOKUP(RC[-1],FEUIL2!R2C2:R50C3,2,FALSE)))"

Malheureusement, je ne peux m'en servir comme ceci, car la matrice (FEUIL2!R2C2:R50C3) peut être d'une fois à l'autre de taille différente.
Or, je souhaite un code qui puisse s'adapter à toutes les situations.

Je vous remercie par avance pour votre aide.

Cordialement.
NoodleDS

[Philippe Tulliez]

Bonjour,
Ce que tu veux obtenir, c'est une plage dynamique dans une formule qui est contenue dans un chaîne de caractères
Donc la première chose à faire est de définir par exemple dans une variable l'adresse pour obtenir FEUIL2!R2C2:R50C3.
Dans cet exemple la variable Plage va avoir comme valeur Feuil2! & l'adresse calculée dynamiquement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim rng As Range, plage As String
 Set rng = ThisWorkbook.Worksheets("Feuil2").Range("A1").CurrentRegion
 With rng
  plage = .Worksheet.Name & "!" & .Address(ReferenceStyle:=xlR1C1)
 End With
 MsgBox plage

Il suffit ensuite de faire une concaténation de la formule et de l'adresse ainsi trouvée ou un Replace (que personnellement je privilégie). A toi de choisir.

Exemple avec Replace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Dim rng As Range, plage As String, Formula As String
 ' "=VLOOKUP(RC[-1],R2C1:R3C3,2,FALSE)"
 Formula = "=VLOOKUP(RC[-1],<Addr>,2,FALSE)"
 Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion
 With rng
  plage = .Worksheet.Name & "!" & .Address(ReferenceStyle:=xlR1C1)
 End With
 Formula = Replace(Formula, "<Addr>", plage)
 MsgBox Formula