Impression avec un bouton et la condition ou ( RESOLU )

[Bambi35]

Bonjour à tous
Actuellement je réalise un formulaire et j’aimerai mettre une condition (ou) pour l’impression.
Comment dans la macro intégrer la condition de (k22) si (Père ou Mère ou Tuteur alors impression DroitEnf et si (vide ou adulte) alors impression DroitAdul
Et comment lier un bouton de la page Présentation pour passer sur la page Inscription
Ci-joint le fichier
Merci encore à vous

 

[JCGL]

Re : Impression avec un bouton et la condition ou

Bonjour à tous,

J'ai supposé que la ligne 23 correspondait à la deuxième partie du formulaire.
J'ai posé Print.Preview pour les tests. A remplacer par Print.Out

A+ à tous

 

[Papou-net]

Re : Impression avec un bouton et la condition ou

Bonjour Bambi35, JC, le Forum,

Une manière un peu différente, avec une seule procédure:

Sub imprimer()
Dim Sh As Worksheet

If Range("A22") = "" Or Range("C22") = "" Or Range("D22") = "" Or Range("E22") = "" Or Range("F22") = "" Or Range("H22") = "" Or Range("J22") = "" Or Range("L22") = "" Then
  MsgBox ("Les zone indiquée (*)doivent être renseignées et cocher l'une des cases à cocher")
  Exit Sub
End If
With Feuil4
  If .Range("K22") = "" Or .Range("K22") = "Adulte" Then
    Set Sh = Feuil1
    Sh.PageSetup.PrintArea = "$A$1:$K$48"
    Else
    Set Sh = Feuil2
    Sh.PageSetup.PrintArea = "$A$1:$K$46"
  End If
End With
Application.ScreenUpdating = False
Sh.PrintPreview
'Sh.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub

Tout comme JC, j'ai prévu la prévisualisation avant impression pour les tests.

Cordialement.

 

[Bambi35]

Re : Impression avec un bouton et la condition ou

Bonjour JCGL

Merci pour ton retour c'est bien cela que je voulais
K22 Père / Mère /Tuteur Impression Fiche DroitEnf
et
K22 Adulte Impression Fiche DroitAdult
mais
quand la cellule k22 est vide il lance la fiche DroitEnf et NON DroitAdul

Quel est la modif de la macro pour eviter cela

Merci Encore
@+++

 

[JCGL]

Re : Impression avec un bouton et la condition ou

Bonjour à tous,
Salut Papou-Net,

Modifie cette partie dans le Module1 :

Sub Impression_1()
    If Range("K22") = "Adulte" Or Range("K22") = "" Then
        Call Imprimer_Adulte_1
    Else
        Call Imprimer_Enfant_1
    End If
End Sub


Sub Impression_2()
    If Range("K23") = "Adulte" Or Range("K23") = "" Then
        Call Imprimer_Adulte_2
    Else
        Call Imprimer_Enfant_2
    End If
End Sub

A+ à tous

 

[Bambi35]

Re : Impression avec un bouton et la condition ou

Bonjour JCGL et Papou-Net

Merci pour votre retour rapide
J'ai effectué les modifs et cela fonctionne très bien

Merci encore

Bambi35 @++++++

 

[Bambi35]

Re : Impression avec un bouton et la condition ou

Merci encore pour votre aide

@++++
Bambi35