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.
Avec mes remerciements anticipés.
😕oublié le fichier
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 FunctionAvec mes remerciements anticipés.
😕oublié le fichier
Dernière édition: