Recherche valeur sans la depacer

[capricorne68]

Bonjour à tous les excellents ,
Je recherche la formule de recherche , me permettant de trouver une valeur dans un tableau exemple
100. Janvier
200. Février
250. Mars
450. Avril
664. Mai


Dans mon tableau j'ai la valeur de 10 et la valeur à trouve est janvier
200. ´´. Février
451. ´´. Mai
Voilà les résultats que je souhaite avoir , j'ai déjà essayer avec index équivalent , mais je reste bloquer .
Merci à bientôt

 

[Chris401]

Bonjour

Merci de joindre ton fichier

 

[capricorne68]

voici un exemple ,
je n'arrive pas a automatiser le mois .

 

[Chris401]

Re

Un essai :

 

[mapomme]

Bonjour à tous,

Un essai en VBA.

Il faut simplement dans le module de code de la feuille "recap" indiquer l'adresse de la cellule de début du tableau résultat dans la constante CellBase.

Code dans le module de la feuille "recap":

Public Sub compil()
Const cellBase = "b14"     'cellCible est l'adresse de la cellule
                           'de départ des résultats sur la feuille "recap"
Dim iRecap&, i&, nlig&, tablo, Base As Range, cible As Range, n&

   Application.ScreenUpdating = False
   iRecap = Worksheets("recap").Index
   Set Base = Worksheets("recap").Range(cellBase)
   Set cible = Worksheets("recap").Range(cellBase)
   For i = 1 To iRecap - 1
      With Worksheets(i)
         nlig = .Cells(Rows.Count, "a").End(xlUp).Row
         If nlig > 1 Then
            .Range("a2:a" & nlig).Copy cible
            cible.Offset(, 1).Resize(nlig - 1) = .Name
            cible.Offset(, 2).Resize(nlig - 1).Formula = "=ROW()+ 1 - " & cible.Row
            cible.Offset(, 2).Resize(nlig - 1) = cible.Offset(, 2).Resize(nlig - 1).Value
            cible.Offset(, 3).Resize(nlig - 1).Formula = "=ROW()+ 1 - " & Base.Row
            cible.Offset(, 3).Resize(nlig - 1) = cible.Offset(, 3).Resize(nlig - 1).Value
            Set cible = cible.Offset(nlig - 1)
         End If
      End With
   Next i
   cible.Resize(Rows.Count - cible.Row + 1, 4).ClearContents
End Sub

Private Sub Worksheet_Activate()
   compil
End Sub

Code dans le module de ThisWorkbook:

Private Sub Workbook_Open()
Dim oldname
   oldname = LCase(ActiveSheet.Name)
   Worksheets("recap").Activate
   Worksheets("recap").compil
   If oldname <> "recap" Then Sheets(oldname).Select
End Sub

nota: La feuille recap doit se trouver juste après les deuilles 1 à n des mois.

 

[capricorne68]

merci chris et mapomme pour vos réponse ,
celle de chris me convient parfaitement .
en faite j'ai mal défini mes plages à cause de cela ça n'a pas marche .il fallait les plages de 0 à 10 , de 11 à .......

en tout cas merci beaucoup