Bonjour à tous !
J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour
obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des
habituelles Feuil1, Feuil2,ect .
Commet créer ma variable pour boucler dessus ?
Merci !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonsoir,
Ca laisse supposer que tu dois jouer avec codename et non pas name.
@+ FxM
DJ9B wrote:
Bonjour à tous ! J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des habituelles Feuil1, Feuil2,ect . Commet créer ma variable pour boucler dessus ? Merci !
Bonsoir,
Ca laisse supposer que tu dois jouer avec codename et non pas name.
@+
FxM
DJ9B wrote:
Bonjour à tous !
J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour
obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des
habituelles Feuil1, Feuil2,ect .
Commet créer ma variable pour boucler dessus ?
Merci !
Ca laisse supposer que tu dois jouer avec codename et non pas name.
@+ FxM
DJ9B wrote:
Bonjour à tous ! J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des habituelles Feuil1, Feuil2,ect . Commet créer ma variable pour boucler dessus ? Merci !
DJ9B
Salut FxM ! Quel syntaxe ? VBAProject.ThisWorkbook.CodeName("Sh" & a) ne fonctionne pas ;o( !
Ca laisse supposer que tu dois jouer avec codename et non pas name.
@+ FxM
DJ9B wrote:
Bonjour à tous ! J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des habituelles Feuil1, Feuil2,ect . Commet créer ma variable pour boucler dessus ? Merci !
Salut FxM !
Quel syntaxe ?
VBAProject.ThisWorkbook.CodeName("Sh" & a)
ne fonctionne pas ;o( !
"FxM" <fxmanceaux@chello.fr> a écrit dans le message de
news:OKmWjQv$DHA.2516@TK2MSFTNGP11.phx.gbl...
Bonsoir,
Ca laisse supposer que tu dois jouer avec codename et non pas name.
@+
FxM
DJ9B wrote:
Bonjour à tous !
J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour
obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des
habituelles Feuil1, Feuil2,ect .
Commet créer ma variable pour boucler dessus ?
Merci !
Ca laisse supposer que tu dois jouer avec codename et non pas name.
@+ FxM
DJ9B wrote:
Bonjour à tous ! J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des habituelles Feuil1, Feuil2,ect . Commet créer ma variable pour boucler dessus ? Merci !
michdenis
Bonjour DJ9B,
Ceci te permet de boucler sur les objets "Feuil" de ton projet... attention, tu ne peux pas atteindre les feuilles de calcul par cet objet. '---------------------- Dim A As Integer For A = 1 To Worksheets.Count MsgBox ThisWorkbook.VBProject.VBComponents("Feuil" & A).Name Next '----------------------
Si tu veux boucler sur les feuilles de calcul à partir des noms ("Name") des feuilles, tu peux le faire comme ceci :
Remplace "Feuil" par le "Préfixe" ( sh ou shspecial) que tu as données aux objets feuilles, La lettre A représente l'index ( 1 to x )
dans la procédure, le message t'affichera l'équivalent du nom réelle de l'onglet de la feuille de calcul.
Dim A As Integer For A = 1 To Worksheets.Count MsgBox Worksheets(ThisWorkbook.VBProject.VBComponents("Feuil" & A).Properties("Index")).Name Next
Et tu peux utiliser ceci pour avoir accès directement à la feuille de calcul à partir du nom de l'objet de la propriété Name de la feuille de calcul
Dim A As Integer Dim Sh As Worksheet For A = 1 To Worksheets.Count Set Sh = Worksheets(Worksheets(ThisWorkbook. _ VBProject.VBComponents("Feuil" & A). _ Properties("Index")).Name) With Sh MsgBox .Name .Range("A1") = 25 End With Next
Salutations!
"DJ9B" <*%enleve_moi_ça%* a écrit dans le message de news:uB$lEZu$ Bonjour à tous ! J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des habituelles Feuil1, Feuil2,ect . Commet créer ma variable pour boucler dessus ? Merci !
Ceci te permet de boucler sur les objets "Feuil" de ton projet... attention, tu ne peux pas atteindre les feuilles de
calcul par cet objet.
'----------------------
Dim A As Integer
For A = 1 To Worksheets.Count
MsgBox ThisWorkbook.VBProject.VBComponents("Feuil" & A).Name
Next
'----------------------
Si tu veux boucler sur les feuilles de calcul à partir des noms ("Name") des feuilles, tu peux le faire comme ceci :
Remplace "Feuil" par le "Préfixe" ( sh ou shspecial) que tu as données aux objets feuilles,
La lettre A représente l'index ( 1 to x )
dans la procédure, le message t'affichera l'équivalent du nom réelle de l'onglet de la feuille de calcul.
Dim A As Integer
For A = 1 To Worksheets.Count
MsgBox Worksheets(ThisWorkbook.VBProject.VBComponents("Feuil" & A).Properties("Index")).Name
Next
Et tu peux utiliser ceci pour avoir accès directement à la feuille de calcul à partir du nom de l'objet de la propriété
Name de la feuille de calcul
Dim A As Integer
Dim Sh As Worksheet
For A = 1 To Worksheets.Count
Set Sh = Worksheets(Worksheets(ThisWorkbook. _
VBProject.VBComponents("Feuil" & A). _
Properties("Index")).Name)
With Sh
MsgBox .Name
.Range("A1") = 25
End With
Next
Salutations!
"DJ9B" <*%enleve_moi_ça%*dj9b@free.fr> a écrit dans le message de news:uB$lEZu$DHA.220@TK2MSFTNGP09.phx.gbl...
Bonjour à tous !
J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour
obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des
habituelles Feuil1, Feuil2,ect .
Commet créer ma variable pour boucler dessus ?
Merci !
Ceci te permet de boucler sur les objets "Feuil" de ton projet... attention, tu ne peux pas atteindre les feuilles de calcul par cet objet. '---------------------- Dim A As Integer For A = 1 To Worksheets.Count MsgBox ThisWorkbook.VBProject.VBComponents("Feuil" & A).Name Next '----------------------
Si tu veux boucler sur les feuilles de calcul à partir des noms ("Name") des feuilles, tu peux le faire comme ceci :
Remplace "Feuil" par le "Préfixe" ( sh ou shspecial) que tu as données aux objets feuilles, La lettre A représente l'index ( 1 to x )
dans la procédure, le message t'affichera l'équivalent du nom réelle de l'onglet de la feuille de calcul.
Dim A As Integer For A = 1 To Worksheets.Count MsgBox Worksheets(ThisWorkbook.VBProject.VBComponents("Feuil" & A).Properties("Index")).Name Next
Et tu peux utiliser ceci pour avoir accès directement à la feuille de calcul à partir du nom de l'objet de la propriété Name de la feuille de calcul
Dim A As Integer Dim Sh As Worksheet For A = 1 To Worksheets.Count Set Sh = Worksheets(Worksheets(ThisWorkbook. _ VBProject.VBComponents("Feuil" & A). _ Properties("Index")).Name) With Sh MsgBox .Name .Range("A1") = 25 End With Next
Salutations!
"DJ9B" <*%enleve_moi_ça%* a écrit dans le message de news:uB$lEZu$ Bonjour à tous ! J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des habituelles Feuil1, Feuil2,ect . Commet créer ma variable pour boucler dessus ? Merci !
"michdenis" a écrit dans le message de news:e78SHfv$
Bonjour DJ9B,
Ceci te permet de boucler sur les objets "Feuil" de ton projet... attention, tu ne peux pas atteindre les feuilles de
calcul par cet objet. '---------------------- Dim A As Integer For A = 1 To Worksheets.Count MsgBox ThisWorkbook.VBProject.VBComponents("Feuil" & A).Name Next '----------------------
Si tu veux boucler sur les feuilles de calcul à partir des noms ("Name") des feuilles, tu peux le faire comme ceci :
Remplace "Feuil" par le "Préfixe" ( sh ou shspecial) que tu as données aux objets feuilles,
La lettre A représente l'index ( 1 to x )
dans la procédure, le message t'affichera l'équivalent du nom réelle de l'onglet de la feuille de calcul.
Dim A As Integer For A = 1 To Worksheets.Count MsgBox Worksheets(ThisWorkbook.VBProject.VBComponents("Feuil" & A).Properties("Index")).Name
Next
Et tu peux utiliser ceci pour avoir accès directement à la feuille de calcul à partir du nom de l'objet de la propriété
Name de la feuille de calcul
Dim A As Integer Dim Sh As Worksheet For A = 1 To Worksheets.Count Set Sh = Worksheets(Worksheets(ThisWorkbook. _ VBProject.VBComponents("Feuil" & A). _ Properties("Index")).Name) With Sh MsgBox .Name .Range("A1") = 25 End With Next
Salutations!
"DJ9B" <*%enleve_moi_ça%* a écrit dans le message de news:uB$lEZu$
Bonjour à tous ! J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des habituelles Feuil1, Feuil2,ect . Commet créer ma variable pour boucler dessus ? Merci !
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:e78SHfv$DHA.3536@tk2msftngp13.phx.gbl...
Bonjour DJ9B,
Ceci te permet de boucler sur les objets "Feuil" de ton projet...
attention, tu ne peux pas atteindre les feuilles de
calcul par cet objet.
'----------------------
Dim A As Integer
For A = 1 To Worksheets.Count
MsgBox ThisWorkbook.VBProject.VBComponents("Feuil" & A).Name
Next
'----------------------
Si tu veux boucler sur les feuilles de calcul à partir des noms ("Name")
des feuilles, tu peux le faire comme ceci :
Remplace "Feuil" par le "Préfixe" ( sh ou shspecial) que tu as données aux
objets feuilles,
La lettre A représente l'index ( 1 to x )
dans la procédure, le message t'affichera l'équivalent du nom réelle de
l'onglet de la feuille de calcul.
Dim A As Integer
For A = 1 To Worksheets.Count
MsgBox Worksheets(ThisWorkbook.VBProject.VBComponents("Feuil" &
A).Properties("Index")).Name
Next
Et tu peux utiliser ceci pour avoir accès directement à la feuille de
calcul à partir du nom de l'objet de la propriété
Name de la feuille de calcul
Dim A As Integer
Dim Sh As Worksheet
For A = 1 To Worksheets.Count
Set Sh = Worksheets(Worksheets(ThisWorkbook. _
VBProject.VBComponents("Feuil" & A). _
Properties("Index")).Name)
With Sh
MsgBox .Name
.Range("A1") = 25
End With
Next
Salutations!
"DJ9B" <*%enleve_moi_ça%*dj9b@free.fr> a écrit dans le message de
news:uB$lEZu$DHA.220@TK2MSFTNGP09.phx.gbl...
Bonjour à tous !
J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour
obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des
habituelles Feuil1, Feuil2,ect .
Commet créer ma variable pour boucler dessus ?
Merci !
"michdenis" a écrit dans le message de news:e78SHfv$
Bonjour DJ9B,
Ceci te permet de boucler sur les objets "Feuil" de ton projet... attention, tu ne peux pas atteindre les feuilles de
calcul par cet objet. '---------------------- Dim A As Integer For A = 1 To Worksheets.Count MsgBox ThisWorkbook.VBProject.VBComponents("Feuil" & A).Name Next '----------------------
Si tu veux boucler sur les feuilles de calcul à partir des noms ("Name") des feuilles, tu peux le faire comme ceci :
Remplace "Feuil" par le "Préfixe" ( sh ou shspecial) que tu as données aux objets feuilles,
La lettre A représente l'index ( 1 to x )
dans la procédure, le message t'affichera l'équivalent du nom réelle de l'onglet de la feuille de calcul.
Dim A As Integer For A = 1 To Worksheets.Count MsgBox Worksheets(ThisWorkbook.VBProject.VBComponents("Feuil" & A).Properties("Index")).Name
Next
Et tu peux utiliser ceci pour avoir accès directement à la feuille de calcul à partir du nom de l'objet de la propriété
Name de la feuille de calcul
Dim A As Integer Dim Sh As Worksheet For A = 1 To Worksheets.Count Set Sh = Worksheets(Worksheets(ThisWorkbook. _ VBProject.VBComponents("Feuil" & A). _ Properties("Index")).Name) With Sh MsgBox .Name .Range("A1") = 25 End With Next
Salutations!
"DJ9B" <*%enleve_moi_ça%* a écrit dans le message de news:uB$lEZu$
Bonjour à tous ! J'ai renommé les feuilles d'un classeur ( non pas leurs onglets ) pour obtenir Sh1, Sh2, etc et ShSpecial1, ShSpecial2, etc à la place des habituelles Feuil1, Feuil2,ect . Commet créer ma variable pour boucler dessus ? Merci !
