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

flodumur · 6 Mai 2020

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 · 6 Mai 2020

Bonsoir Flodumur,
En PJ une possibilité.

VB:

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

sylvanu · 6 Mai 2020

Bonsoir Flodumur,
En PJ une possibilité.

VB:

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 · 6 Mai 2020

Bonjour flodumur, sylvanu,

VB:

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 · 6 Mai 2020

Encore un grand merci à toi 🙂

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

flodumur

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

flodumur

XLDnaute Nouveau

Discussions similaires

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

flodumur

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

flodumur

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency