Colonne excel

[Youn003]

Bonjours à tous,

j'essaie d'effectuer une boucle qui me permettrait de masquer des colonnes une fois sur deux, les colonnes de mon tableau sont des pays qui chacun ont une valeur et un pourcentage.
J'ai donc créer deux boutons de commandes,l'un masque et affiche les valeurs et l'autre les pourcentages

Voici le code pour le bouton pourcentage:

If Masquer = False Then
For i = B To AY
Range("i" + 2).Select
Selection.EntireColumn.Hidden = True
Next i
Masquer = True
Else
Columns("B:i+2").Select
Range("B2").Activate
Selection.EntireColumn.Hidden = False
Masquer = False
End If

pour masquer les colonnes, c'est bon mais pour les afficher je n'y arrive pas car il me faudrait une autre variable par exemple j qui quand i vaut B, j vaut D etc

Voila je ne sais pas si c'est très clair.
En attente de réponse merci d'avance.

 

[Pierrot93]

Re : Colonne excel

Bonjour,

difficile à dire avec un morceau de code jeté sur un post.... mets peut être un tout petit fichier, avec le code complet et le résultat attendu...

bonne journée
@+

 

[Youn003]

Re : Colonne excel

Re,
tout d'abord merci d'avoir répondu aussi rapidement.
Ensuite ce code est le code entier du bouton.
Je vais essayer d'expliquer plus simplement,
en gros, j'ai un tableau avec les colonnes C, E, G, I etc qui sont masquées, l'idée serait d'effectuer une boucle pour afficher ces colonnes.

Merci d'avance.

 

[Pierrot93]

Re : Colonne excel

Re,

A quoi correspond B et AY et comment sont initialisées ces variables...

 

[Youn003]

Re : Colonne excel

Re,
Le code que j'ai montré ne marche pas j'avais pris cette idée sur un autre forum.
Par-rapport au deuxième message que je t'ai envoyé, sans prendre en compte mon code tu as une idée?

 

[Pierrot93]

Re : Colonne excel

Re,

sinon, pour affichier plusieurs colonnes qui se suivent, pas besoin de boucle :

Columns("B:AY").Hidden = False

 

[Youn003]

Re : Colonne excel

D'accord, sauf que là les colonnes ne se suivent pas, c'est une colonne sur deux, bien sûr je pourrais le faire sans boucle mais çà fait beaucoup de code pour pas grand chose je trouve.

 

[Pierrot93]

Re : Colonne excel

Re,

ce code correspond à cette demande :

en gros, j'ai un tableau avec les colonnes C, E, G, I etc qui sont masquées, l'idée serait d'effectuer une boucle pour afficher ces colonnes.

qu'elles ne soient pas toutes masquées ne pose pas de problème..... après pour les masquer c'est autre chose....

 

[Youn003]

Re : Colonne excel

tu as mis dui code la? je le vois pas lol

 

[Pierrot93]

Re : Colonne excel

Re,

dans le post de 12h58...

 

[Youn003]

Re : Colonne excel

Okay je t'en remercie en tout cas je vais pas faire de boucle çà va être plus chiant mais plus simple

 

[Pierrot93]

Re : Colonne excel

Re,

je vais pas faire de boucle çà va être plus chiant mais plus simple

c'est soit l'un soit l'autre.... un exemple de boucle...

Sub test()
Dim i As Long
For i = 2 To 51 Step 2
    Columns(i).Hidden = True
Next i
End Sub

 

[Pierrot93]

Re : Colonne excel

Re,

une autre qui masquera les colonnes paires :

Dim i As Long
For i = 2 To 51
   Columns(i).Hidden = IIf(i Mod 2 = 0, True, False)
Next i

 

[Youn003]

Re : Colonne excel

parfait c'est exactement ce qu'il me faut merci

 

[JCGL]

Re : Colonne excel

Bonjour,
Salut Pierrot,

Comme c'était fait...
Avec un Bouton Bascule

A+ à tous