Discussion :

[robertpire]

Bonjour,
j' ai découvert les fonctions vba il y a quelques jours et je n'y comprends pas grand chose c'est pour cela que je fais cet appel au secours

je m' explique je dois informatiser le listing de production d'un coffret en y liant des fiches de test
pour être plus clair j' ai joins le fichier

j' ai un code mais celui ci ne prends en compte qu'une liste déjà existante pour créer autant de feuilles que de références.
alors que moi je creer une nouvelle reference a chaque fabrication de coffret

Pour moi le déroulé des opérations et la suivante
Je créé un nouveau N° de série qui est écrit en rouge dans une cellule de la colonne A de ma feuille « Liste »je fais un double clic , ça créé une nouvelle feuille en utilisant la feuille « Modèle »qui se renomme du nom de la cellule, en B4 de la feuille créé se reprends le n° de série , en C4 la date de création de la nouvelle feuille , je passe le n° de série sur la feuille « Liste » en noir quand la cellule C22 est complétée par «C».
J’espère avoir été assez clair, je joins le fichier.
Je vous remercie par avance de l’intérêt que vous portez à mon projet
Gilles

[BDA53]

Es-tu passé par la création de bouton de commande et de formulaire ?

[robertpire]

bonjour,
non je n' ai rien crée , pour moi le VBA est carrément flou j' ai pas mal cherché sur divers site sans trouver de solution

merci de ton interet

[BDA53]

D'accord. En VBA tu peux créer des boutons de commandes et des formulaires qui sont liées à du code VBA.

Peux-tu réexpliquer plus précisément ta demande ?

[Menhir]

pour être plus clair j' ai joins le fichier

http://www.developpez.net/forums/d84...s-discussions/
Tu devrais plutôt copier ton code.

[robertpire]

Bonjour menhir,

le code est dans le fichier que j' ai joins dans la macro non?

[Menhir]

Comme beaucoup ici, j'évite d'ouvrir les pièces jointes, surtout si elles peuvent contenir des macros (voir le lien mis dans mon message précédent).

[robertpire]

OK JE PENSAIS QUE C'ETAIT PLUS SIMPLE DE JOINDRE LE FICHIER COMPLET POUR LA COMPREHENSION

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub MACRO1()
 
 
Dim c As Range
 
    Application.ScreenUpdating = False
    'On crée les onglets qui sont listés à partir de la cellule
    'A2 de l'onglet nommé Liste
    Set c = Worksheets("Liste").Range("A2") 'cellule de départ
    Do Until IsEmpty(c)     'boucle tant que c est vide
 
        'on copie le modèle en dernier
        Worksheets("Modèle").Copy After:=Worksheets(ThisWorkbook.Sheets.Count)
 
        With Worksheets(ThisWorkbook.Sheets.Count) 'avec l'onglet créé
            .Name = c.Value     'on renomme
            'on remplit notre modèle comme on veut...
            .Range("B4") = c.Value
            .Range("C4") = Date
        End With
 
        Set c = c.Offset(1, 0)      'prochaine ligne
    Loop
 
    Application.ScreenUpdating = True
End Sub