Si SOMME=0

Résolu/Fermé
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 2 juin 2018 à 22:05
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 3 juin 2018 à 08:16
Bonjour,
Je fais la somme de 3 colonnes avec l'enregistreur ce qui donne :
ActiveCell.FormulaR1C1 = "=SUM(C[-10]:C[-8])"
Ce que je voudrais maintenant, c'est que si la somme est égale à 0
ça affiche : Msgbox "Rien à imprimer pour l'état demandé" Exit Sub
En vous remerciant


2 réponses

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
3 juin 2018 à 07:39
Bonjour

A tester
Sub test()
ActiveCell.FormulaR1C1 = "=SUM(C[-10]:C[-8])"
If ActiveCell.Value = 0 Then MsgBox "Rien à imprimer pour l'état demandé": Exit Sub
End Sub
0
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
3 juin 2018 à 08:16
Bonjour M-12
Je te remercie pour ta gentillesse à me répondre, c'est parfait
Bon dimanche
0