Afficher 1 page précise

Le
Sunburn
J'ai cette macro, et je n'arrive pas à la ce que l'onglet qui s'affiche soit
l'onglet "80", et non pas l'onglet "DA" comme actuellement;
Merci de votre aide. YANN
-
Sub CYCLE80()
Application.ScreenUpdating = False
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("80").Visible = True
Sheets("80_41").Visible = True
With Sheets("DA")
If .[G40] = "IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "BA IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "IS" Then Sheets("80_21").Visible = True: Exit Sub Else
End With
Sheets("80").Select
Sheets("80").Activate
End Sub
--
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Mima
Le #17598591
Bonjour
Avant de reselectionner la feuille ("80"), il faut réactiver le
rafraichissement de l'écran : Application.ScreenUpdating = true



"Sunburn" news:
J'ai cette macro, et je n'arrive pas à la ce que l'onglet qui s'affiche
soit
l'onglet "80", et non pas l'onglet "DA" comme actuellement;
Merci de votre aide. YANN
----
Sub CYCLE80()
Application.ScreenUpdating = False
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("80").Visible = True
Sheets("80_41").Visible = True
With Sheets("DA")
If .[G40] = "IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "BA IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "IS" Then Sheets("80_21").Visible = True: Exit Sub Else
End With
Sheets("80").Select
Sheets("80").Activate
End Sub
-----


Sunburn
Le #17598911
Salut,
ben en fait, j'ai mis ta proc, mais ça ne fonctionne toujours pas, "DA" est
toujours visible et actif. Je te remet ma proc, avec ma macro CYCLE70 qui est
presque la même que CYCLE80, mais qui fonctionne car "70" est active, et "DA"
est visible.
je veux l'onglet "DA" visible, mais "80" l'onglet actif. Avec le mention de
Mima (Application.ScreenUpdating = True), ça marche pas quand même.
Merci YANN
-----
Sub CYCLE70()
Application.ScreenUpdating = False
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("70").Visible = True
Sheets("70_21").Visible = True
Sheets("70_22").Visible = True
Sheets("70_31").Visible = True
Sheets("70").Activate
End Sub
Sub CYCLE80()
Application.ScreenUpdating = False
Sheets("DA").Visible = True
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("80").Visible = True
Sheets("80_41").Visible = True
With Sheets("DA")
If .[G40] = "IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "BA IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "IS" Then Sheets("80_21").Visible = True: Exit Sub Else
End With
'Application.ScreenUpdating = True
Sheets("80").Select
Sheets("80").Activate
Sheets("DA").Visible = False
End Sub
------

"JPMonnier" a écrit :

Salut,
Ta procédure affiche bien l'onglet "80"
si tu ne veux pas voir "DA" modifie ta proc comme ceci

Sub CYCLE80()
Application.ScreenUpdating = False
Sheets("da").Visible = True
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("80").Visible = True
Sheets("80_41").Visible = True
With Sheets("DA")
If .[G40] = "IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "BA IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "IS" Then Sheets("80_21").Visible = True: Exit Sub Else
End With
Sheets("80").Select
Sheets("80").Activate
Sheets("da").Visible = False
End Sub
--
Cordialement



JPMonnier
Le #17599811
"Sunburn" news:
Salut,
ben en fait, j'ai mis ta proc, mais ça ne fonctionne toujours pas, "DA"
est
toujours visible et actif. Je te remet ma proc, avec ma macro CYCLE70 qui
est
presque la même que CYCLE80, mais qui fonctionne car "70" est active, et
"DA"
est visible.
je veux l'onglet "DA" visible, mais "80" l'onglet actif. Avec le mention
de
Mima (Application.ScreenUpdating = True), ça marche pas quand même.
Merci YANN
-----
Sub CYCLE70()
Application.ScreenUpdating = False
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("70").Visible = True
Sheets("70_21").Visible = True
Sheets("70_22").Visible = True
Sheets("70_31").Visible = True
Sheets("70").Activate
End Sub
Sub CYCLE80()
Application.ScreenUpdating = False
Sheets("DA").Visible = True
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("80").Visible = True
Sheets("80_41").Visible = True
With Sheets("DA")
If .[G40] = "IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "BA IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "IS" Then Sheets("80_21").Visible = True: Exit Sub Else
End With
'Application.ScreenUpdating = True
Sheets("80").Select
Sheets("80").Activate
Sheets("DA").Visible = False
End Sub
------

"JPMonnier" a écrit :

Salut,
Ta procédure affiche bien l'onglet "80"
si tu ne veux pas voir "DA" modifie ta proc comme ceci

Sub CYCLE80()
Application.ScreenUpdating = False
Sheets("da").Visible = True
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("80").Visible = True
Sheets("80_41").Visible = True
With Sheets("DA")
If .[G40] = "IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "BA IR" Then Sheets("80_11").Visible = True: Exit Sub
Else
If .[G40] = "IS" Then Sheets("80_21").Visible = True: Exit Sub Else
End With
Sheets("80").Select
Sheets("80").Activate
Sheets("da").Visible = False
End Sub
--
Cordialement





JPMonnier
Le #17599801
ta proc CYCLE80 fonctionne très bien chez moi !
--
Cordialement

