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

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 ?

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é)

Salut,  
 
Oui, c' est ça. Mais je te conseille d' insérer le code dans un objet.
(Un Commandbutton par exemple)
 
Aurevoir

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