boucle avec checkbox

[Dennnisss]

Bonjour a tous

J'essaie de creer une boucle et bien sur j'obtient une erreur

voici la boucle l'erreur sur la ligne

If CheckBox(x) = true then
Dim x As Integer, y As Integer

For x = 1 To 15
For y = 10 To 25

If CheckBox(x) = True Then
.Range("T" & y) = 1
Else
.Range("T" & y) = 0
End If
Next y
Next x

Alors merci de m'aider svp
denis 😉😉

 

[Cousinhub]

Re : boucle avec checkbox

Bonsoir,

De quels checkboxs parles-tu?

D'un chk issu de la barre d'outils "Formulaires", de la barre d'outils "Contrôles", ou sur un Userform?

Selon le choix, plusieurs réponses possibles....

Précise un peu, stp....

Bonne soirée

 

[Dennnisss]

Re : boucle avec checkbox

Salut BHBH et Carcharodon

J'ai essayer votre code test et j'obtient une erreur il mais tous les checkbox en true

alors je vais preparer un petit userform et vous le renvoyer sur le forum
pour la question a BhBh les checkbox sont creer avec visual et non avec formulaire
alors je le prepare en vous l'envoie

merci a vous deux
denis 😉😉

 

[Dennnisss]

Checbox avec boucle

Bonjour a tous

BhBH et Carcharodon

Voici le petit userform avec lequel je cherchais a mettre une boucle faire attention car vous remarquerai que les checkbox repondre sur deux colonnes differentes soit en colonne T et en U

alors la il a le code long que j'essaie d'amoindrir

merci de votre aide

denis😉😉

 

[vbacrumble]

Re : boucle avec checkbox

Bonsoir tous

EDITION: une version plus courte

Dim x As Integer, y As Integer
For x = 1 To 15
For y = 10 To 25
Range("T" & y) = IIf(Me.Controls("CheckBox" & x) = True, 1, 0)
Next
Next

Je verrai le code plutot comme ceci pour la part
(Pour le cas de CheckBox (non renommés) dans Userform )

Dim x As Integer, y As Integer

For x = 1 To 15
For y = 10 To 25

If [B]Me.Controls("CheckBox" & x)[/B] = True Then
Range("T" & y) = 1
Else
Range("T" & y) = 0
End If
Next y
Next x

A+

 

[Dennnisss]

Re : boucle avec checkbox

Salut Vbacrumble

Je viens juste d'esayer ton code et lui aussi ne reporte pas ces donnees si mes un crochet sur different checkbox il ne transfere pas

merci a toi je continue ma recherche

denis 😉😉

 

[vbacrumble]

Re : boucle avec checkbox

Re

EDITION: je viens d'ouvrir ton fichier , il y a 30 checkboxs et non 15 !

Une version toujours plus courte

Dim x As Integer
For x = 1 To 15
Range("T" & x + 10) = IIf(Me.Controls("CheckBox" & x) = True, 1, 0)
Next

Les valeurs seront inscrites dans la feuille active

(Autrement il faut spécifier un nom de feuille)

A+

 

[skoobi]

Re : boucle avec checkbox

Bonjour tout le monde,
Re à certains 😉,

Test ceci:

Private Sub CommandButton1_Click()

'--------- Les Textbox-----------------
 
 
'---------- Les CheckBox----------------
For i = 1 To [T10:U24].Count
  Range("T10:U24")(i).Value = IIf(Controls("CheckBox" & i), 1, 0)
Next


Unload Me
End Sub

Private Sub UserForm_Initialize()

For i = 1 To [T10:U24].Count
  Controls("CheckBox" & i) = Range("T10:U24")(i).Value
Next
End Sub

 

[Dennnisss]

Re : boucle avec checkbox

Salut Skobbi , vbacrumble , carcharodon , bhbh

Merci a vous , le code a ete resolue , grace a vous autres et votre patience vous m'avez permit de minimiser le code pour etre moins lourd , merci a vous 4 de votre patience

excellent ce code

alors encore une fois a vous tous
si autres probleme je revient sur le forum

denis 😉🙂