msgbox si toutes les checkbox sont vides

[zoulou08]

bonjour à tous,

j'ai un usf avec 11 checkbox nommees checkbox 1 à 11

je voudrais afficher une msgbox si aucune des cb sont selectionnees

je pense que cette formule marche mais il doit bien en avoir une avec une boucle plus simple

If CheckBox1 = False And CheckBox2 = False .....Then
MsgBox 'veuillez cocher une entrée'
End If

merci et surtout bon we à tous si vous faites le pont sinon...courage
😉

 

[G.David]

salut en live

i=0
for t=1 to 11
if controls('checkbox' & t= false then
 i=i+0
else
i=i+1
end if
next
if i=0 then 
msgbox msg
endif

Normalement
G.David

 

[sousou]

Bonjour

Voici un exemple qui test un userform ayant des checkbox
sur click dans le userform

J'espère que cela t'inspirera.


Private Sub UserForm_Click()
flag = 0
For Each i In Controls

If Left(i.Name, 8) = 'CheckBox' Then
If i = True Then flag = 1
End If

Next
If flag = 0 Then MsgBox 'erreur'
End Sub

 

[zoulou08]

je te remercie c 'est exactement ca (tu as oublie la derniere parenthese du controls, juste pour les autres lecteurs)

mais la je bloque un peu sur la suite de mon code

en fait, si les 11combox sont vides, on redemande d en choisir au moins une

si ensuite la feuille 'tdc' contient des lignes pleines alors on ouvre un nouveau fichier excel , on colle les donnees de la feuille 'tdc' et on enregistre dans un repertoire toto avec un nom genre moisannee_numero

mois, annee sont demande dans un usf au debut du code et numero dans un deuxieme usf (numero est le nom de chaque checkbox)

voila, merci encore pour ton aide

je n ai ecrit que ca

Private Sub CommandButton3_Click() 'bouton 'Ok du choix des depots'
Dim i As Byte
Dim t As Byte
i = 0

For t = 1 To 11
If Controls('checkbox' & t) = False Then
i = i + 0
Else
i = i + 1
End If
Next

If i = 0 Then
MsgBox 'veuillez choisir un depot ou exploiter les donnees au prealable'
UserForm2.RedoAction
End If

end sub

 

[G.David]

j'emploie de préférence exit sub pour annuler l'action du bouton

if i=0 then
msgbox msg
exit sub
else
sheets('tdc').select
'là je ne sais quelle ligne doivent etre testees
if range('a2') <>'' then
range('a1').end(xldown).select 'il y a surement une erreue de syntaxe mais je suis tj en live
selection.copy
paste ' a voir le copier coller avec l'enregistreur de macro

sur ce Bon Weekend
G.David