boucle avec checkbox

Cousinhub

XLDnaute Barbatruc

• 16 Février 2009

• #2

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

 

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 16 Février 2009

• #3

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 😉😉

 

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 16 Février 2009

• #4

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😉😉

 

Pièces jointes

• checbox.zip

  20.1 KB · Affichages: 38

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 16 Février 2009

• #5

Re : boucle avec checkbox

Bonsoir tous

EDITION: une version plus courte

Code:

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 )

Code:

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+

 

Dernière édition: 16 Février 2009

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 16 Février 2009

• #6

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 😉😉

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 16 Février 2009

• #7

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

Code:

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+

 

Dernière édition: 16 Février 2009

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 16 Février 2009

• #8

Re : boucle avec checkbox

Bonjour tout le monde,
Re à certains 😉,

Test ceci:

Code:

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

 

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 16 Février 2009

• #9

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 😉🙂

 

Vote positif 0 Vote négatif