Discussion :

[duffie34]

Bonjour à tous,

je suis nouveau sur le forum que je trouve très bien. Il m'a dans le passé beaucoup aidé mais aujourd'hui je suis coincé et j'aurais besoin de votre aide.

J'ai un classeur excel avec un onglet par personne.
Chaque onglet est organisé de manière identique avec 1 colonne = 1 jour.
Lorsque le jour inscrit en ligne 2 est inférieur à la date du jour, alors il s'inscrit en ligne 31 le texte "HIDE".

J'ai créé une macro (avec l'aide du forum) pour que soit masqué les colonnes dans lesquelles est inscrit HIDE en ligne 31.

Code :

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

1
2
3
4
5
6
7
8
 
            Dim i As Integer
            For i = 3 To 250
            If Cells(31, i) = "Hide" Then
            Columns(z).Hidden = True
            Else: Columns(i).Hidden = False
            End If
            Next i

Jusque là tout va bien. Le problème est que lorsque je souhaite appliquer cette macro automatiquement sur toutes les feuilles, j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Application.ScreenUpdating = False
Dim sht As Worksheet
For Each sht In Worksheets
Dim i As Integer
For i = 3 To 250
If Cells(31, i) = "Hide" Then
Columns(i).Hidden = True
Else: Columns(i).Hidden = False
End If
Next i
MsgBox sh.Name
Application.ScreenUpdating = True
Next sht

Mais rien ne se passe sauf sur la page qui est active au moment du lancement de la macro. Finalement je ne parviens pas à passer d'une feuille à une autre.

Quelqu'un aurait-il une solution ?

[PMO2017]

Bonjour,

Peut être comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Application.ScreenUpdating = False
Dim sht As Worksheet
Dim i As Integer
For Each sht In Worksheets
  For i = 3 To 250
    If sht.Cells(31, i) = "Hide" Then
      sht.Columns(i).Hidden = True
    Else
      sht.Columns(i).Hidden = False
    End If
  Next i
'  MsgBox sht.Name
Next sht
Application.ScreenUpdating = True

[keygen08]

Bonjour
Surement comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Integer
 Dim f As Integer
 'compte les feuilles dans le classeur
 f = ActiveWorkbook.Sheets.Count
 'Boucle sur les feuilles
 For j = 1 To f
  'macro a executer pour chaques feuilles
            For i = 3 To 250
            If Sheets(j).Cells(31, i) = "Hide" Then
            Sheets(j).Columns(Z).Hidden = True
            Else: Sheets(j).Columns(i).Hidden = False
            End If
            Next i
  Next j

[duffie34]

Bonjour

Super ou presque. Le code de keygen08 a fonctionné 1 fois et s'est terminé par Erreur d'exécution 1004.

Erreur définie par l'application ou l'objet :

Code :

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

Sheets(j).Columns(z).Hidden = True

Visiblement il ne parvient pas à finir la boucle ? Auriez vous une idée.

Et surtout maintenant si j'essaye de le relancer, il ne fonctionne plus.

[Guiiand]

Bonjour,

A mon avis une simple erreur de frappe, ou plutot de copier coller de ton code initial

remplace le Z pas un i dans

Code :

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

Sheets(j).Columns(Z).Hidden = True

Bonne journée

[duffie34]

Oups je n'avais pas fais attention. Désolé.
Effectivement cela fonctionne mieux.

Désormais il fait bien l'action sur toutes les feuilles mais lorsqu'il termine, il plante sur l'écran d'erreur VBA avec Erreur d'éxécution 13 : incomptabilité de type et dans le debogage il me met en avant la ligne

Code :

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

If Sheets(j).Cells(31, i) = "Hide" Then

[keygen08]

Bonjour
en tete de macro ajouter

Code :

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

on error resume next

[Philippe Tulliez]

Bonjour,
Comme la propriété Visible est un Boolean, il y a plus court

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub t()
 Application.ScreenUpdating = False
 Dim c As Integer, f As Integer
 ' Boucle sur les feuilles
 For f = 1 To ActiveWorkbook.Sheets.Count
  For c = 1 To 250
   Sheets(f).Columns(c).Hidden = Abs(Sheets(f).Cells(3, c) = "Hide")
  Next c
 Next f
 Application.ScreenUpdating = True
End Sub

[duffie34]

Avec le code de keygen08, la macro fonctionne.

J'ai essayé la macro de Philippe en corrigeant la ligne 3 par la ligne 31.

Code :

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

Cells(31, c)

Lorsque je lance la commande j'ai une erreure d'exécution code 13, incomptabilité du type et il me souligne la ligne suivante dans le code

Code :

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

   Sheets(f).Columns(c).Hidden = Abs(Sheets(f).Cells(31, c) = "Hide")

Mais cela fonctionne quand même.


Merci encore à vous tous. J'ai donc ma solution.
@bientôt.

[Philippe Tulliez]

Bonjour,

C'est curieux parce-que, j'ai testé avant de diffuser.
Tu as utilisé l'entièreté du code ?
Parce-que moi, j'ai utilisé les variables f pour feuille et c pour colonne noms qui me semble plus appropriés. Ne fut-ce que pour la maintenance