XL 2010 Utiliser CodeName des feuilles

cp4

XLDnaute Barbatruc
Bonjour,

J'utilise cette écriture pour mettre le Name des feuilles dans un Array pour effectuer une boucle.
Je ne parviens pas à utilser le CodeName.
VB:
Sub Essai_CodeName
Dim coll As Object
'BdA et BdB sont les noms des feuilles'
'Leur CodeName sont respectivement ShA et ShB'
Set coll = Sheets(Array("BdA", "BdB"))
'comment utiliser les codnames--> ShA et ShB '
MsgBox coll.count
End Sub

Avec mes remerciements anticipés.

Bonne journée.
 
Solution
Re,
Vous pouvez mettre le code name avec ce type de code
Code:
Sub test()
    For n = 1 To Worksheets.Count
        wshn = Worksheets(1).CodeName
        If wshn = "Toto" Then
            'code
        End If
    Next n
End Sub
Serait plus simple d'utiliser les noms d'onglet
Je te remercie.
Désolé, j'ai oublié que j'avais ouvert la même discussion.
@Dranreb et @patricktoulon (que je salue;)) m'avaient donné la solution.
Je me fais encore plus vieux😞😟. Pour le partage, code ci-dessous
VB:
Sub Essai_CodeName()
   Dim Wsh  '/!\ Attention! déclaré en variant sinon le code plante (dim Wsh as worksheet)
   'BdA et BdB sont les noms des feuilles'
   'Leur CodeName sont respectivement ShA et ShB'
   For Each Wsh In...

Oneida

XLDnaute Impliqué
Re,
Vous pouvez mettre le code name avec ce type de code
Code:
Sub test()
    For n = 1 To Worksheets.Count
        wshn = Worksheets(1).CodeName
        If wshn = "Toto" Then
            'code
        End If
    Next n
End Sub
Serait plus simple d'utiliser les noms d'onglet
 

cp4

XLDnaute Barbatruc
Re,
Vous pouvez mettre le code name avec ce type de code
Code:
Sub test()
    For n = 1 To Worksheets.Count
        wshn = Worksheets(1).CodeName
        If wshn = "Toto" Then
            'code
        End If
    Next n
End Sub
Serait plus simple d'utiliser les noms d'onglet
Je te remercie.
Désolé, j'ai oublié que j'avais ouvert la même discussion.
@Dranreb et @patricktoulon (que je salue;)) m'avaient donné la solution.
Je me fais encore plus vieux😞😟. Pour le partage, code ci-dessous
VB:
Sub Essai_CodeName()
   Dim Wsh  '/!\ Attention! déclaré en variant sinon le code plante (dim Wsh as worksheet)
   'BdA et BdB sont les noms des feuilles'
   'Leur CodeName sont respectivement ShA et ShB'
   For Each Wsh In Array(ShA, ShB)
      With Wsh
         MsgBox .Name   'ici pour exécuter un code
      End With
   Next
End Sub

Encore merci. Bonne journée.
 

DoubleZero

XLDnaute Barbatruc
Bonjour à toutes et à tous,

Si j'ai bien compris la demande (code dont je ne sais plus la merveille réponse) :

Code:
Sub Codename_égale_nom_des_onglets()
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Dim o As Worksheet
On Error Resume Next
For Each o In Worksheets
o.Activate
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Codename).Name = ActiveSheet.Name
Next
On Error GoTo 0
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

A bientôt,

:):)
 

Discussions similaires

Statistiques des forums

Discussions
313 296
Messages
2 096 914
Membres
106 786
dernier inscrit
Mgordat