Faire une action sur plusieurs onglets

Elo6b · 29 Novembre 2012

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 · 29 Novembre 2012

Re : Faire une action sur plusieurs onglets

Bjr Elo

Comme ceci ?

Code:

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

A tester, cordialement, Gérard

stefan373 · 29 Novembre 2012

Re : Faire une action sur plusieurs onglets

Bonjour Elo6b et le forum,

Erreur de ma part. Désolé

A + Stéfan

tototiti2008 · 29 Novembre 2012

Re : Faire une action sur plusieurs onglets

Bonjour Elo6b, Bonjour natorp, Bonjour stefan,

à tester

Code:

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 · 29 Novembre 2012

Re : Faire une action sur plusieurs onglets

Re,

Bonjour tototiti2008,

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

Code:

select case n

puis

Code:

case 1

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

Code:

case n

Merci et a plus Stéfan

tototiti2008 · 29 Novembre 2012

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 · 29 Novembre 2012

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 · 29 Novembre 2012

Re : Faire une action sur plusieurs onglets

Re,

Oui, il doit nous manquer du code

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 · 29 Novembre 2012

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 · 29 Novembre 2012

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 · 29 Novembre 2012

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

Code:

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 · 29 Novembre 2012

Re : Faire une action sur plusieurs onglets

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

Code:

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

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

kjin · 29 Novembre 2012

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 · 29 Novembre 2012

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 · 30 Novembre 2012

Re : Faire une action sur plusieurs onglets

Bonsoir,

Elo6b à dit:
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...

Code:

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

Faire une action sur plusieurs onglets

Elo6b

XLDnaute Nouveau

natorp

XLDnaute Accro

stefan373

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

stefan373

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

stefan373

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

stefan373

XLDnaute Occasionnel

Elo6b

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

Elo6b

XLDnaute Nouveau

Pièces jointes

kjin

XLDnaute Barbatruc

Elo6b

XLDnaute Nouveau

kjin

XLDnaute Barbatruc

Discussions similaires