EXCEL : comment nommer 400 onglets automatiquement ??? - VB/VBA/VBS - Programmation
Marsh Posté le 06-11-2005 à 22:34:15
Salut,
Voilà ce que je te propose (c' est peut être pas du top, mais ça devrait convenir) :
Range("A1" ).Select 'Selection de la 1er cellule de la colonne A
Dim cpt As Integer
cpt = 1
Do
DoEvents 'Te permet en cas de bug d' arrêter la macro
SendKeys "{Down}", True 'Descend d' une cellule en partant de A1
A = A + 1
Sheets(A).Name = ActiveCell 'La feuille A porte pour nom le contenu de la celllule
If A = 400 Then 'Si A = 400, la boucle s' arrête
cpt = cpt - 1
End If
Loop Until cpt = 0
Tu peux aussi rajouter ça :
On Error GoTo 1 ' A placer dans ou au avant la boucle
1 MsgBox "Il est impossible de nommer la feuille" & A & ". Vérifier que le contenu de la cellule n' est pas nul."
' Si une erreur est intervenu, un message indique le numéro de la feuille
Est -ce que ça correspond à ce que tu voulais ?
Marsh Posté le 06-11-2005 à 22:58:48
Merci.
J'essaie dès demain au boulot et je dis si c'est bon (je croise les doigts)
Par contre je crois qu'il faut marquer "sub" au début et "end sub" à la fin de la macro, c'est bien ça ?
j'ai hâte d'essayer (bonjour le temps gagné)
Marsh Posté le 07-11-2005 à 01:42:24
Salut,
Oui, c' est ça. Mais je te conseille d' insérer le code dans un objet.
(Un Commandbutton par exemple)
Aurevoir
Marsh Posté le 07-11-2005 à 21:18:08
Merci beaucoup Greg !!!
C'est fait ! J'ai du juste decaler ma liste d'une cellule vers le bas car la macro commence a A+1 soit A2 ...
Super. Je te solliciterai peut-etre de nouveau
Marsh Posté le 06-11-2005 à 21:28:17
Bonjour,
Voilà je voudrais savoir s'il y a une possibilité dans Excel de nommer 400 onglets (feuil1, feuil2, feuil3 ...) d'après une liste établie de noms
(qui pourrait etre sur la feuille 1 colonne 1 par exemple) ??? Parce que me les faire à la main, cela ne m'enchante pas vraiment ...
Je précise que je ne connais pas du tout le langage VB, et je suis vraiment trop pressé pour me plonger immédiatement dans les bouquins
Merci de vos tuyaux
PS: je suis nul mais j'ai quand meme créé mes 400 onglets LoL