Vérifier, sauvegarder Valeur CheckBox

Bonjour, tout d’abord je souhaites une bonne année à tout le monde !

Je viens de nouveau sur ce forum pour vous demander un petit truc :

Je suis en train de créer une petit fichier excel qui va avoir comme particularité de demander à l’ouverture, grâce à une userform, quelles colonnes doivent être pré-remplies ou pas.

J’ai donc dans l’user form des checkbox, qui vont avoir pour rôles d’inscrire quelques choses dans leur case respective. Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CheckBox1_Click() Application.ScreenUpdating = False   Select Case CheckBox1.Value 'show Case True: Range("A:A").EntireColumn.Hidden = False 'écriture Range("A1").Value = "N°"   'Si la case n'est pas coché, ne rien avoir dans la colonne Case False: Range("A:A").Value = ""   'Selectionner la colonne et la faire disparaitre. Range("A:A").EntireColumn.Hidden = True   Case Else: CheckBox1.Caption = "Null" End Select End Sub

---

La ça va donc écrire « N° » dans la case A1.

Mon problème c’est que j’ai comme ça une trentaine de colonne, lors de la réouverture du fichier, j’ai créer ceci dans l’userform activate afin de vérifier si les checkbox doivent apparaitres coché ou pas suivant dans quelles colonnes sont restées remplies avec la sauvegarde.

Code:

---

1 2 3 4 5

If Range("A1").Value = "N°" Then CheckBox1.Value = True Else Range("A:A").EntireColumn.Hidden = True End If

---

Le problème c’est que j’ai donc trente fois ça avec différente case et valeur…

Ne serait-il pas possible de faire une boucle afin qu’elle vérifie dans chaque colonne si une valeur existe, (même n’importe laquelle) et qu’elle coche les checkbox correspondante.

Je suis débutant, je pensais à un truc du genre

Code:

---

1 2 3 4 5 6 7

Dim compteur As Long For compteur = "1" To "28" I = I + 1 If Range(I).Value <> "" Then CheckBox"I".Value = True End If Next compteur

---

(ce qui ne fonctionne pas bien évidemment ;) mais vous aidera à trouver ce que je souhaite faire )


Sinon si je prends le problème dans un autre sens, est-il possible de sauvegarder la valeur de toutes les checkbox à un moment donné afin de savoir lesquelles sont cochées, ou pas et donc de les réutiliser lors de l’apparition de l’userform ?

Voilà, merci !

Bonjour et bonne année

En utilisant le code suivant

Code:

---

1 2 3 4 5

'remplacer CheckBox"I".Value = True 'par Me.controls("CheckBox" & I).Value = True

---

A tester

Jp014

Bonjour,
En complément

Code:

---

1 2 3 4

Dim compteur As Byte For compteur = 1 To 28 Me.Controls("CheckBox" & compteur).Value = Cells(1, compteur).Value <> "" Next compteur

---

Yeahhh ;)

Nickel, ça fonctionne très bien, je te remercie beaucoup !

J'ai changé une autre partie de mon code, car l'objet "range" posait problème.

Ça donne ça maintenant qui fonctionne très bien pour toutes les 1 cellule des colonnes :

Code:

---

1 2 3 4 5 6 7

Dim compteur As Long For compteur = "1" To "28" I = I + 1 If Cells(1, I).Value <> "" Then Me.Controls("CheckBox" & I).Value = True End If Next compteur

---

Enfin voilà , je suis en extase devant mon fichier excel maintenant :D

Bonne journée et à bientôt pour de nouveaux problèmes ! :aie:

[edit] : merci mercatog pour la simplification du code !

Des remarques:

Code:

---

1 2 3 4 5 6 7

Dim compteur As Long For compteur = "1" To "28" I = I + 1 If Cells(1, I).Value <> "" Then Me.Controls("CheckBox" & I).Value = True End If Next compteur

---

1. Tu déclare compteur As Long alors que byte suffisait
2. For compteur = "1" To "28"; pourquoi ajouter les guillemets?
3. Ta variable I est toujours égale à compteur

Citation:

---

Envoyé par mercatog

Des remarques :
1. Tu déclare compteur As Long alors que byte suffisait
2. For compteur = "1" To "28"; pourquoi ajouter les guillemets?
3. Ta variable I est toujours égale à compteur

---

1. Oui car je ne maitrise pas encore le type de déclaration que je dois faire.
2. Euh, je ne sais pas... :D
3. Oui, ça pas de soucis, je l'enlève ;)

Encore merci à vous deux, j'ai pu adapté ce code à d'autres parties ou je devais également faire de la selection multiple de check box. Donc nickel ;)

Bonjour à tous, je relance ma conversation, car j'ai une autre question qui concerne le même sujet.

Grace à vous, j'ai pu faire ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim compteurTrue As Byte For compteurTrue = 1 To 21 If CheckBox200.Value = True Then Me.Controls("CheckBox" & compteurTrue).Value = True End If Next compteurTrue   Dim compteurFalse As Byte For compteurFalse = 201 To 204 If CheckBox200.Value = True Then Me.Controls("CheckBox" & compteurFalse).Value = False End If Next compteurFalse

---

