Bonjour,
J'aimerais savoir si on peut forcer la renumérotation des feuilles dans VBA.
Je me suis aperçu que je ne pouvais me fier au numéro de feuille dans VBA.
Merci beaucoup
Claire
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
michdenis
Bonjour Claire,
Tu peux utiliser ce type de macro pour attribuer le numéro des feuilles en vba
Attention, Si le numéro de tes feuilles est anarchique, exécute la macro 2 fois. la première fois A = A+500
la seconde fois A = A+1
Et ceci afin de t'assurer que la macro n'essaie pas d'attribuer un numéro déjà existant ... la procédure va planter !
'----------------------- Sub AjoutFeuille()
Dim Sh As Worksheet For Each Sh In Worksheets A = A + 1 ActiveWorkbook.VBProject.VBComponents(Sh.CodeName).Name = "Feuil" & A Next
End Sub '-----------------------
P.S. Le compteur se remet à zéro seulement après avoir fermé le classeur ... à sa réouverture...compteur = 0
Salutations!
"Claire" a écrit dans le message de news: Bonjour, J'aimerais savoir si on peut forcer la renumérotation des feuilles dans VBA. Je me suis aperçu que je ne pouvais me fier au numéro de feuille dans VBA. Merci beaucoup Claire
Bonjour Claire,
Tu peux utiliser ce type de macro pour attribuer le numéro des feuilles en vba
Attention, Si le numéro de tes feuilles est anarchique, exécute la macro 2 fois.
la première fois A = A+500
la seconde fois A = A+1
Et ceci afin de t'assurer que la macro n'essaie pas d'attribuer un numéro déjà existant ... la procédure va planter !
'-----------------------
Sub AjoutFeuille()
Dim Sh As Worksheet
For Each Sh In Worksheets
A = A + 1
ActiveWorkbook.VBProject.VBComponents(Sh.CodeName).Name = "Feuil" & A
Next
End Sub
'-----------------------
P.S. Le compteur se remet à zéro seulement après avoir fermé le classeur ... à sa réouverture...compteur = 0
Salutations!
"Claire" <smdaoust@videotron.ca> a écrit dans le message de news:uQbdLX0pEHA.3252@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'aimerais savoir si on peut forcer la renumérotation des feuilles dans VBA.
Je me suis aperçu que je ne pouvais me fier au numéro de feuille dans VBA.
Merci beaucoup
Claire
Tu peux utiliser ce type de macro pour attribuer le numéro des feuilles en vba
Attention, Si le numéro de tes feuilles est anarchique, exécute la macro 2 fois. la première fois A = A+500
la seconde fois A = A+1
Et ceci afin de t'assurer que la macro n'essaie pas d'attribuer un numéro déjà existant ... la procédure va planter !
'----------------------- Sub AjoutFeuille()
Dim Sh As Worksheet For Each Sh In Worksheets A = A + 1 ActiveWorkbook.VBProject.VBComponents(Sh.CodeName).Name = "Feuil" & A Next
End Sub '-----------------------
P.S. Le compteur se remet à zéro seulement après avoir fermé le classeur ... à sa réouverture...compteur = 0
Salutations!
"Claire" a écrit dans le message de news: Bonjour, J'aimerais savoir si on peut forcer la renumérotation des feuilles dans VBA. Je me suis aperçu que je ne pouvais me fier au numéro de feuille dans VBA. Merci beaucoup Claire
Claire
Bonjour Michdenis, J'essaie ta petite macro et voici ce que cela me donne:
"L'accès par programme au projet Visual Basic n'est pas fiable."
Ceci est une copie de la macro.... Sub AjoutFeuille()
Dim Sh As Worksheet For Each Sh In Worksheets A = A + 500 ActiveWorkbook.VBProject.VBComponents(Sh.CodeName).Name = "Feuil" & A Next
End Sub
Salut
Bonjour Michdenis,
J'essaie ta petite macro et voici ce que cela me donne:
"L'accès par programme au projet Visual Basic n'est pas fiable."
Ceci est une copie de la macro....
Sub AjoutFeuille()
Dim Sh As Worksheet
For Each Sh In Worksheets
A = A + 500
ActiveWorkbook.VBProject.VBComponents(Sh.CodeName).Name = "Feuil" & A
Next
