Contrôle Active X et code

[envol]

Bonjour à tous,

Je voudrais adapter une SUB que j’utilisais avec un bouton « contrôle de formulaire »
Maintenant, j'utilise un controle ActiveX de type Check box
Mais ça « bug » ! Je ne sais pas régler le problème ci-dessous.
Vous pouvez m’aider svp ?

Private Sub CheckBox1_Click()
liste = Array("D", "E")
For n = 0 To UBound(liste)
If Columns(liste(n)).Hidden = True Then
Columns(liste(n)).Hidden = False
Else
Columns(liste(n)).Hidden = True
End If
Next n
End Sub

 

[youky(BJ)]

Re : Contrôle Active X et code

Bonjour envol,
Une solution parmis d'autres . . . .

Bruno

Private Sub CheckBox1_Click()
For k = 4 To 5
Columns(k).Hidden = Not Columns(k).Hidden
Next
End Sub

 

[Staple1600]

Re : Contrôle Active X et code

Bonjourà tous


Ou simplement

Columns("D:E").Hidden = Not Columns("D:E").Hidden

 

[envol]

Re : Contrôle Active X et code

Bonjour à tous 2, le fil,

Merci pour vos solutions.
Le code de JM fonctionne très bien
Celui de Bruno a une erreur de compilation sur le K... mais je sais pas réparer...

 

[ROGER2327]

Re : Contrôle Active X et code

Bonjour à tous

Le code de envol fonctionne.
Par contre, je trouve la simplification de Staple1600 trop radicale : que se passe-t-il si une seule des deux colonnes est initialement visible ?

[COLOR="DarkSlateGray"][B]Private Sub CheckBox1_Click()
Dim liste, n&
   liste = Array("D", "E")
   For n = 0 To UBound(liste)
      Columns(liste(n)).Hidden = Not Columns(liste(n)).Hidden
   Next n
End Sub[/B][/COLOR]

ROGER2327
#3782

Jeudi 12 Gidouille 137 (Sainte Confiture, dévote et Sainte Cliche, donatrice, SQ)
8 Messidor An CCXVIII
2010-W25-6T12:19:12Z

 

[youky(BJ)]

Re : Contrôle Active X et code

Salut Roger,Stapel,
Par curiosité dans la fenêtre de debuguage j'ai tapé
?Columns("D:E").Hidden
ceci en masquant seulement la col D
cela renvoie =vrai
et en masquant seulement la col E cela renvoie=faux
C'est aller au devant des ennuis. . . . .

PS -initialement la macro traitait column par column
Bruno