Discussion :

[satalkon]

Bonjour à tous,

J'ai copié une trouvé sur le net pour pouvoir masquer, à partir de case à cocher, des lignes et des colonnes. Chaque case à cocher renvoie la valeur "vrai" ou "faux" en face des informations à masquer pour les lignes et sous les informations à masquer pour les colonnes.
Elle fonctionne très bien pour les lignes mais pas pour les colonnes.
Voici ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Masque_les_lignes_non_retenues() ' masque les lignes CA, GP et MOP ou la valeur dans les cellules de la colonne C sont ="FAUX"

Dim ligne As Integer
Dim colonne As Integer
   'Cet exemple active la feuille nommée "data €"
Worksheets("Data €").Activate
For ligne = 6 To 31
If Cells(ligne, 3) = False Then
 Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
Next

'masque les sites non cochés
For ligne = 6 To 31
If Cells(ligne, 5) = False Then
 Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
Next

'masque les mois non cochés
For colonne = 6 To 146
If Cells(3, colonne) = False Then
 'Columns(colonne & ":" & colonne).EntireColumn.Hidden = True
End If
Next

'pour que le curseur se positionne en A1
Range("A1").Select
End Sub


Sub Affiche_la_totalite_des_lignes()
Range("C1:C50").Select
Selection.EntireRow.Hidden = False
Worksheets("consultation").Activate

Range("A1").Select
End Sub

J'ai mis en gras souligné ce qui semble bloquer.
Merci d'avance pour votre aide qui sera forcément précieuse.
Bonne soirée.

[QuestVba]

Bonsoir,

Des lettres et des chiffres.. Non, pas le jeu ...
Voici une idée : regarde ici.

[unparia]

Bonjour
Ben
ceci devrait tout simplement fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For colonne = 6 To 146
  If Cells(3, colonne) = False Then
    Columns(colonne).EntireColumn.Hidden = True
  End If
Next

[satalkon]

Merci pour cette réponse rapide
Je débute en VBA et j'ai maintenant une vingtaine d'heure d'expérience derrière moi puisque j'ai passé le WE à explorer les tutos et les posts !
Je ne cherche pas à connaitre la lettre de ma colonne mais je veux juste la masquer si il est renseigné "FAUX" dans l'une de ses cellules. (le "FAUX" étant généré par une case à cocher d'un autre onglet.
Cela fonctionne nickel pour masquer les lignes mais pas pour les colonnes

Quelle différence y a-t-il entre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'masque les sites non cochés
For ligne = 6 To 31
If Cells(ligne, 5) = False Then
 Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
Next

et :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'masque les mois non cochés
For colonne = 6 To 150
If Cells(3, colonne) = False Then
 Columns(colonne & ":" & colonne).EntireColumn.Hidden = True
End If
Next

Merci....

[satalkon]

Merci unparia mais cela ne fonctionne.

[unparia]

Merci unparia mais cela ne fonctionne.

Je ne vois pas pourquoi le code que je t'ai montré ne fonctionnerait pas. Il ne peut que fonctionner.
Montre le code que tu as écrit incluant ce code (le code, pas le fichier. Lis ma signature).

Et si ne marche pas, cela veut dire que la cellule de test ne contient pas la valeur False, mais autre chose (et quoi ? J'espère que tu ne confonds pas la valeur booléenne FALSE, obtenue par formule, avec la chaîne de caractère "FALSE" ou "FAUX", hein ...)

[satalkon]

Désolé mais j'ai vu ta signature trop tard.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Masque_les_lignes_non_retenues() ' masque les lignes CA, GP et MOP ou la valeur dans les cellules de la colonne C sont ="FAUX"

Dim ligne As Integer
Dim colonne As Integer
   'Cet exemple active la feuille nommée "data €"
Worksheets("Data €").Activate
For ligne = 6 To 31
If Cells(ligne, 3) = False Then
 Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
Next

'masque les sites non cochés
For ligne = 6 To 31
If Cells(ligne, 5) = False Then
 Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
Next

'masque les mois non cochés
For colonne = 6 To 146
  If Cells(3, colonne) = False Then
    Columns(colonne).EntireColumn.Hidden = True
  End If
Next

'pour que le curseur se positionne en A1
Range("A1").Select
End Sub


Sub Affiche_la_totalite_des_lignes()
Range("C1:C50").Select
Selection.EntireRow.Hidden = False
Worksheets("consultation").Activate

Range("A1").Select
End Sub