"Sunburn" news:
Salut,
ben en fait, j'ai mis ta proc, mais ça ne fonctionne toujours pas, "DA"
est
toujours visible et actif. Je te remet ma proc, avec ma macro CYCLE70 qui
est
presque la même que CYCLE80, mais qui fonctionne car "70" est active, et
"DA"
est visible.
je veux l'onglet "DA" visible, mais "80" l'onglet actif. Avec le mention
de
Mima (Application.ScreenUpdating = True), ça marche pas quand même.
Merci YANN
-----
Sub CYCLE70()
Application.ScreenUpdating = False
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("70").Visible = True
Sheets("70_21").Visible = True
Sheets("70_22").Visible = True
Sheets("70_31").Visible = True
Sheets("70").Activate
End Sub
Sub CYCLE80()
Application.ScreenUpdating = False
Sheets("DA").Visible = True
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("80").Visible = True
Sheets("80_41").Visible = True
With Sheets("DA")
If .[G40] = "IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "BA IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "IS" Then Sheets("80_21").Visible = True: Exit Sub Else
End With
'Application.ScreenUpdating = True
Sheets("80").Select
Sheets("80").Activate
Sheets("DA").Visible = False
End Sub
------

"JPMonnier" a écrit :

Salut,
Ta procédure affiche bien l'onglet "80"
si tu ne veux pas voir "DA" modifie ta proc comme ceci

Sub CYCLE80()
Application.ScreenUpdating = False
Sheets("da").Visible = True
For Each F In ActiveWorkbook.Sheets
If F.Name <> "DA" Then F.Visible = False
Next
Sheets("80").Visible = True
Sheets("80_41").Visible = True
With Sheets("DA")
If .[G40] = "IR" Then Sheets("80_11").Visible = True: Exit Sub Else
If .[G40] = "BA IR" Then Sheets("80_11").Visible = True: Exit Sub
Else
If .[G40] = "IS" Then Sheets("80_21").Visible = True: Exit Sub Else
End With
Sheets("80").Select
Sheets("80").Activate
Sheets("da").Visible = False
End Sub
--
Cordialement





Sunburn
Le #17600291
ben, pas chez moi.
C'est pas grave, je vais y retravaillé.
merci

"JPMonnier" a écrit :

ta proc CYCLE80 fonctionne très bien chez moi !
--
Cordialement

"Sunburn" news:
> Salut,
> ben en fait, j'ai mis ta proc, mais ça ne fonctionne toujours pas, "DA"
> est
> toujours visible et actif. Je te remet ma proc, avec ma macro CYCLE70 qui
> est
> presque la même que CYCLE80, mais qui fonctionne car "70" est active, et
> "DA"
> est visible.
> je veux l'onglet "DA" visible, mais "80" l'onglet actif. Avec le mention
> de
> Mima (Application.ScreenUpdating = True), ça marche pas quand même.
> Merci YANN
> -----
> Sub CYCLE70()
> Application.ScreenUpdating = False
> For Each F In ActiveWorkbook.Sheets
> If F.Name <> "DA" Then F.Visible = False
> Next
> Sheets("70").Visible = True
> Sheets("70_21").Visible = True
> Sheets("70_22").Visible = True
> Sheets("70_31").Visible = True
> Sheets("70").Activate
> End Sub
> Sub CYCLE80()
> Application.ScreenUpdating = False
> Sheets("DA").Visible = True
> For Each F In ActiveWorkbook.Sheets
> If F.Name <> "DA" Then F.Visible = False
> Next
> Sheets("80").Visible = True
> Sheets("80_41").Visible = True
> With Sheets("DA")
> If .[G40] = "IR" Then Sheets("80_11").Visible = True: Exit Sub Else
> If .[G40] = "BA IR" Then Sheets("80_11").Visible = True: Exit Sub Else
> If .[G40] = "IS" Then Sheets("80_21").Visible = True: Exit Sub Else
> End With
> 'Application.ScreenUpdating = True
> Sheets("80").Select
> Sheets("80").Activate
> Sheets("DA").Visible = False
> End Sub
> ------
>
> "JPMonnier" a écrit :
>
>> Salut,
>> Ta procédure affiche bien l'onglet "80"
>> si tu ne veux pas voir "DA" modifie ta proc comme ceci
>>
>> Sub CYCLE80()
>> Application.ScreenUpdating = False
>> Sheets("da").Visible = True
>> For Each F In ActiveWorkbook.Sheets
>> If F.Name <> "DA" Then F.Visible = False
>> Next
>> Sheets("80").Visible = True
>> Sheets("80_41").Visible = True
>> With Sheets("DA")
>> If .[G40] = "IR" Then Sheets("80_11").Visible = True: Exit Sub Else
>> If .[G40] = "BA IR" Then Sheets("80_11").Visible = True: Exit Sub
>> Else
>> If .[G40] = "IS" Then Sheets("80_21").Visible = True: Exit Sub Else
>> End With
>> Sheets("80").Select
>> Sheets("80").Activate
>> Sheets("da").Visible = False
>> End Sub
>> --
>> Cordialement
>>




Publicité
Poster une réponse
Anonyme