XL 2010 [RESOLU-Merci Dranreb]CodeName feuille via fonction

cathodique

XLDnaute Barbatruc
Bonjour,:)

Ce matin je me suis mis sur un tuto pour approfondir mes connaissances.
La macro doit renvoyer le code name des feuilles du classeur.

Dommage, le code plante.
Erreur 91 - "Variable objet ou variable de bloc with non définie"

Pas vraiment compris pourquoi. Merci de me venir en aide.
VB:
Option Explicit

Public Sub UseSheet()
    Dim sh As Worksheet
    Set sh = SheetFormCodeName("CodeName", ThisWorkbook)
    Debug.Print sh.Name  '**** plante ici
End Sub
Public Function SheetFormCodeName(Name As String, bk As Workbook) As Worksheet
    Dim sh As Worksheet
    For Each sh In bk.Worksheets
        If sh.CodeName = Name Then
            Set SheetFormCodeName = sh
            Exit For
        End If
    Next sh
End Function

Avec mes remerciements anticipés.

:confused:oublié le fichier
 

Pièces jointes

  • Exos tutos.xlsm
    15 KB · Affichages: 33
Dernière édition:

cathodique

XLDnaute Barbatruc
Merci beaucoup Dranreb:), tu viens à mon secours encore une fois.

Depuis le temps, j'aurai dû faire un effort pour améliorer mon anglais. Enfin au moins pour le vba.
C'est un tuto en anglais donc pas trop compris la littérature. Quand même, le nul que je suis.

Encore merci.
 

Statistiques des forums

Discussions
311 725
Messages
2 081 945
Membres
101 849
dernier inscrit
florentMIG