Cache colonne selon checkbox

[kwakos]

Bonsoir le forum

Voilà, j'ai un nouveau problème. Je lance un userform1 dans lequel j'ai une vingtaine de checkbox.
Selon que le checkbox est coché, celà doit me cacher ou non une colonne. Je me suis arrangé pour que le n° du checkbox corresponde au n° de colonne a cacher et j'ai écrit ceci, mais ça coince...
Peut être que quelqu'un pourra en 2s voir ce qui ne va pas :

Private Sub CommandButton4_Click()
Dim i As Byte
For i = 1 To 30
If Controls("CheckBoxSem" & i).Value = True Then
Worksheets("LISTE").Cells(1, "i").EntireColumn.Hidden = False
Else
Worksheets("LISTE").Cells(1, "i").EntireColumn.Hidden = True
End If
Next i
End Sub

Merci à tous !!!

 

[kjin]

Re : Cache colonne selon checkbox

Bonsoir,
Peut-être comme ceci

Private Sub CommandButton4_Click()
Dim i As Byte
For i = 1 To 30
Worksheets("LISTE").Columns(i).Hidden = IIf(Controls("CheckBoxSem" & i) = True, 1, 0)
Next
End Sub

A+
kjin

 

[kwakos]

Re : Cache colonne selon checkbox

Bonsoir,
Peut-être comme ceci

Private Sub CommandButton4_Click()
Dim i As Byte
For i = 1 To 30
Worksheets("LISTE").Columns(i).Hidden = IIf(Controls("CheckBoxSem" & i) = True, 1, 0)
Next
End Sub

A+
kjin

Re le forum, bonsoir Kjin
le code ci dessus ne marche pas -> bug...
Merci pour ta participation, si tu as une autre idée je suis preneur, je continue de mon coté aussi à tâter...

 

[phlaurent55]

Re : Cache colonne selon checkbox

Bonjour à tous,

peut-être en supprimant les guillemets

If Controls("CheckBoxSem" & i).Value = True Then
Worksheets("LISTE").Cells(1, [COLOR="red"][B]i[/B][/COLOR]).EntireColumn.Hidden = False
Else
Worksheets("LISTE").Cells(1, [COLOR="red"][B]i[/B][/COLOR]).EntireColumn.Hidden = True
End If

 

[kwakos]

Re : Cache colonne selon checkbox

Le forum, Kjin, phlaurent55,

Non phlaurent55, j'avais rectifié ça déjà, ainsi que le next i du code de Kjin.

Merci à vous 2 de vous intéresser à mon petit problème... J'y retourne...

 

[phlaurent55]

Re : Cache colonne selon checkbox

Re,
après avoir testé et retesté ton code, ....................
es-tu sûr de ( en bleu dans le code)

If Controls[COLOR="Blue"][B]("CheckBoxSem" & i).[/B][/COLOR]Value = True Then

 

[kwakos]

Re : Cache colonne selon checkbox

Re,
après avoir testé et retesté ton code, ....................
es-tu sûr de ( en bleu dans le code)

If Controls[COLOR="Blue"][B]("CheckBoxSem" & i).[/B][/COLOR]Value = True Then

re phlaurent55,

en fait c'est une expression que j'avais trouvé en faisant des recherches sur le même thèmes dans le forum, à priori celà fonctionnait dans le cas posé.
https://www.excel-downloads.com/threads/checkbox-i-quel-est-lecriture-exacte.113642/

Je n'en suis pas sur à 100% dans mon cas...

 

[kjin]

Re : Cache colonne selon checkbox

Bonsoir,

A+
kjin

 

[phlaurent55]

Re : Cache colonne selon checkbox

Re,

c'est pourtant cette ligne qui est fautive ..................elle est en jaune

avec message "Objet spécifié introuvable"


.

 

[kwakos]

Re : Cache colonne selon checkbox

Re forum, Phlaurent55, Kjin,

Ca y est, j'ai trouvé
c'etait un peu bébète, j'ai honte lol

Private Sub CommandButton4_Click()
Dim I As Byte
For I = 1 To 30
If Controls("CheckBox" & I).Value = True Then
Worksheets("LISTE").Cells(1, I).EntireColumn.Hidden = False
Else
Worksheets("LISTE").Cells(1, I).EntireColumn.Hidden = True
End If
Next I
End Sub

Phlaurent, merci de m'avoir mis sur la voie...

A plus tout le monde et encore merci

 

[kjin]

Re : Cache colonne selon checkbox

Re,

Re le forum, bonsoir Kjin
le code ci dessus ne marche pas -> bug...

.... j'avais rectifié ça déjà, ainsi que le next i du code de Kjin...

Lamentable ce kjin
A+
kjin

 

[phlaurent55]

Re : Cache colonne selon checkbox

Re,




Lamentable ce kjin
A+
kjin

mais non, tu n'es pas lamentable .....................
si un fichier exemple avait été joint à la question le problème aurait été réglé en quelques secondes

bonne soirée
à+
Philippe

 

[Cousinhub]

Re : Cache colonne selon checkbox

Bonsoir, le fil

une petite solution "autre"...

On fait apparaître l'usf par le petit rectangle jaune....

On clique sur les checkboxs, et les colonnes concernées sont visibles, ou pas....

Utilisation d'un module de classe...

 

[kwakos]

Re : Cache colonne selon checkbox

Re tout le monde...

Désolé kjin, je ne sous-entendais rien de tel en indiquant que j'ai rajouté le "i" à next i, c'était juste pour éviter un message du type "as tu mis le "i" à next i ?" 🙂

Encore une fois merci à tous, car c'est grâce à toutes vos remarques et suggestions que j'ai pu avancer et trouver la solution...

Merci encore à tous

(désolé la prochaine fois je joindrais un fichier, mea culpa)

Ciao et à bientôt

kwakos