Bonjour,  
 
Je m'occupe de créer un logiciel de gestion de stock sous VB.  
J'ai besoin pour cela de créer 1 feuille par produit par mois.
Je voudrais que le nom de la feuille créer soit "n°du produit - Mois"
J'ai donc commencer un peu mais j'ai un problème avec les doubles boucles.  
Le code suivant supose la création préalable de 120 feuilles nommées Feuil1,Feuil2,etc....
S'il est possible de les créer et de les nommées directement c'est encore mieux.
Ce code me créer bien la première feuille mais ne passe pas à la suivante.
 
Sub Creation_de_feuille()
 
Dim cellule As Integer
Dim cellule2 As Integer
Dim moisEnLettre As String
Dim NameFeuille As String
Dim Feuil As String
Dim numeroProduit As String
Dim i As Integer
Dim x As Integer
 
 
'Création_de_feuille Macro
 
    For i = 1 To 12
        For x = 1 To 120
         
        cellule = i + 8
        cellule2 = i + 2
       
        'Récupération des mois
        moisEnLettre = Sheets("Parametres" ).Range("A" & cellule2).Value
       
        'Récupération des numéro de produit
        numeroProduit = Sheets("Tableau de données" ).Range("F" & cellule).Value
         
        'Création du nom de Feuille
        NameFeuille = numeroProduit & " - " & moisEnLettre
         
        Feuil = "Feuil" & x
         
        Sheets(NomFeuille).Select
        Sheets(NomFeuille).Name = NameFeuille
     
        Next x
    Next i
     
End Sub
 
 
Merci d'avance de votre aide

Salut, voir sur http://forum.hardware.fr/hfr/Progr [...] 2313_1.htm
les procédures GenererFeuilles , TriFeuilles et fonction NomFeuilleValide en adaptant le code

Je ne dois pas être très douée en adaptation de code alors ^^
j'avais vu cette page mais du coup je me retrouve avec  
"n° produit 1  - Janvier"
"n° produit 2 - Février"  
etc. alors que je veux  
"n° produit 1 - Janvier"; "n° produit 1 - Février"; etc.
"n° produit 2 - Janvier"; "n° produit 2 - Février"; etc.
 
Je travail dessus si vous avez de nouveau de l'aide à m'apporter c'est pas de refus

Salut, à priori  cela devrait convenir, voir sur http://cjoint.com/?ethRHjdka8

Un grand grand merci c'est tout à fait ce qu'il me fallais  
J'aurais surement besoin d'autre coup de main, la j'ai réussi à adapter le code nikel.