Faire une action sur plusieurs onglets

[Elo6b]

Bonjour,
Sur cette action :
With Sheets("A-1")
Select Case n
Case 1
.Columns("h:gz").Hidden = False
.Columns("I:L").Hidden = True
.Columns("o").Hidden = True
.Columns("T:Y").Hidden = True
.Columns("AA:AC").Hidden = True
.Columns("AE:EZ").Hidden = True
.Columns("FC:FF").Hidden = True
.Columns("FH:FK").Hidden = True
.Columns("FM:FP").Hidden = True
.Columns("FR:FU").Hidden = True
.Columns("FW:fz").Hidden = True
Range("G9").Select
End Select
End With

Je voudrai également le faire sur un autre onglet "A prévisionnelle". Comment l'intégrer en même temps que le With Sheets("A-1") ?
En vous remerciant de votre aide!

 

[natorp]

Re : Faire une action sur plusieurs onglets

Bjr Elo

Comme ceci ?

With Sheets(Array("A-1", "A prévisionnelle"))

A tester, cordialement, Gérard

 

[stefan373]

Re : Faire une action sur plusieurs onglets

Bonjour Elo6b et le forum,

Erreur de ma part. Désolé

A + Stéfan

 

[tototiti2008]

Re : Faire une action sur plusieurs onglets

Bonjour Elo6b, Bonjour natorp, Bonjour stefan,

à tester

Dim Sht As Worksheet, n As Long
    For Each Sht In Sheets(Array("A-1", "A previsionnel"))
        With Sht
        Select Case n
            Case 1
                .Columns("h:gz").Hidden = False
                .Range("I:L,o:P,T:Y,AA:AC,AE:EZ,FC:FF,FH:FK,FM:FP,FR:FU,FW:fz").EntireColumn.Hidden = True
                .Activate
                .Range("G9").Select
            End Select
        End With
    Next

 

[stefan373]

Re : Faire une action sur plusieurs onglets

Re,

Bonjour tototiti2008,

Je réédite ma réflexion , si on met

select case n

puis

case 1

cela va t'il fonctionner ?
Ne faut-il pas mettre ?

case n

Merci et a plus Stéfan

 

[tototiti2008]

Re : Faire une action sur plusieurs onglets

Re,

le

case 1

est un Case "un", pas un Case "L", pas toujours facile à lire avec cette police
mais de toute façon on a pas le début du code qui définit la variable n, et il pourrait tout à fait y avoir une autre variable L définie avant de la même manière

 

[stefan373]

Re : Faire une action sur plusieurs onglets

Re, re,

Effectivement il y a peut-être une partie du code non dévoilée, mais en l'état du code envoyé, je pense qu'il ne ce passerai rien. et j'avais bien lu 1 et pas l.

Merci pour votre réponse.

A + Stéfan

 

[tototiti2008]

Re : Faire une action sur plusieurs onglets

Re,

Oui, il doit nous manquer du code

Select Case n
    Case 1

Signifie : teste la valeur de la variable n
Si elle vaut 1, fait ce qui suit, jusqu'au prochain Case ou jusqu'au End Select
En général on fait un Select Case quand il y a beaucoup de cas, le fait qu'il n'y en ait qu'un veut surement dire qu'il ne nous a pas fourni les autres cas
Je ne sais pas si je répond à ta question, je ne sais pas ce qui te gène dans l'écriture...

Edit : si n n'est pas défini dans la première partie du code, en effet, il ne se passera rien puisque n ne sera pas égal à 1, d'accord avec toi

 

[stefan373]

Re : Faire une action sur plusieurs onglets

Re, re, re,

C'est bien ce que ma pensée me disait, mais effectivement vous avez encore une fois raison car aucun intérêt d'utiliser le Case avec une seule possibilité.

Un grand merci pour votre explication.

A + Stéfan

 

[Elo6b]

Re : Faire une action sur plusieurs onglets

Effectivement j'ai 11 cas qui s'imbriquaient.
Si n=1 alors c'est le cas que j'avais mis.
Par contre si n=2, colonnes différentes masquées, etc...
Comment dois-je faire après le next? Faut-il reprendre :
Dim Sht As Worksheet, n As Long
For Each Sht In Sheets(Array("A-1", "A previsionnel"))
With Sht
Select Case n
Case 2
.Columns("h:gz").Hidden = False
.Range("I:L,o,T:Y,AA:AC").EntireColumn.Hidden = True
.Activate
.Range("G9").Select
End Select
End With
Next
Et refaire pareil pour chaque n?
En vous remerciant de votre aide!

 

[tototiti2008]

Re : Faire une action sur plusieurs onglets

Re,

Si tu vas en mode avancé quand tu écris ton message, tu as une balise code (#) qui permet de poster du code de façon plus lisible

ça devrait donner un truc comme ça

For Each Sht In Sheets(Array("A-1", "A previsionnel"))
        With Sht
        Select Case n
        Case 1
         .Columns("h:gz").Hidden = False
         .Range("I:L,o:P,T:Y,AA:AC,AE:EZ,FC:FF,FH:FK,FM:FP,FR:FU,FW:fz").EntireColumn.Hidden = True
         .Activate
         .Range("G9").Select
            Case 2
                .Columns("h:gz").Hidden = False
                .Range("I:L,o:P,T:Y,AA:AC").EntireColumn.Hidden = True
                .Activate
                .Range("G9").Select
            End Select
        End With
    Next

 

[Elo6b]

Re : Faire une action sur plusieurs onglets

Ca ne fonctionne pas... Bug au niveau de la ligne

For Each Sht In Sheets(Array("A-1", "A previsionnelle"))

Je mets le fichier en pièce jointe
Merci de vos aides!

 

[kjin]

Re : Faire une action sur plusieurs onglets

Bonsoir, salut Tototiti
Cette discussion aurait-elle une vague ressemblance avec celle de ce fil
Si c'est le cas, je m'interroge et je me demande pourquoi D...se décarcasse t-il !
A+
kjin

 

[Elo6b]

Re : Faire une action sur plusieurs onglets

Bonsoir kjin,
C'est le même fichier mais avec des soucis différents!
Sur la précédente discussion, le but était de faire un affichage dépend de 2 cellules.
ici, j'y arrive (grâce à vous!) sur un onglet mais pas sur 2 à la fois (les 2 onglets sont construits de manière identiques).
Je n'arrive pas à faire parcourir l'action sur les 2 onglets.
Merci de votre aide et bonne soirée!

 

[kjin]

Re : Faire une action sur plusieurs onglets

Bonsoir,

C'est le même fichier mais avec des soucis différents!

Mouais ! Inutile de multiposter sur le même sujet, on fini par ne plus suivre le fil...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$24" Or Target.Count > 1 Then Exit Sub
n = [choix_actuel]
For Each ws In Sheets
    Select Case ws.Name
    Case "A-1", "A Prévisionnelle"
    With ws
        Select Case n
        Case 1 To 5
            .Columns("H:FZ").Hidden = True
            x1 = (n * 30) - 22
            x2 = (n * 30) + 6
            .Range(.Columns(x1), .Columns(x2)).Hidden = False
            For x3 = 1 To 5
                .Columns(x3 * 5 + 152 + n).Hidden = False
            Next
        Case 6
            .Columns("H:FZ").Hidden = False
        End Select
    End With
    End Select
Next
End Sub

Mais il est vrai que je n'ai pas traité les cas > 6 car je pensais que tu pourrais compléter (je t'ai répondu sur ce fil)
Reviens si ce n'est pas le cas
A+
kjin