XL 2016 Message d'alerte "Sélectionnez au moins une case"

[flodumur]

Bonjour, je bloque sur le façon/méthode de réaliser ce que je cherche.
J'ai plusieurs cases à cocher et un bouton Refresh. Je veux que lorsque l'utilisateur clique sur le bouton refresh mais qu'aucune case n'a étécoché, qu'un message d'alerte s'affiche et surtout que le programme derrière ne se lance pas.

Je m'excuse d'avance pour mon code, je sais qu'il est faux mais je ne trouve pas de réponses à mes questions sur internet ..

Merci à vous

 

[sylvanu]

Bonsoir Flodumur,
En PJ une possibilité.

Sub Refresh()
    If Application.CountIf(Range("R1:R7"), "TRUE") = 0 Then
        MsgBox "Veuillez sélectionner au moins une case"
    Else
        MsgBox "Process"
    End If
End Sub

 

[job75]

Bonjour flodumur, sylvanu,

Sub Refresh()
If Not [OR(R1:R7)] Then MsgBox "Veuillez sélectionner au moins une case": Exit Sub
'---suite du code---
End Sub

A+

 

[flodumur]

Encore un grand merci à toi