Discussion :

[guillaume.dumoulin]

Bonjour,

Pour commencer, je voulais vous souhaiter de bonnes fêtes.


Explication :

J'ai trouvé un fichier Excel qui fonctionne comme une "caisse enregistreuse"
J'ai essayé de comprendre les différentes lignes de codes, certaines OK mais certaines c'est encore un mystère ... Bref.

A chaque nouvel article que je crée, je vais écrire les quelques lignes de code dans Visual Basic afin de créer la macro de l'article en question

Exemple : Je vends le Coca, 1,5 €. Je créé un macro "Coca". Puis j'affecte la macro à une image.

Voici la macro en question

Code :

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

1
2
3
4
5
Sub Coca()
    lig = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(lig, 1) = "Coca"
    Cells(lig, 2) = 1.5
End Sub

Ce que je voudrais mettre en place :
Je voudrais créer un USF qui me demande : nom du nouvel article, puis le prix.
Une fois que je valide l'USF, la macro se créé.
Et j'affecterai moi-même la macro à une image


Ce que j'ai déjà fait :
J'ai créé l'USF "Article"
il s'ouvre quand je clique sur le Bouton "Nouvel Article"
Je peux y rentrer le nom et le prix.


Mais après, je sèche un peu ...


Ci joint: mon fichier Excel


Merci de m'avoir lu et pour l'aide.


Cordialement,
Guillaume

[Patrice740]

Bonjour,

Tu trouveras dans ce tuto la méthode pour créer une macro par macro :
http://silkyroad.developpez.com/VBA/VisualBasicEditor/

[guillaume.dumoulin]

Rebonjour,

Alors, j'ai lu le lien (en tout cas les parties qui me semblaient répondre à mon problème)


voilà ce que j'ai écrit

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
Private Sub CommandButton1_Click()
 
    Dim Wb As Workbook
    Dim X As Integer
 
 With VBComp.Module9
        X = .CountOfLines
        .InsertLines X + 1, "Sub TextBox2()"
        .InsertLines X + 2, "lig = Cells(Rows.Count, 1).End(xlUp).Row + 1"
        .InsertLines X + 3, "Cells(lig, 1) = TextBox2"
        .InsertLines X + 4, "Cells(lig, 2) = TextBox4"
        .InsertLines X + 5, "End Sub"
 
    End With
        Article.Hide
End Sub

Donc j'ai mis un CommandButton1 dans l'USF

Puis j'ai vu un petit paragraphe pour l'ajoute d'une macro dans un module
Alors j'ai essayé.

Ça coince à "With VBComp.Module9" (Vu que je veux que la macro soit écrite dans le Module9)


Après pour la ligne 1, 3 et 4, est ce que cela va bien prendre ce que j'ai rentré dans les TextBox2 et TextBox4 ?


Je suis sur la bonne piste ?
J'ai lu le bon paragraphe ?


Cordialement,
Guillaume

[Philippe Tulliez]

Bonjour,
A la lecture de ta question et si je me réfère à l'exemple que tu as donné, je me pose la question pour laquelle tu souhaites créer une procédure (macro) par type d'article ?
Si tu as une centaine d'articles, de références ? vas-tu créer une centaine de procédures ?
Alors qu'avec une simple procédure ayant deux arguments, tu pourrais obtenir le même résultat ?

[unparia]

Bonjour Philippe

Je me demandais qui allait enfin en faire la remarque.

[guillaume.dumoulin]

Bonjour,
A la lecture de ta question et si je me réfère à l'exemple que tu as donné, je me pose la question pour laquelle tu souhaites créer une procédure (macro) par type d'article ?
Si tu as une centaine d'articles, de références ? vas-tu créer une centaine de procédures ?
Alors qu'avec une simple procédure ayant deux arguments, tu pourrais obtenir le même résultat ?

Dans ma tête

Avec un USF indiquant le nom de l'article et le prix, je pourrai alors faire des dizaines et dizaines d'articles, cela me semblait être la "méthode" la plus simple pour moi vu que je comprennais ce que je devais faire et ou je devais aller
.
Même si cela alourdi grandement Excel en créant des centaines de Macro effectivement ...


Je suis preneur de toute idée.

[Philippe Tulliez]

Bonjour,

cela me semblait être la "méthode" la plus simple pour moi vu que je comprennais ce que je devais faire et ou je devais aller

Si tu ne sais pas ce que tu dois faire, il serait plus intéressant de commencer par expliquer en détail ce que tu souhaites faire et avec quels éléments de base.

Tu commences par

J'ai trouvé un fichier Excel qui fonctionne comme une "caisse enregistreuse"

et tu ajoutes

J'ai essayé de comprendre les différentes lignes de codes, certaines OK mais certaines c'est encore un mystère ... Bref.

Je suppose que tu n'as pas trouvé ce classeur dans une poubelle ?
As-tu posé la question à celui qui a créé ce classeur ?

De plus, si tu débutes en VBA et que tu t'attaques déjà à la création de code de procédures, tu commences mal.
Juste pour ton information; en vingt ans de pratique en VBA, je n'ai jamais eu besoin de créer dynamiquement du code.