Afficher 1 page précise

Bonjour
Avant de reselectionner la feuille ("80"), il faut réactiver le
rafraichissement de l'écran : Application.ScreenUpdating = true



"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 83337354-8C1A-4B16-A975-657E946F174C@microsoft.com...

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

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-nospam@neuf.fr

"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news:AD4F4A32-9EAA-4FB8-9071-6048C8F3EE3A@microsoft.com...

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-nospam@neuf.fr

ta proc CYCLE80 fonctionne très bien chez moi !
--
Cordialement
jpmonnier-nospam@neuf.fr
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news:AD4F4A32-9EAA-4FB8-9071-6048C8F3EE3A@microsoft.com...

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-nospam@neuf.fr

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
jpmonnier-nospam@neuf.fr
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news:AD4F4A32-9EAA-4FB8-9071-6048C8F3EE3A@microsoft.com...
> 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-nospam@neuf.fr