Discussion :

[jphflo]

Bonjour à tous,

Voici une macro que j’ai récupérer sur un forum. Elle permet de rechercher une feuille dans un classeur en fonction de la valeur inscrite dans la cellule A1.
Malheureusement elle ne fonctionne pas lorsque le nom des feuilles et exclusivement constitué de chiffres.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Cherche_Feuille()
 
For Each Onglet In Worksheets
If Onglet.Name = Range("A1") Then
Onglet.Select
Exit Sub
End If
Next
MsgBox "Feuille non trouvée"
 
End Sub

Y aurait-il une âme charitable pour me donner un coup de main afin de la rendre totalement polyvalente.
Merci.

jphflo

[gFZT82]

Bonsoir,

Une solution

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
Sub Cherche_Feuille()
    For Each Onglet In Worksheets
        If IsNumeric(Onglet.Name) And IsNumeric(Range("A1")) Then
            If CInt(Onglet.Name) = CInt(Range("A1")) Then
                Onglet.Select
                Exit Sub
            End If
        Else
            If Trim(Onglet.Name) = Trim(Range("A1")) Then
                Onglet.Select
                Exit Sub
            End If
        End If
    Next
    MsgBox "Feuille non trouvée"
End Sub

Cordialement.

[jphflo]

Merci gFZT82,

Ta macro fonctionne sans problème.
Afin de mieux comprendre, peux-tu me donner quelques explications sur son fonctionnement.

Bien à toi.

jphflo

[gFZT82]

Dans ce code, on cherche à identifier les valeurs assimilables à un nombre et celles considérées comme un texte, le but du jeu étant d’obtenir des valeurs pour le nom de feuille et la cellule A1 qui soient comparables.
Avec la fonction IsNumeric, on vérifie tout d’abord si le nom de la feuille et la valeur de A1 peuvent prendre la valeur d'un nombre.
Si c’est le cas, on convertit le nom de la feuille et la valeur A1 en nombres entiers avec la fonction CInt et on les compare. En cas d’égalité, on sélectionne la feuille correspondant à ce nombre puis on sort de la procédure.
Si ce n’est pas le cas, le nom de la feuille et la valeur A1 sont alors considérés comme des textes. Avant de les comparer, on prend juste la précaution de supprimer les espaces avant et après le texte avec la fonction Trim.

Cordialement.

[jphflo]

Bonjour gFZT82,

Merci pour tes explications, celle-ci sont limpides. J’avoue que hier, j’ai fais un simple copier coller de ta macro sans comprendre son fonctionnement.
Maintenant c’est plus claire, je me coucherai moins bête ce soir.

Cordialement

jphflo