> Tous les forums > Forum Bureautique
 masquer colonne avec macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
valpat35
  Posté le 12/01/2019 @ 13:23 
Aller en bas de la page 
Petit astucien

Bonjour à tous

je cherche a masque les colonnes dans un fichier de planning

lorsque le tape le N°de semaine en d1 seule cette semaine doit s'afficher

mais ma macro ne fonctionne que sur la dernière semaine

Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Range("O:AT").EntireColumn.Hidden = IIf(Range("D1") = "1", True, False)
Range("E:R,AC:AT").EntireColumn.Hidden = IIf(Range("D1") = "2", True, False)
Range("E:AF,AQ:AT").EntireColumn.Hidden = IIf(Range("D1") = "3", True, False)

End Sub

voici le lien de mon fichier

https://cjoint.com/c/IAmms4JRmOj

Une idée du problème

merci de votre aide

Publicité
valpat35
 Posté le 12/01/2019 à 20:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir

j'ai fini par trouver la solution

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$1" Then

'Après chaque modification de la cellule D1
'Affiche toutes les colonnes déjà masquées dans la feuille Cible
With Sheets("Planning")
.Cells.EntireColumn.Hidden = False
'Masque les colonnes en fonction de la valeur de D1
Select Case Range("D1").Value

'Masque les colonnes O à AT si D1=1

Case "1"
.Columns("O:AT").EntireColumn.Hidden = True

'Masque les colonnes E à R et AC à AT si D1=2
Case "2"
.Range("E:R,AC:AT").EntireColumn.Hidden = True

'Masque les colonnes E à AF et AQ à AT si D1=3
Case "3"
.Range("E:AF,AQ:AT").EntireColumn.Hidden = True

End Select
End With
End If
End Sub

Cordialement

Valpat35

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
colonne avec le signe négatif par défaut
liste sans vide, avec filtre selon un critère d'une autre colonne
Afficher une colonne avec libre office
problème Date avec macro
macro afficher masquer lignes tableau dans word 2010
Tirage au sort avec macro
Erreur date avec macro/ incapable d'ouvrir ailleurs que chez moi
se positionner avec une macro dans une cellule précise
calculer une colonne par une autre avec pourcentage
Macro masquer certaines lignes
Plus de sujets relatifs à masquer colonne avec macro
 > Tous les forums > Forum Bureautique