Recherche dans une autre feuille du même classeur

Bonjour,

J'aimerai à partir de ma feuille nommée "1" faire une petite recherche dans une autre feuille nommée "mensuel1", pour cela j'ai pensé à utiliser le code suivant :

Sub Recup()
    Dim Plage As Range
    Dim NomFeuille As String
    Dim feuilleinitiale As String
    Dim tableau1()

    feuilleinitiale = CStr(Val(ActiveSheet.Name))

    With Worksheets(feuilleinitiale)
        'définie la plage a` recopier dans l'onglet de base
        Set Plage = .Range(.Cells(1, 1), .Cells(80, 40))
        tableau1 = Range("A4:P21")

    End With

    With Worksheets("mensuel1")

        For i = 7 To 20
            If Cells(6 + i, 2).Value = feuilleinitiale Then
                MsgBox ("on a trouvé le jours en question")
            End If
        Next i

    End With

End Sub

il ne fonctionne pas...

je vous joint le fichier en question

merci

Bonjour

Modifies ta macro

        For i = 7 To 37
            If .Cells(i, 2).Value = feuilleinitiale Then
                MsgBox ("on a trouvé le jours en question")
            End If
        Next i

merci ca fonctionne!

mais pourquoi fallait mettre le point avant le cells?

merci

Bonjour

Parce que tu utilises With Sheets(......) donc tous les relations avec doivent avoir ce point ( un peu pour dire je fais partie de .......)

Mais ce n'était pas la seule erreur