Bonjour,

J'ai pas mal cherché avant de faire ce post, mais je n'ai pas trouvé la réponse à ma question.
Je tente d'utiliser la fonction FIND avec le nom du worksheet en paramètre et cela ne fonctionne pas. Si je le met "en dure", pas de souci.

Voici le code que j'utilise :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Test()
 
Dim Ws As Worksheet
Dim i As Integer
Dim LigneManagers As Range
Dim DernLigne As Long
 
Application.ScreenUpdating = False
i = 1
For Each Ws In ThisWorkbook.Worksheets
 
    DernLigne = Ws.Range("C" & Rows.Count).End(xlUp).Row
 
        ' Ligne qui fonctionne
    Set LigneManagers = Worksheets("Feuill1").Range("C2:C30").Find("Managers", LookIn:=xlValues)
 
        ' Ligne qui ne fonctionne pas
    Set LigneManagers = Ws.Range("C2:C30").Find("Managers", LookIn:=xlValues)
 
    Worksheets("Global").Cells(i, 1).Value = Ws.Name
    Worksheets("Global").Cells(i, 5).Value = DernLigne
    Worksheets("Global").Cells(i, 2).Value = LigneManagers.Address
i = i + 1
Next Ws
End Sub
Avec le Ws.Range("C2:C30").Find("Managers", LookIn:=xlValues), je récupère un
Erreur d'execution '91' ; Variable objet ou variable de bloc With non définie
et je ne vois pas d'où cela peut venir.

Je suis très loin d'être un expert en VBA alors merci d'être indulgent !
Et merci d'avance pour les retours permettant de corriger le pb.