cacher / afficher si Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
M
Maëva
Jeune membre
Jeune membre
Messages : 17
Inscrit le : 26 janvier 2017
Version d'Excel : 2016

Message par Maëva » 27 mars 2017, 16:04

Bonjour le Forum,

Voilà d'habitude j'utilise une macro pour afficher et cacher des données sur des lignes (j'utilise ce code qu'une collègue m'a donnée pour afficher et cacher sur des lignes :
Private Sub CheckBox1_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim Na As Integer
Dim i As Integer
If CheckBox1.Value = True Then
Na = Range("B1:B750").Rows.Count
For i = 1 To Na + 1
If Range("B1:B850").Rows(i).Value = "X" Then
Range("B1:B850").Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Next i
Else
Columns(1).Select
Selection.EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Par contre pour le fichier en pièce jointe j'aurai besoin de modifier le code pour pouvoir le mettre sur les colonnes (je voudrai masquer les colonnes ou il y a un "X". Pouvez vous m'expliquer l'astuce SVP

Je vous remercie

++
Fichier RH.xlsm
(35.63 Kio) Téléchargé 25 fois
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 4'047
Appréciations reçues : 212
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 27 mars 2017, 17:17

Bonjour Maëva, bonjour le forum,

Essaie comme ça :
Private Sub CheckBox1_Click()
Dim I As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If CheckBox1.Value = True Then
    For I = 6 To 66
        If Cells(6, I).Value = "X" Then
            Columns(I).Hidden = True
        End If
    Next I
Else
    Cells.EntireColumn.Hidden = False
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
M
Maëva
Jeune membre
Jeune membre
Messages : 17
Inscrit le : 26 janvier 2017
Version d'Excel : 2016

Message par Maëva » 27 mars 2017, 17:31

Super ça fonctionne !!!

merci ThauThème
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 27 mars 2017, 17:49

Bonjour,

Sans boucle :
Sub Cacher()
    
    Worksheets("dossier 1").Rows(6).Cells.SpecialCells(xlCellTypeConstants).EntireColumn.Hidden = True

End Sub

Sub Afficher()
    
    Worksheets("dossier 1").Rows(6).Cells.SpecialCells(xlCellTypeConstants).EntireColumn.Hidden = False

End Sub
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 4'047
Appréciations reçues : 212
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 28 mars 2017, 12:22

Bonjour le fil, le forum,

Beaucoup mieux !... Je l'ai toujours dit : "un pro Theze"... Bon, c'est vrai, lui il en a marre de la vanne pourrie...
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 28 mars 2017, 18:37

Bonjour Tout le monde, salut Tauthème,

Non, ça va en attendant d'en avoir une :D
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message