Application.Dialogs

[breeze]

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å]

Re : Application.Dialogs

Salut le forum

Utilise une variable pour la vérification

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å