Apparition d'un message si rien n'est coché

Bonjour a tous

imprimer par tiroir userform4

fonctionne très bien si je choisi un tiroir

mais bloque si rien n'est coché

serait il possible

apparition d'un message

du style choisir un tiroir

coché

puis la macro continue

cordialement

aiglon74

re

ne pas tenir compte du texte page accueil

j'ai oublier de l'effacer

fichier test

cordialement

aiglon74

Bonjour

Modifie le début de la macro

'Action quand on clique sur le Bouton "Créer"
Private Sub CommandButton1_Click()
'--- Déclaration des variables
Dim I As Integer
Dim Feuille() As Variant
Dim NbFeuille As Integer

For I = 1 To 9
      If Me.Controls("CheckBox" & I) = True Then
        Exit For
      End If
    Next I
    If I = 10 Then
      MsgBox "Il faut choisir au moins 1 tiroir"
      Exit Sub
    End If

  '--- Impression des onglets sélectionnés
    For I = 1 To 9

bonsoir Banzai64

merci tout fonctionne

comme d'habitude efficacité rapidité génial

A+

aiglon74