Malheureusement ce code fonctionne très bien lorsque que je souhaite modifier l'état d'un ensemble de checkbox dont le numéro se suit.

Mais j'ai plusieurs configurations et l'une d'elle est de ce genre la :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Private Sub CheckBox204_Click() If CheckBox204.Value = True Then CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False CheckBox5.Value = False CheckBox6.Value = False CheckBox7.Value = False CheckBox8.Value = False CheckBox9.Value = True CheckBox10.Value = False CheckBox11.Value = False CheckBox12.Value = False CheckBox13.Value = False CheckBox14.Value = False CheckBox15.Value = True CheckBox16.Value = False CheckBox17.Value = False CheckBox18.Value = True CheckBox19.Value = True CheckBox20.Value = False CheckBox21.Value = False   CheckBox200.Value = False CheckBox201.Value = False CheckBox202.Value = False CheckBox203.Value = False End If End Sub

---

Est-ce qu'il y a un moyen pour simplifier ce code? Une sorte de boucle à laquelle on peut rajouter des exceptions? Car là, si je veut faire des boucles comme au dessus, ça me prends plus de ligne que le truc que j'ai créé.

ps: désolé de poster autant de problème depuis quelques jours :aie: Mais bon, ça commence à rentrer, rassurez-vous :mrgreen:

Bonjour,
essaie de renommer tes checkbox en rassemblant ceux de même affinité et en ajoutant un préfixe exemple

CkBoxT1, CkBoxT2,... pour le premier groupement
CkBoxF1, CkBoxF2,... pour le second groupement...etc

J'ai déjà regrouper mes checkbox entre celles qui vont être obligatoirement cochées, que j'ai nommé dans la série "100" c'est à dire CheckBox100, CheckBox101.. Etc... Celles qui peuvent ou pas être cochées, sont incrémentées normalement (1,2,3,4...)

Sauf qu'en faite, je donnes le choix à l'utilisateur de choisir un modèle de checkbox pré-remplis

C'est comme si j'avais chaques checkboxes qui était un élève à faire apparaitre en tête de colonne et que les modèles à sélectionner sont "élève avec lunettes", "les bruns", "les filles"... Donc chaques checkbox peut appartenir à plusieurs groupes... Et chaques modèles va faire apparaitre un nombre différent de colonnes. Voila pourquoi je ne peu leur attribuer de nom particulier...

C'est pourquoi j'ai dans un premier temps, selectionner les choix un à un...
Ps: félicitation pour ton 1001ieme message :ccool:

Tu peux faire par exemple ainsi

Code:

---

1 2 3 4 5 6 7

Dim i As Byte For i = 1 To 50 Select Case i Case Is < 14, 21, 39, Is > 45: Me.Controls("CheckBox" & i).Value = CheckBox200.Value Case Else: Me.Controls("CheckBox" & i).Value = Not (CheckBox200.Value) End Select Next i

---

c'était 1001 nuit!;)

Merci pour la réponse, la j'essaye de comprendre le code, alors je vais te donner ma version des fait, et le truc bizarre que je remarque voici mon code :

Code:

---

1 2 3 4 5 6 7

Dim i As Byte For i = 1 To 21 Select Case i Case Is < 1, 2, 3, 4, 5, 6, 7, 8, 9, 12, 13, 14, 15, 16, 17, 18, Is > 21: Me.Controls("CheckBox" & i).Value = CheckBox202.Value Case Else: Me.Controls("CheckBox" & i).Value = Not (CheckBox202.Value) End Select Next i

---

Donc en français pour moi ça donne,
Je selectionne les cases qui auront la valeur inverse de la checkbox202. Donc si ChBx202 est cochée, alors les ChBx 1,2,3,4,5,6,7,8,9,12,13,14,15,16,17,18, ne le seront pas.

La valeur après le Is > * sert à définir l'intervalle on dirait, mais c'est bizarre, car autant le mettre dans le

For I = 1 to *

Car la j'obtiens ce que je veux à la différence près que dans ma logique, la ChBx 1 devrais pas se cocher, comme les autres, hors c'est la seule à faire l'inverse... Soit l'inverse de l'inverse de la ChBx202, donc elle prends sa valeur quoi ! :aie: Car si je l'enlève de l'intervalle la, bah elle prends la valeur de la ChBx 202 et c'est ensuite la ChBx 2 qui fait l'inverse, donc le premier chiffre écit fait l'inverse?

Enfin je sais pas si j'arrive à bien me faire comprendre sur le coup.

Je demande juste en "français" si ma traduction du code est bon ;)

Re,
Pour ton code

Code:

---

1 2 3 4 5 6 7

Dim i As Byte For i = 1 To 21 Select Case i Case 9, 15, 18, 19: Me.Controls("CheckBox" & i).Value = CheckBox204.Value Case Else: Me.Controls("CheckBox" & i).Value = Not (CheckBox204.Value) End Select Next i

---

les checkbox 9,15,18 et 19 prennent la valeur de checkbox204 (true-true, false-false)
les autres, les valeurs contraires (true-false, false-true)

Je te remercie encore une fois pour cette explication qui m'éclaire les idées.

Bonne journée Ô grand gourou de VBA ! 8-)