Application.Dialogs

breeze · 20 Février 2010

Bonjour a tous
J'utilise la macro suivante dans un fichier
Application.Dialogs(xlDialogPrinterSetup).Show
If Not Application.Dialogs(xlDialogPrinterSetup).Show Then Exit Sub
Range("b1").Select
If Range("z1").Value = 1 Then
impressiondeslistes
ElseIf Range("z1").Value = 2 Then
impressiondesdiagr
Else
impressiondesresultats
End Iflise dans un fichier cette macro

Elle fonctionne bien sauf que quand la boite apparait je dois double cliquer pour que ça fonctionne. J'aimerais n'avoir qu'a faire un simple clic.
Est-ce possible

Merci

Mytå · 21 Février 2010

Re : Application.Dialogs

Salut le forum

Utilise une variable pour la vérification

Code:

Sub Impression()
    Dim Reponse As Boolean
    
Reponse = Application.Dialogs(xlDialogPrinterSetup).Show

If Reponse = "False" Then Exit Sub
    Range("b1").Select
        If Range("z1").Value = 1 Then
            MsgBox "impressiondeslistes"
        ElseIf Range("z1").Value = 2 Then
            MsgBox "impressiondesdiagr"
        Else
            MsgBox "impressiondesresultats"
        End If
End Sub

Mytå

Application.Dialogs

breeze

XLDnaute Occasionnel

Mytå

XLDnaute Occasionnel

Discussions similaires

Application.Dialogs

breeze

XLDnaute Occasionnel

Mytå

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency