Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2192 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Création de feuille en masse à renomer sous VB

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Création de feuille en masse à renomer sous VB

n°1874020
Fouinette8​5
Posté le 16-04-2009 à 17:48:08  profilanswer
 

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

mood
Publicité
Posté le 16-04-2009 à 17:48:08  profilanswer
 

n°1874080
kiki29
Posté le 16-04-2009 à 19:27:30  profilanswer
 

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


Message édité par kiki29 le 16-04-2009 à 19:29:13
n°1874165
Fouinette8​5
Posté le 17-04-2009 à 08:59:14  profilanswer
 

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 :p

n°1874512
kiki29
Posté le 17-04-2009 à 18:04:27  profilanswer
 

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

n°1875042
Fouinette8​5
Posté le 20-04-2009 à 09:39:44  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Création de feuille en masse à renomer sous VB

 

Sujets relatifs
[Creation d'un Shell] Simuler un environ avec env -iCréation macro VBA - Problème tordu
licence VB 6.0 proCreation de tableau
Problème macro propriétés masse SolidWorksProbleme BATCH création de menu
Aide pour création menu javascript / CSSInterfacage C/Fortran sous VB .Net
Creation d'une array recursiveGestion de fichiers Excel/VB
Plus de sujets relatifs à : Création de feuille en masse à renomer sous VB


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR