Discussion :

[rattus34]

salut à tous,
Depuis un formulaire j'imprime une facture ou un devis depuis cette commande vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CmdImprimer_Click()
 
Sheets("Devis_Facture").Select
If Range("AA4").Value = "NON" Then
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
    Range("AA4").Value = "OUI"
    ElseIf Sheets("Devis_Facture").PrintOut = True And Range("AA4").Value = "OUI" Then
        If MsgBox("Vous avez déjà lancé une impression. Désirez-vous en lancer une nouvelle ?", vbOKCancel, "Nouvelle impression !") = vbOK Then
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Else
        Exit Sub
    End If
End If
End Sub

Je voudrais faire évoluer cette commande comme suit :
En fonction de si c'est une facture ou un devis la zone à imprimer sera différente.
Pour commencer
Facture correspond à la valeur 1 et Devis à la valeur 2 cette valeur est affiché dans la cellule V8 de la feuil Devis_Facture j'avais. Je précise que ces valeurs n'apparaisse pas pour le moment sur le code ci-dessus
Donc pour facture je souhaiterai imprimer de la cellule A1 à T102 et pour Devis de A1 à T118.
Je n'ai pas beaucoup de connaissance en vba, merci de votre attention.

[nibledispo]

Bonjour,

Faute de précision, j'ai considéré que le devis et la facture se situe sur la feuille "devis_facture"

voir ce que cela donne, je n'ai pas fait d'essai.

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
 
Private Sub CmdImprimer_Click()
Dim aire As Range
Sheets("Devis_Facture").Activate
If Sheets("Devis_Facture").[V8] = 1 Then
       Set aire = Range("a1:t102").Address   'facture
Else
       Set aire = Range("a1:t118").Address  ' devis
End If
 
If Range("A4").Value = "NON" Then
    ActiveWindow.SelectedSheets.Printarea = aire
    Range("A4").Value = "OUI"
    ElseIf Sheets("Devis_Facture").PrintOut = True And Range("AA4").Value = "OUI" Then
        If MsgBox("Vous avez déjà lancé une impression. Désirez-vous en lancer une nouvelle ?", vbOKCancel, "Nouvelle impression !") = vbOK Then
            ActiveWindow.SelectedSheets.Printarea = aire
        Else
            Exit Sub
    End If
End If
End Sub

Cordialement,

[rattus34]

Merci de t'être penché sur mon problème.
Je me suis empressé de tester ta proposition. j'ai bien compris ton raisonnement et effectivement tout ce passe sur la feuille Devis_Facture.

Un premier problème se pose :
au click : message d'érreur -> Erreur de compilation, incompatibilité de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub CmdImprimer_Click()
Set aire = Range("A1:T102").Address

Je ne maîtrise pas la fonction exacte de .Address , mais par contre j'ai tenté de le remplacer par .Selected

L'erreur a évolué dans ce sens :
-> Erreur de compliation, Membre de méthode ou de données introuvable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub CmdImprimer_Click()
ActiveWindow.SelectedSheets.PrintArea = aire

Là maintenant je sèche

[nibledispo]

bonjour,

je n'ai pas fait attention mais "address" ne sert à rien. Il s'agit de définir un objet et range seul décrit l'objet (plage à imprimer).

si tu as un ficher sans données confidentielles que je puisse tester ce serait plus simple pour moi qui ne suis pas un spécialiste.

Cordialement

[rattus34]

Bonjour nibledispo,

Je te fais suivre ça en fin de journée, car il faut effectivement que je supprime toutes les données personnelles de ma base de données clients.

Merci à bientôt.

J'allais oublier, bonne et heureuse année 2014 à tous !

[nibledispo]

bonjour,

je viens de faire un essai avec ce code et il m'a sortie la facture ou le devis, difficile de savoir.

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
 
Private Sub CmdImprimer_Click()
Dim aire As Range
Sheets("Devis_Facture").Activate
If Sheets("Devis_Facture").[V8] = 1 Then
       Set aire = Range("a1:t102")   'facture
Else
       Set aire = Range("a1:t118")  ' devis
End If
 
If Range("A4").Value = "NON" Then
    ActiveWindow.PrintArea = aire
    Range("A4").Value = "OUI"
    ElseIf Sheets("Devis_Facture").PrintOut = True And Range("AA4").Value = "OUI" Then
        If MsgBox("Vous avez déjà lancé une impression. Désirez-vous en lancer une nouvelle ?", vbOKCancel, "Nouvelle impression !") = vbOK Then
            ActiveWindow.PrintArea = aire
        Else
            Exit Sub
    End If
End If
End Sub

Cordialement,