Discussion :

[BOUJ08]

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!

[parmi]

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 :

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

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 :

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

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

[BOUJ08]

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!

[parmi]

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

[BOUJ08]

une formule ferait l'affaire je pense!
merci

[parmi]

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

Code :

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

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