Affichage des colonnes par PAS

[chaelie2015]

Bonsoir
je souhaite un code VB :
si K2 = (chiffre varie entre 1 et 20)
si K2=1 alors afficher colonne R-AB (11 colonnes)
si K2=2 alors afficher colonne R-AB et AC-AM ( un pas de 11 colonnes)
si K2=3 alors afficher colonne R-AB AC-AM et AN-AX
etc....
Salutations

 

[mapomme]

Bonsoir @chaelie2015,

Dès que la valeur de K2 est modifiée, l'affichage est mis à jour.
Le code est dans le module de la feuille "Feuil1".

Private Sub Worksheet_Change(ByVal Target As Range)
   With Me
      If Not Intersect(Target, Range("k2")) Is Nothing Then
         Application.ScreenUpdating = False
         .Columns("r:r").Resize(, 20 * 11).Hidden = True
         .Columns("r:r").Resize(, Range("k2") * 11).Hidden = False
      End If
   End With
End Sub

 

[soan]

Bonsoir @chaelie2015, mapomme,

Je propose ce code VBA :

Option Explicit

Sub Essai()
  Dim k%: k = 28 + 11 * ([K2] - 1): Application.ScreenUpdating = 0
  Range(Columns(18), Columns(k)).Hidden = 0
End Sub

* .Hidden = 0 : c'est pour afficher

* pour masquer, mets : .Hidden = -1

* si tu veux plutôt faire une inversion, mets :

.Hidden = Not Columns(18).Hidden

(c'est comme ci-dessous)

-------------------------------------------------

Dans le fichier, il y a :

Option Explicit

Sub Essai()
  Dim k%: k = 28 + 11 * ([K2] - 1): Application.ScreenUpdating = 0
  Range(Columns(18), Columns(k)).Hidden = Not Columns(18).Hidden
End Sub

Essaye le fichier joint : met en K2 une des valeurs, puis fait Ctrl e
tu verras que ça masque ou affiche les bonnes colonnes (cycle)

Exemples :

* en K2, il y a déjà 1 ; Ctrl e ➯ R:AB est masqué ; Ctrl e ➯ R:AB est affiché

* mets 2 en K2 ; Ctrl e ➯ R:AM est masqué ; Ctrl e ➯ R:AM est affiché

* mets 3 en K2 ; Ctrl e ➯ R:AX est masqué ; Ctrl e ➯ R:AX est affiché

* avec 20 en K2 : idem, pour les colonnes R:IC

soan

 

[chaelie2015]

Bonjour Mapomme,soan
merci pour les réponses,
@ mapomme: dans le même exemple je souhaite afficher et masquer les lignes de 4-23 selon la cellule K3.
A+

 

[mapomme]

Re,

je souhaite afficher et masquer les lignes de 4-23 selon la cellule K3.

Voir le fichier joint...

 

[chaelie2015]

Bonjour
ça fonctionne parfaitement.
A+