Fonction FIND avec nom worksheet en variable

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:

---

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

Citation:

---

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.

Bonjour

Le code me parait correct à première vue.


Celui ci testé sur un classeur exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Test() Dim LigneManagers As Range Dim DernLigne As Long Dim Ws As Worksheet Dim i As Integer   Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets With Ws DernLigne = .Range("C" & .Rows.Count).End(xlUp).Row Set LigneManagers = .Range("C2:C30").Find("Managers", LookIn:=xlValues) If Not LigneManagers Is Nothing Then i = i + 1 Worksheets("Global").Cells(i, 1).Value = .Name Worksheets("Global").Cells(i, 5).Value = DernLigne Worksheets("Global").Cells(i, 2).Value = LigneManagers.Address End If End With Next Ws End Sub

---

Bonjour,
Voici un petit exemple de l'utilisation d'un argument typé comme un objet Worksheet. Cette procédure Affiche ou Masque la feuille définit par l'argument sht

Code:

---

1 2 3 4 5 6

Sub HideUnhideSheet(sht As Worksheet) With sht If .Visible = 2 Then .Visible = 0 .Visible = Not .Visible End With End Sub

---

La procédure pour le test. Il suffit de changer la valeur de la constante pour masquer ou afficher la feuille

Code:

---

1 2 3 4 5 6

Sub TestHideHunhideSheet() Const FileName As String = "Feuil1" Dim objSheet As Worksheet Set objSheet = ThisWorkbook.Worksheets(FileName) HideUnhideSheet objSheet End Sub

---

Merci bcp pour vos retours.

Effectivement avec le With Ws / End With, cela fonctionne parfaitement. J'ai du mal à comprendre pourquoi il le faut forcément mais pas grave, ça répond au besoin et c'est le principal.

Il me reste un autre point que je vais traiter en dehors de ce post .... la procédure prend tous mes ongets .... sauf un ! J'ai beau le renommer ou le déplacer, rien n'y fait. Je n'ai le retour que de 20 onglets sur 21 .... la magie de l'informatique !! :)

Peut être le dernier ne contient pas de manager dans la plage C2:C30

C'était effectivement ce genre d'erreur .... même au départ!
Mon premier onglet ne contient pas "Managers" ce qui renvoyait l'erreur '91'.
Ce n'est pas le With qui a résolu le problème (même si c'est plus propre) mais surtout le "If Not LigneManagers" si j'ai bien tout compris!!

Du coup .... plus d'erreur nul part.... MERCI ENCORE! :)