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

[unparia]

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 ...)

Mais on va le savoir :
mets-nous ici une copie d'écran montrant à la fois la barre de formule et une cellule sélectionnée et contenant TON false !

[satalkon]

[unparia]

Hé bé !
C'est bien ce que je pensais. Tu y as écrit du TEXTE et cette cellule ne contient donc pas une valeur booléenne, mais la chaîne de caractères "VRAI" !
Si tu y veux une booléenne, va dans la barre de formule et saisis-y :
=VRAI
puis applique la formule (en appuyant sur la touche ENTER).
Et corrige dans la foulée toutes les cellules devant contenir une booléenne

Je vois par ailleurs la présence d'une cellule contenant #REF! (maiis c'est là encore un autre problème).

[satalkon]

le problème réside dans le fait que cette valeur VRAI vient d'une case à cocher.
Et cela fonctionne bien avec les lignes, bizarre non ?!?


Le #REF,correspond au mois de mars que je n'ai pas encore modifié.

[unparia]

Ecoute : je t'ai répondu ce qu'il fallait te répondre et qui explique ton dysfonctionnement.
Et je n'ai aucune autre réponse possible. Il n'y a que celle-là.
Après : comment et pourquoi tu te retrouves avec du texte et non une booléenne est un AUTRE SUJET, qui concerne d'autres éléments de ton code et que je me refuse donc de traiter dans CETTE discussion.

[satalkon]

OK. Je te remercie de t'être penché sur mon problème.
Je poursuis mes recherches.
Bonne soirée.

[unparia]

Il y a beaucoup de choses étranges visibles sur ta copie d'écran.
En ligne 3, on voit des =F3 ! Là encore, du texte (sinon afficherait ce que l'on voit en F3 et non "=F3"
Même remarque en ligne 4 où l'on voit des "F1 + 11", etc ...
Pas normal, tout cela (pas normal du tout).

[unparia]

Bon
Tout cela m'intriguait et je me suis donc amusé à me constituer un petit classeur de simulation, en reprenant toutes les maladresses relevées.
Constat : Excel se montre très tolérant et traduit malgré tout en True et False (pas très orthodoxe, mais Excel tolère)
Constat 2 : le code que tu avais écrit (boucle sur les mois) plante
Constat 3 : le code que je t'ai montré plus haut, ne plante pas

J'ai donc cherché à comprendre pourquoi il y avait plantage chez toi.
La seule différence que j'ai décelée entre mon classeur d'essai et l'image (ta capture d'écran) est la cellule T3 où l'on voit #REF! et dont je t'ai parlé en ma réponse 10.
Cette cellule se trouvant très précisément sur la ligne 3 (directrice de ta boucle sur les mois), je me suis amusé à créer la même sur mon classeur --->>> et là --->> plantage
Et ce plantage n'a rien à voir avec ma correction (mon code) et tout à voir avec une incompatibilité de type sur la cellule T3

Voilà voilà.
Efface le contenu de cette cellule T3 et tu verras que tout fonctionnera.

Ceci étant dit : relis toutes les remarques que j'ai faites plus haut. Elles ont leur justification et méritent des corrections, même si ton problème présent est maintenant probablement résolu par l'effacement de cette cellule T3

Bonne nuit.

[satalkon]

Un grand merci pour toutes tes explications.
J'ai repris le post depuis le départ et je me suis aperçu que j'en avais oublié les fondamentaux (le =F3 au lieu de VRAI ou FAUX par exemple).
Tout fonctionne nickel !
Encore merci d'avoir pris le temps de décortiquer mon problème.