impression autorisée seulement si cellule identiques

belaubre · 14 Juillet 2018

Bonjour à tous et à toutes,

Quel code pour traduire ceci :

Dans ma feuille excel nommée : CAISSE, si le montant dans cellule "F20" est différent de la cellule "M4", affiche un message "CALCUL INCORRECT : LES CELLULES F20 et M4 SONT DIFFÉRENTES" et refuser l'impression.

Mais si les cellules F20 et M4 sont identiques, alors imprimer.

Si vous pouviez m'aider, s'il vous plait.

Lone-wolf · 14 Juillet 2018

Bonjour belaubre et bienvenue sur XLD 🙂

Je ne saisi pas: si le montant dans cellule "F20" est différent de la cellule "M4"; pourquoi dans le message tu te réfère à la colonne O?? 🙄

belaubre · 14 Juillet 2018

Lone-wolf à dit:
Bonjour belaubre et bienvenue sur XLD 🙂

Je ne saisi pas: si le montant dans cellule "F20" est différent de la cellule "M4"; pourquoi dans le message tu te réfère à la colonne O?? 🙄

Salut,

Effectivement je me suis completement tromper, j'ai le cerveau qui fume désole ^^

J'ai apporter la correction dans ma question 😀

youky(BJ) · 14 Juillet 2018

Salut Lone-Wolf, bonjour tous
Moi j'ai vu comme ça...sans col O
Ce code est à mettre en Thisworkbook
Bruno

VB:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "CAISSE" Then Exit Sub
If [F20] <> [M4] Then
MsgBox "CALCUL INCORRECT :" & vbCr & "LES CELLULES 019 et 024 SONT DIFFÉRENTES"
Cancel = True 'annule impression
End If
End Sub

Lone-wolf · 14 Juillet 2018

Bonjour Bruno 🙂

VB:

Sub Impression()
Dim x&, plage As Range, f As Range
Dim m As Range, rw1, rw2

    Sheets("CAISSE").Activate
  
    With ActiveSheet
        x = .Range("a" & Rows.Count).End(xlUp).Row
        Set plage = .Range("a1:m" & x): Set f = .Range("f20"): Set m = .Range("m4")
        rw1 = Replace(f.Address, "$", ""): rw2 = Replace(m.Address, "$", "")
      
        If .Range("f20") <> .Range("m4") Then
            MsgBox "CALCUL INCORRECT : LES CELLULES " & rw1 & " et " & rw2 & " SONT DIFFÉRENTES.", , "ERREUR"
        Else
            .PageSetup.PrintArea = plage.Address
            '.PrintPreview  pour visualiser
            '.PrintOut      pour imprimer
        End If
    End With
End Sub

belaubre · 14 Juillet 2018

Parfait, merci, je tester,

belaubre · 14 Juillet 2018

Lone-wolf à dit:
Sub Impression()
Dim x&, plage As Range, f As Range
Dim m As Range, rw1, rw2

Sheets("CAISSE").Activate

With ActiveSheet
x = .Range("a" & Rows.Count).End(xlUp).Row
Set plage = .Range("a1😱" & x): Set f = .Range("f20"): Set m = .Range("m4")
rw1 = Replace(f.Address, "$", ""): rw2 = Replace(m.Address, "$", "")

If .Range("f20") <> .Range("m4") Then
MsgBox "CALCUL INCORRECT : LES CELLULES " & rw1 & " et " & rw2 & " SONT DIFFÉRENTES.", , "ERREUR"
Else
.PageSetup.PrintArea = plage.Address
'.PrintPreview pour visualiser
'.PrintOut pour imprimer
End If
End With
End Sub

Se code marche parfaitement, MERCI

J'ai pu l'intégrer à mon bouton raccourci.

Par contre si je fais, fichier --) imprimer,

Le message d'alerte ne se met pas et il est encore possible d'imprimer malgrès des montant différents entre F20 et M4 ? :O

Bizare

youky(BJ) · 14 Juillet 2018

Désolé Lone-wolf
Pour annuler l'impression une fois lancée il faut en passer par BeforePrint
Je conseil à Belaubre de regarder ma macro
Rectifier les cellules dans le MsgBox O19 & B24
Bruno

Lone-wolf · 14 Juillet 2018

Re belaubre

Faudrait savoir. Tu demande d'abord que la feuille ne soit pas imprimée et maintenant tu dit le contraire?? 😵
Pour imprimer depuis Fichier >Imprimer, il faudrait faire une autre macro, et là c'est une autre histoire.

@youky(BJ) : pourquoi annuler l'impression, si la condition est correcte?? 😵

belaubre · 14 Juillet 2018

Dé

Lone-wolf à dit:
Re belaubre

Faudrait savoir. Tu demande d'abord que la feuille ne soit pas imprimée et maintenant tu dit le contraire?? 😵
Pour imprimer depuis Fichier >Imprimer, il faudrait faire une macro qui agisse sur le bouton Imprimer, et là c'est une autre histoire.

@youky(BJ) : pourquoi annuler l'impression, si la condition est correcte?? 😵

Désolé je me suis peut etre mal exprimer :O

Alors si les montants F20 et M4 sont identiques, l'impression est autorisée
Et si ils sont différents, je veux qu'ils soit totalement bloqués, ou enventuellement autoriser avec mot de passe.

belaubre · 14 Juillet 2018

youky(BJ) à dit:
Désolé Lone-wolf
Pour annuler l'impression une fois lancée il faut en passer par BeforePrint
Je conseil à Belaubre de regarder ma macro
Rectifier les cellules dans le MsgBox O19 & B24
Bruno

Je viens de mettre la macro, à priori, ça ne marche pas, je regarde de plus près ce qui bloque et reviens vers vous

Lone-wolf · 14 Juillet 2018

Re

@belaubre: est-ce que le message box reste ou pas?

youky(BJ) · 14 Juillet 2018

J'annule l'impression si F20<>M4 +message sinon je laisse faire
Ici c'est Cancel=True qui annule l'impression
Bruno

belaubre · 14 Juillet 2018

Lone-wolf à dit:
Re

@belaubre: est-ce que le message box reste ou pas?

Tu veux dire quand je fais fichier --> impression ? Non plus aucun message ne s'affiche, la page s'imprime que les montant soit bon ou pas.

Par contre en passant par le bouton raccourcie que j'ai creer, pas de soucis, ta macro fonctionne parfaitement le message s'affiche, mais l'impression ne se lance plus 🙁

youky(BJ) · 14 Juillet 2018

Je joint mon fichier d'essai car je me sent comme Staple "invisible" auprès de l'ami belaubre
Bruno

impression autorisée seulement si cellule identiques

belaubre

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

belaubre

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

belaubre

XLDnaute Nouveau

belaubre

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

belaubre

XLDnaute Nouveau

belaubre

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

belaubre

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

impression autorisée seulement si cellule identiques

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency