Discussion :

[manu_79370]

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.

[mercatog]

Bonjour

Le code me parait correct à première vue.


Celui ci testé sur un classeur exemple

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
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

[manu_79370]

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 !!

[mercatog]

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

[manu_79370]

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!

[Philippe Tulliez]

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 :

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

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 :

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

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