impression autorisée seulement si cellule identiques

[belaubre]

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]

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]

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

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

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]

Bonjour Bruno

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]

Parfait, merci, je tester,

 

[belaubre]

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

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]

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]

Dé

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]

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]

Re

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

 

[youky(BJ)]

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

 

[belaubre]

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

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