Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Afficher 1 page précise

Afficher 1 page précise

5 réponses
Avatar
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
-----
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Mima
Bonjour
Avant de reselectionner la feuille ("80"), il faut réactiver le
rafraichissement de l'écran : Application.ScreenUpdating = true



"Sunburn" a écrit dans le message de
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
-----


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



Avatar
JPMonnier
"Sunburn" a écrit dans le message de
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





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

"Sunburn" a écrit dans le message de
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





Avatar
Sunburn
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" a écrit dans le message de
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
>>