msgBox - Userform avec instruction

Version imprimable

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:

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

31/03/2016, 13h23
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 ?
31/03/2016, 13h27
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 +

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

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:

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

31/03/2016, 19h20
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 ?
31/03/2016, 21h00
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
01/04/2016, 09h21
Igloobel

Citation:

Envoyé par boldair67

...
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 :mouarf:

tu dis

A+
01/04/2016, 09h33
cerede2000

@Igloobel : Enfin il s'agit ni plus ni moins que d'un module développé par un membre du forum....
Pour apprentissage @boldair67 il est plus pertinent de faire la chose lui même, surtout que ce n'est pas compliqué en soit :)
01/04/2016, 10h13
boldair67

1 pièce(s) jointe(s)

Merci pour votre aide, ca fonctionne enfin avec le module suivant

La msgboxex, me fait un peu peur quand même....