Si SOMME=0

Résolu
jean300 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   -  
jean300 Messages postés 374 Date d'inscription   Statut Membre Dernière intervention   -
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


A voir également:

2 réponses

M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
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   Statut Membre Dernière intervention   14
 
Bonjour M-12
Je te remercie pour ta gentillesse à me répondre, c'est parfait
Bon dimanche
0