Boucle avec checkbox(i) dans userform VBA

Fermé

mister_t9 - Modifié par mister_t9 le 17/12/2011 à 00:48
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 17 déc. 2011 à 22:29

Bonjour,

je souhaite faire une boucle du genre

for i = 1 to n
if checkbox(i).value=true then compteur=compteur+1
next i

seulement je ne trouve que des sujets où les checkbox sont dans une feuille et non dans une userform (donc pas de OLEobject).

Seulement je seche completement.... merci de votre aide !

A voir également:

Boucle avec checkbox(i) dans userform VBA
I showkeyplus - Télécharger - Utilitaires
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
I deux point - Forum Windows
Ou i ou a a ✓ - Forum Musique / Radio / Clip
Comment mettre deux points sur un i ✓ - Forum Windows

3 réponses

Réponse 1 / 3

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
17 déc. 2011 à 01:36

Bonsoir

A priori, tu peux utiliser une astuce de ce genre :
https://forums.commentcamarche.net/forum/affich-2943927-vba-excel-boucle-sur-checkbox

A+

Réponse 2 / 3

mister_t9
17 déc. 2011 à 15:35

Merci pour ta réponse je vais essayer tout ca !

Réponse 3 / 3

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
17 déc. 2011 à 22:29

Bonjour,
Essaye avec..

Private Sub CommandButton1_Click()
Dim Ctl As Control, compteur As Integer
    For Each Ctl In Me.Controls
        'verifie s'il s'agit d'un checkBox
        If TypeOf Ctl Is MSForms.CheckBox Then
            compteur= compteur+ Abs(Ctl.Value)
        End If
    Next Ctl
End Sub

A+

Discussions similaires

i tréma

Bonjour,

Comment fait-t-on pour faire un i tréma sur un clavier français canadien?

Merci de me répondre le plus vite possible! : )

Anonyme

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

les 2 petits points sur le e ou sur le i

Bonjour,
j'ai un clavier d'ordi qwerty canadien français et je ne trouve pas comment accéder aux 2 petits points (qu'on appelle il me semble "trait mat") sur le e ou le i . Je le vois ... il est sur la même touche que le ç, qui lui se trouve à gauche de la touche "entrée" ... mais impossible de le faire sortir ... grrrr...
Y'aurait il quelqu'un pour m'aider ?
Merci d'avance !

Mimjca

Configuration: Windows XP / Chrome 26.0.1410.64

Tréma sur "i" minuscule

Bonjour,

Je ne peux pasmettre de tréma sur le "i" minuscule ?

Merci de me donner une solution

Configuration: Windows XP / Internet Explorer 7.0

Comment faire un i tréma

Bonjour, j'aimerai savoir comment faire un i tréma pour mon document de bourse d'étude s'il vous plaît dite-le moi

Configuration: Windows 7 / Firefox 37.0