Test de l'existence d'un nom de feuille

[ivan34]

Bonjour,

Je n'arrive pas à faire tourner cette procédure

Sub CommandButton1_Click()
Dim C
On Error GoTo Erreur

For Each C In ThisWorkbook.Worksheets
If C.Value = Sheets("BD Matériel").Range("Matériel") Then
C.Activate
End If
Exit For
Next

Par avance merci de vos réponses

 

[Modeste]

Re : Test de l'existence d'un nom de feuille

Bonjour ivan34, le forum,

si la variable C est de type Worksheet, à quoi peut bien correspondre "C.Value" 😕😕
Peux-tu tester

Sub CommandButton1_Click()
Dim C
For Each C In ThisWorkbook.Worksheets
    If C.Name = Sheets("BD Matériel").Range("Matériel").Value Then
        C.Activate
        Exit For
    End If
Next
End Sub

... si le nom de la feuille cherchée est bien à comparer avec le contenu d'une cellule nommée "Matériel"!?

 

[RENAUDER]

Re : Test de l'existence d'un nom de feuille

Bonjour,

Tu recherches quoi, le nom, la feuille ou les deux.

 

[TempusFugit]

Re : Test de l'existence d'un nom de feuille

Bonjour


C correspond à une cellule ?
Si oui, il faudrait un Dim C As Range

Si c'est le nom d'une feuille, alors ce sera Dim C As Worksheet

 

[gilbert_RGI]

Re : Test de l'existence d'un nom de feuille

Comme ceci peut-être

Sub test()
    Dim C
    On Error Resume Next
    For Each C In Sheets
        If C.Name = Sheets("BD Matériel").Name Then
        Sheets("BD Matériel").Select
            [matériel].Activate
        End If
    Next
End Sub

😱

 

[ivan34]

Re : Test de l'existence d'un nom de feuille

Tout d'abord merci à tous,
Ma variable C est une sheet
Range("Matériel") représente ma colonne A2:A500
Donc Ma recherche que je veux faire est:
Je regarde sur toutes les feuilles de mon classeur si dans ma colonne de la feuille (BD Matériel) il y a le même nom

Merci

 

[Si...]

Re : Test de l'existence d'un nom de feuille

Salut

à tester

Sub CommandButton1_Click()
  Dim C As Worksheet, Est As Range
  For Each C In ThisWorkbook.Worksheets
    Set Est = Sheets("BD Matériel").Range("Matériel").Find(C.Name, , Lookat:=1)
    If Not Est Is Nothing Then
       C.Activate
       Exit Sub
    End If
  Next
  MsgBox "j'arrête.", , "N'y est pas,"
End Sub