Discussion :

[k-eisti]

Bon jour a tous ,

j'ai un Deux petits souci avec mes macro :
le premier est que j'ai un userForm qui permet a l'utilasateur de créer de feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CommandButton1_Click()
Dim var As Integer
 var = TextBox1.Text
 'Call CopierDiacDynamic(Worksheets("Exemple"), Worksheets("EtatsDiacs"), var)
 Call miseAjourFeuille(Worksheets("EtatsDiac1"))
 Call CopierDiacDynamic2(Worksheets("Exemple"), Worksheets("EtatsDiac1"), var / 2)
 Call miseAjourFeuille(Worksheets("EtatsDiac2"))
 Call CopieFeuilles(Worksheets("EtatsDiac1"), Worksheets("EtatsDiac2"))
 End
End Sub

quand je valide les infos il fait apel plusieur fonctions il creer les feuilles et il ferme ansuite le UserForm .
pour que l'appli soit un peut plus professionnelle je veux que le UserForm se ferme avant qu'il commenece a créer les feuilles .

le 2ème problème c'est la création de Menu déroulant sous Word :

j'ai créer un menu déroulant sous word et il fonctione bien ; par contre je retruve le menu sur tous mes documents Word , et moi je veux appliquer ce Menu seulement sur un Document Précis
la macro est :

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
27
28
29
30
31
32
33
 
Sub CreationMenuGraphes2()
Set MonControl = CommandBars("Formatting").Controls _
    .Add(Type:=msoControlPopup)
    With MonControl
        .Caption = "Mise en forme des graphes"
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Ajouter la Signature"
                .OnAction = "AjoutSignature"
            End With
        Set MonMenu = Nothing
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Créer les Courriers"
                .OnAction = "CréerCourrriers"
            End With
        Set MonMenu = Nothing
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Barregraphe recettes"
                .OnAction = "Barregrapherecettes"
            End With
        Set MonMenu = Nothing
        Set MonMenu = MonControl.Controls.Add(msoControlButton)
            With MonMenu
                .Caption = "Camembert recettes"
                .OnAction = "CamembertDépensesAnnuelles"
            End With
        Set MonMenu = Nothing
    End With
    Set MonControl = Nothing
End Sub

Merci d'avance pour votre aide

[ouskel'n'or]

Je réponds d'abord à ça

quand je valide les infos il fait apel plusieur fonctions il creer les feuilles et il ferme ansuite le UserForm .
pour que l'appli soit un peut plus professionnelle je veux que le UserForm se ferme avant qu'il commenece a créer les feuilles .

As-tu essayé en mettant Me.hide avant de lancer la création des feuilles ? Ton userform sera masqué mais non déchargé. Une fois les feuilles crées, tu mets un DoEvents, pour laisser le temps au system de faire son travail, et ensuite tu mets Unload Me pour décharger l'userform.
Tu peux tester ?

Edit
Bon, je suppose que tu as placé ton menu en dernier dans la barre "Formatting". auquel cas, tu dois pouvoir le supprimer en faisant

Code :

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

1
2
    Application.CommandBars("Formatting").Controls _
    (Application.CommandBars("Formatting").Controls.count).Delete

Pas testé
A+

Testé, c'est ok.

[k-eisti]

Merci ouskel'n'or,

Désolé j'ai pas pu se rendre sur le FOrum Hière , je viens de testé

Code :

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

Me.hide

et sa marche bien c'est ce que je cherche , mais pour le DoEvents je ne connai pas la syntaxe . Peut tu me montrer comment sa s'applique ?


et pour le Menu OUi je peut le supprimer mais je veut l'appiliquer seulement a un seule Document et je ne trouve toujours pas la soulution

[ouskel'n'or]

La syntaxe de DoEvents est un peu compliquée... Tu as fait F1 ?
Je suppose donc que tu n'as pas l'aide en ligne...
Bon, je vais être gentil, essaie de mettre tout ça sur une ligne

Code :

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

DoEvents

Pour le menu, reûfléchis un peu. Tu le crées dans le doc qui t'intéresse et tu le supprimes du doc qui t'intéresse toujours, dès que le doc qui t'intéressait... t'intéresse plus
A+

[k-eisti]

c'est trop dificile a retenir tous ça

a ce que sa pose problème si je met pas DoEvents , car la macro tourbne plus vite sans DoEvents


et pour le Menu ta quelques propositions a me faire

Merci encor ouskel'n'or