Si SOMME=0 Résolu

Question

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


Configuration: Windows / Firefox 60.0

M-12 · Answer

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 SubEnd Sub

jean300 · Answer

Bonjour M-12
Je te remercie pour ta gentillesse à me répondre, c'est parfait
Bon dimanche

Si SOMME=0

2 réponses

Discussions similaires

Newsletters