Réponse acceptée !
Tu peux faire cela assez simplement ;)
le principe ::
On fait une boucle demandant de passer sur chaque controle de la feuille, puis on regarde si le type du controle est de type checkbox si oui on fait l'action demandé (en l'occurence on va incrémenter un compteur!)
donc on va faire ca dans un bouton voila le code ::
Dim Ctrl As Control
Dim Cmp As Integer
Cmp = 0
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is CheckBox Then Cmp = Cmp + 1
Next
MsgBox "Il y'a " & Cmp & " checkbox" & IIf(Cmp > 1, "s", "") & " sur votre feuille"
|
main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x
=0;x++<84;putchar(" .:-;!/>)|&IH%*#"[k&15]))for(i=k=r=0;
j=r*r-i*i-2+x/25,i=2*r*i+y/10,j*j+i*i<11&&k++<111;r=j);}
# GEFF
