VBA - RechercheV - Boucle

Bonjour tout le monde,

Je viens vers vous pour obtenir vos précieux conseils!

Je souhaiterai réaliser une macro qui s'adapte, pour effectuer une rechercheV dans chaque cellule de ma colonne X de ma dernière feuille.
La clé recherchée se situe dans la colonne H. (Pour X1 ->H1; X2->H2;...; Xi->Hi)
La matrice se trouve dans la feuille avant, avec pour référence : (H2:Ti).
Ma valeur a renvoyé se trouve en colonne 13 et ma rechercheV est Faux.

Mon problème est que chaque mois je rajoute une feuille en dernière position dans ce classeur excel. (Chaque feuille comporte le même nombre de colonnes mais le nombre de lignes diffère d'un mois sur l'autre.)
les références de ma fonction rechercheV changent donc!

Je ne sais pas si j'ai étais très clair donc je mets en pj mon classeur sans données.

Est ce que quelqu'un aurait une idée car je bloque la dessus depuis hier!!

Merci d'avance pour votre aide!

Bonjour,

Qu'est-ce qui te bloque au juste ?

Si les nouvelles feuilles sont toujours placées à la fin, la dernière feuille se nomme

Code:

---

Sheets(Sheets.Count).name

---

La précédente est .Count - 1

Par contre, si tes feuilles peuvent être déplacées et que tu doives trouver les 2 dernières créées, ça prendrait peut-être un code comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim I As Long Dim DerniereFeuille As String, AvantDerniere As String   For I = 1 To Sheets.Count If Right(Sheets(I).CodeName, Len(Sheets(I).CodeName) - 5) = CStr(Sheets.Count) Then DerniereFeuille = Sheets(I).Name ElseIf Right(Sheets(I).CodeName, Len(Sheets(I).CodeName) - 5) = CStr(Sheets.Count - 1) Then AvantDerniere = Sheets(I).Name End If Next MsgBox DerniereFeuille & vbCrLf & AvantDerniere

---

Merci Parmi pour ta réponse.
Mes feuilles sont toujours les deux dernières et je suis ok avec .count et .count-1. Ce que je n'arrive pas à faire est le codage de ma fonction rechercheV avec Vlookup du style:
cells(i,24).value = worksheetfunction.vlookup(.........) de manière à ce que cela fonctionne à chaque fois que je rajouterai une feuille!

Tu préfères inscrire une valeur ou une formule ferait l'affaire ?

une formule ferait l'affaire je pense!
merci

Si j'ai bien compris la formule, ceci devrait faire l'affaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Formule() Dim shSource As Worksheet, shDest As Worksheet Dim LigneSource As Long, LigneDest As Long   Set shSource = Sheets(Sheets.Count - 1) Set shDest = Sheets(Sheets.Count)   LigneSource = shSource.Cells(Rows.Count, "H").End(xlUp).Row LigneDest = shDest.Cells(Rows.Count, "H").End(xlUp).Row   shDest.Range("X2:X" & LigneDest).Formula = "=VLOOKUP(H2," & shSource.Name & "!$H$1:$T$" & LigneSource & ",13,FALSE)"   End Sub

---

Je te remercie d'abord pour ta réponse rapide mais je rencontre un petit problème :
- Pourquoi lorsque je lance le calcul, une boite de dialogue apparaît me demandant:" mettre à jour les valeurs : 15"
- Pourquoi le résultat dans les cellules est "#Nom?"?

je ne comprend pas car lorsque je sélectionne mes celulles, c'est la bonne formule qui apparaît!!

Une idée?

#NOM! signifie que la formule n'est pas reconnue...
As-tu changé quelque chose dans mon bout de code ?
Tu pourrais réessayer en changeant cette partie et voir ce que ça donne (?)

Code:

---

shDest.Range("X2:X" & LigneDest).FormulaLocal = "=RECHERCHEV(H2;" & shSource.Name & "!$H$1:$T$" & LigneSource & ";13;FAUX)"

---

Est-ce que ton séparateur par défaut (dans les formules) est le point-virgule ?

Non je n'ai rien changé dans ton bout de code. oui pour le point virgule comme séparateur par défaut. On dirait qu'il ne reconnaît pas la table matrice de la fonction rechercheV. Dans mon fichier, la feuille source s'appelle DECEMBRE 15 et ma feuille dest JANVIER 16 et une boite de dialogue me demande :"Mettre à jour les valeurs : 15".

J'ai essayé avec formula local mais ça ne change rien!

Effectivement, avec des espaces dans le nom des feuilles, il faut ajouter des apostrophes
Alors ceci devrait aller mieux...

Code:

---

shDest.Range("X2:X" & LigneDest).Formula = "=VLOOKUP(H2,'" & shSource.Name & "'!$H$1:$T$" & LigneSource & ",13,FALSE)"

---

Parfait ça fonctionne!
Merci beaucoup pour ton aide