Ciclo For per contare quanti CheckBox sono presenti nel Form

[templare77]

Ciao Anthony! Nel forum ho trovato il codice necessario per contare il numero di Listbox presenti nel foglio di lavoro. Vorrei fare la stessa cosa con i CheckBox, che però sono presenti in un Userform ipotetico. Non sono riuscito a farlo, in quanto il Form non ha le proprietà che trovo nel codice relativo al foglio di lavoro. Come potrei fare quindi per contare i CheckBox presenti in un Form? Grazie mille, ciao!

[alfrimpa]

Ciao templare

Prova con questa macro che poi dovrai adattare alle tue esigenze

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
Dim numchk As Integer
Dim chk As Control
For Each chk In Me.Controls
    If TypeName(chk) = "CheckBox" Then
        numchk = numchk + 1
    End If
Next chk
MsgBox numchk
End Sub

[templare77]

Grazie Alfrimpa. Va alla grande!