Imprimer des cellules sélectionnées

Version imprimable

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

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

imprimer des cellules

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:

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,

07/01/2014, 10h11
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:

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:

1 2 Private Sub CmdImprimer_Click() ActiveWindow.SelectedSheets.PrintArea = aire
Là maintenant je sèche :(
07/01/2014, 12h55
nibledispo

imprimer des cellules

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
08/01/2014, 09h58
rattus34

1 pièce(s) jointe(s)

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 !:D

imprimer des cellules

bonjour,

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

Code:

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,