Discussion :

[boldair67]

Bonjour,

J'ai beau chercher et je ne trouve pas la solution à mon problème. Je sais même pas par ou commencer.

Dans les grandes lignes, j'ai code qui execute une série d'action.
Arrive un moment ou j'ai mit un MSGBOX en place, OUI, NON, ANNULER.

Par contre il me faudrait un 4eme bouton avec IMPRIMER
Merde MSGBOX me propose que 3 actions. Donc j'ai crée un USERFORM personnalisé.

Mais comment mettre mes fonctions dans cet USF voir BOUTONS
CODE DES BOUTONS

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
Option Explicit
 
Public Sub cmd1_Click()
     xlWba.Close Savechanges:=True
     xlWb.Activate
     Cells(x + 2, 16) = Ligneinsertion
     Unload USF1
End Sub
 
Private Sub cmd2_Click()
    Me.Hide
    Feuil1.PrintPreview
    xlWba.Close Savechanges:=True
    Unload USF1
End Sub
 
Private Sub cmd3_Click()
    xlWba.Close Savechanges:=False
    Unload USF1
End Sub
 
Private Sub cmd4_Click()
     xlWba.Close Savechanges:=False
     Exit Sub
     Unload USF1
End Sub

Merci pour votre aide, ou du moment une piste pour réussir

[cerede2000]

Bonjour à toi,

Je ne comprends pas....
Le code que tu as mis me semble correcte dans rentrer dans le détails de ce qu'il fait.

Tu as 4 méthodes pour 4 event click de tes boutons.
Si ce code est dans ton code USF c'est ok.

Ou coince tu ?

[Igloobel]

Bonjour,

Bon alors pour les userforms je te conseille ces tutos là

http://silkyroad.developpez.com/VBA/UserForm/

http://silkyroad.developpez.com/VBA/ControlesUserForm/


ceci dis je te conseille la lecture de ce tuto sur les MsgBox

http://fring.developpez.com/vba/excel/msgbox/

et comme stipulé ds le tuto, il existe des MsgBox étendu qui répond à ton problème

http://arkham46.developpez.com/artic...sgboxplus/doc/

tu dis
A +

[boldair67]

@ Igloobel: Merci pour tous ces liens. Lu et re-lu dans tous les sens.
Il doit me manquer la base de chez base

@Cerede2000: Oui, ces 4 boutons sont sur mon USF.
A chaque fois, il me dit "xlWba - variable non définie"

Je vais essayer d'etre plus clair
Mon code s'execute normalement - un bout du code

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
xlApp.Workbooks(KW).Activate
            With Sheets(druck)
            Range("A" & Ligneinsertion & "").Select
            ActiveCell.PasteSpecial xlPasteAllExceptBorders
            ActiveCell.PasteSpecial xlPasteValues
        End With
 
    End With
   '--------------------------------------------
   'Affichage de l'USF
   '--------------------------------------------
 
   USF1.Show
 
    'Select Case MsgBox("Änderung Speichern !!!", vbYesNoCancel + vbQuestion, "Was tun")
 
     '    Case vbYes
         'ActiveSheet.PageSetup.PrintArea = "A1:N" & Ligneinsertion & ""
      '   xlWba.Close Savechanges:=True
       '  xlWb.Activate
        ' Cells(x + 2, 16) = Ligneinsertion
 
        ' Case vbNo
        ' xlWba.Close Savechanges:=False
 
        ' Case vbCancel
        ' xlWba.Close Savechanges:=False
        ' Exit Sub
 
   ' End Select
 
     Set xlWba = Nothing

Dans l'ancien cas "là ou il y a les ' msgbox " j'étais limité à trois boutons
Donc il me faut 4 boutons, d'ou USF

Dans ce cas, il appel USF1

Qui est : Sur les boutons

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
Option Explicit
 
Public Sub cmd1_Click()
     xlWba.Close Savechanges:=True
     xlWb.Activate
     Cells(x + 2, 16) = Ligneinsertion
     Unload USF1
End Sub
 
Private Sub cmd2_Click()
    Me.Hide
    Feuil1.PrintPreview
    xlWba.Close Savechanges:=True
    Unload USF1
End Sub
 
Private Sub cmd3_Click()
    xlWba.Close Savechanges:=False
    Unload USF1
End Sub
 
Private Sub cmd4_Click()
     xlWba.Close Savechanges:=False
     Exit Sub
     Unload USF1
End Sub

Après une de ces 4 solutions, j'aimerai continuer ma boucle dans le code initial.

Mais là ca coince

En gros, mon USF est un msgbox de 4 boutons

[HopPopPop]

Bonsoir à tous,

Le problème de la variable xlWba est que sa portée est mal définie, sa déclaration devrait se situer en variable Public dans un Module tout en haut de ce dernier.
ensuite, dans le code de la procédure Cmd4, pourquoi coder une ligne "Exit Sub" avant le "Unload" alors qu'après il n'y a plus rien ?

[boldair67]

Merci pour la réponse, mais je sais pas comment definir xlWba autrement.
xlWba est dans un module =Excel Workbook A

En gros un module qui contient une boucle for / next
et l'appel de USF est dans la boucle.

Avec msgbox ca fonctionnait impec. Mais que trois boutons.

Je sèche complètement

Comment déclarer mon USF, ou mettre et comment mettre la procédure à suivre en cliquant sur :
Enregistrer, imprimer et enregistrer, ne pas enregistrer et annulé (Exit sub)
Les quatres boutons

[Igloobel]

...
Avec msgbox ca fonctionnait impec. Mais que trois boutons.

Je sèche complètement
...

C'est pourquoi je t'ai mis le lien concernant les : MsgBoxEx où on peut mettre 4 boutons

tu dis

A+