Discussion :

[munited36]

Voila, j'ai un petit problème concernant les boucles sous visual basic avec excel.

J'ai plusieurs cases à cocher appelées cv1, cv2, cv3 ....

A l'aide d'une boucle, je voudrais que si la valeur est vraie, excel execute la macro "test" par exemple.

Mon code est le suivant:

Déclarations
Dim cpt As Integer
Dim Cv(i) As Checkbox

------------------------------------

Private Sub apercu_Click()
cpt = 0

For i = 1 To 13
If Cv(i).Value = True Then
Module6.test
cpt = cpt + 1
End If
Next
End Sub

Or, ça ne marche pas, Quel est le problème ?
Merci d'avance

[leroissejp]

Bonjour,
Si tu disais plutôt ce que tu veux faire??, parce que ton code ,franchement je ne le comprend pas.

jpleroisse

[SfJ5Rpw8]

en vba sous excel tu ne peu pas créer des groupes de contrôles .. et y accéde à la maniére que tu nous présente ... cependant il y as une solution ...

code dans l'userform conteant les controles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim cpt As Integer
 
Private Sub apercu_Click()
cpt = 0
 
For i = 1 To 13
If Controls("cv" & i )  = True Then
Module6.test
cpt = cpt + 1
End If
Next
End Sub

pour des controles checkbox allant de cv1 à cv13 ... ( ps je ne voi pas à quoi te sert le compteur cpt ..? ne fais t'il pas doublon avec i ...?

[leroissejp]

Re,
Je voudrais savoir pourquoi les 13 ChekBox lancent la même procédure?.
Un seul ne suffirait-il pas ??

jpleroisse

[munited36]

En fait chaque checkbox est plaçée au début de chaque ligne

Je voudrais que lorsque je coche une ou plusieurs checkbox, les lignes correspondantes soient copiées sur une autre feuille dés que je clique sur le commandbutton.

Enfin, la propriété cpt est un compteur qui me permettra de connître combien de cases ont été cochées.

[scr]

Si tu nous disais ce qui ne marche pas ca nous aiderait !

Sinon lorsqu' une case est cochée sa propriété n'est pas égale à True mais à 1 car True = -1

je remplacerais donc la ligne :
If Cv(i).Value = True Then
par:
If Cv(i).Value = 1 Then
ou :
If Cv(i).Value <> false Then
pour etre plus lisible !