Bonjour,
je voudrais savoir comment afficher une feuille en fonction de sa propriété
visible.
j'explique : j'ai trois onglets qui sont masqués à l'origine
("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie dans
la cellule G28 de la feuille 3C.
j'ai une barre d'outils avec un raccourci pour accéder à cette feuille
précise, sauf si aucune n'est visible, alors visualiser la feuille "3C"
voici mon code, mais ça ne fonctionne pas.
-----
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select
Sheets("3C").Select
End Sub
-----
Merci
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
poc
Bonjour, Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else Sheets("3C").Select End Sub à+ Poc
"Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment afficher une feuille en fonction de sa propriété visible. j'explique : j'ai trois onglets qui sont masqués à l'origine ("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie dans la cellule G28 de la feuille 3C. j'ai une barre d'outils avec un raccourci pour accéder à cette feuille précise, sauf si aucune n'est visible, alors visualiser la feuille "3C" voici mon code, mais ça ne fonctionne pas. ----- Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Sheets("3C").Select End Sub ----- Merci
Bonjour,
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else
Sheets("3C").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else
Sheets("3C").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else
Sheets("3C").Select
End Sub
à+
Poc
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 325D43C4-BEFC-4A73-9B59-0766F5A921A0@microsoft.com...
Bonjour,
je voudrais savoir comment afficher une feuille en fonction de sa
propriété
visible.
j'explique : j'ai trois onglets qui sont masqués à l'origine
("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie
dans
la cellule G28 de la feuille 3C.
j'ai une barre d'outils avec un raccourci pour accéder à cette feuille
précise, sauf si aucune n'est visible, alors visualiser la feuille "3C"
voici mon code, mais ça ne fonctionne pas.
-----
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select
Sheets("3C").Select
End Sub
-----
Merci
Bonjour, Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else Sheets("3C").Select End Sub à+ Poc
"Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment afficher une feuille en fonction de sa propriété visible. j'explique : j'ai trois onglets qui sont masqués à l'origine ("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie dans la cellule G28 de la feuille 3C. j'ai une barre d'outils avec un raccourci pour accéder à cette feuille précise, sauf si aucune n'est visible, alors visualiser la feuille "3C" voici mon code, mais ça ne fonctionne pas. ----- Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Sheets("3C").Select End Sub ----- Merci
Sunburn
Bonjour, en fait, il revient à chaque fois sur l'onglet "3c", alors que la feuille est visible (je vois l'onglet. Merci si tu vois pourquoi ça bug. Yann
Bonjour, Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else Sheets("3C").Select End Sub à+ Poc
"Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment afficher une feuille en fonction de sa propriété visible. j'explique : j'ai trois onglets qui sont masqués à l'origine ("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie dans la cellule G28 de la feuille 3C. j'ai une barre d'outils avec un raccourci pour accéder à cette feuille précise, sauf si aucune n'est visible, alors visualiser la feuille "3C" voici mon code, mais ça ne fonctionne pas. ----- Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Sheets("3C").Select End Sub ----- Merci
Bonjour,
en fait, il revient à chaque fois sur l'onglet "3c", alors que la feuille
est visible (je vois l'onglet.
Merci si tu vois pourquoi ça bug.
Yann
Bonjour,
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else
Sheets("3C").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else
Sheets("3C").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else
Sheets("3C").Select
End Sub
à+
Poc
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 325D43C4-BEFC-4A73-9B59-0766F5A921A0@microsoft.com...
Bonjour,
je voudrais savoir comment afficher une feuille en fonction de sa
propriété
visible.
j'explique : j'ai trois onglets qui sont masqués à l'origine
("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie
dans
la cellule G28 de la feuille 3C.
j'ai une barre d'outils avec un raccourci pour accéder à cette feuille
précise, sauf si aucune n'est visible, alors visualiser la feuille "3C"
voici mon code, mais ça ne fonctionne pas.
-----
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select
Sheets("3C").Select
End Sub
-----
Merci
Bonjour, en fait, il revient à chaque fois sur l'onglet "3c", alors que la feuille est visible (je vois l'onglet. Merci si tu vois pourquoi ça bug. Yann
Bonjour, Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else Sheets("3C").Select End Sub à+ Poc
"Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment afficher une feuille en fonction de sa propriété visible. j'explique : j'ai trois onglets qui sont masqués à l'origine ("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie dans la cellule G28 de la feuille 3C. j'ai une barre d'outils avec un raccourci pour accéder à cette feuille précise, sauf si aucune n'est visible, alors visualiser la feuille "3C" voici mon code, mais ça ne fonctionne pas. ----- Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Sheets("3C").Select End Sub ----- Merci
poc
Autant pour moi, Maintenant cela devrait fonctionner
Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else Sheets("3C").Select exit sub If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else Sheets("3C").Select exit sub If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else Sheets("3C").Select End Sub
Cordialement Poc
"Sunburn" a écrit dans le message de news:
Bonjour, en fait, il revient à chaque fois sur l'onglet "3c", alors que la feuille est visible (je vois l'onglet. Merci si tu vois pourquoi ça bug. Yann
Bonjour, Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else Sheets("3C").Select End Sub à+ Poc
"Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment afficher une feuille en fonction de sa propriété visible. j'explique : j'ai trois onglets qui sont masqués à l'origine ("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie dans la cellule G28 de la feuille 3C. j'ai une barre d'outils avec un raccourci pour accéder à cette feuille précise, sauf si aucune n'est visible, alors visualiser la feuille "3C" voici mon code, mais ça ne fonctionne pas. ----- Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Sheets("3C").Select End Sub ----- Merci
Autant pour moi,
Maintenant cela devrait fonctionner
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else
Sheets("3C").Select
exit sub
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else
Sheets("3C").Select
exit sub
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else
Sheets("3C").Select
End Sub
Cordialement
Poc
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 40B28212-54D9-43F5-8040-D69EFD03713F@microsoft.com...
Bonjour,
en fait, il revient à chaque fois sur l'onglet "3c", alors que la feuille
est visible (je vois l'onglet.
Merci si tu vois pourquoi ça bug.
Yann
Bonjour,
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else
Sheets("3C").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else
Sheets("3C").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else
Sheets("3C").Select
End Sub
à+
Poc
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 325D43C4-BEFC-4A73-9B59-0766F5A921A0@microsoft.com...
Bonjour,
je voudrais savoir comment afficher une feuille en fonction de sa
propriété
visible.
j'explique : j'ai trois onglets qui sont masqués à l'origine
("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie
dans
la cellule G28 de la feuille 3C.
j'ai une barre d'outils avec un raccourci pour accéder à cette feuille
précise, sauf si aucune n'est visible, alors visualiser la feuille "3C"
voici mon code, mais ça ne fonctionne pas.
-----
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select
Sheets("3C").Select
End Sub
-----
Merci
Autant pour moi, Maintenant cela devrait fonctionner
Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else Sheets("3C").Select exit sub If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else Sheets("3C").Select exit sub If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else Sheets("3C").Select End Sub
Cordialement Poc
"Sunburn" a écrit dans le message de news:
Bonjour, en fait, il revient à chaque fois sur l'onglet "3c", alors que la feuille est visible (je vois l'onglet. Merci si tu vois pourquoi ça bug. Yann
Bonjour, Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else Sheets("3C").Select End Sub à+ Poc
"Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment afficher une feuille en fonction de sa propriété visible. j'explique : j'ai trois onglets qui sont masqués à l'origine ("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie dans la cellule G28 de la feuille 3C. j'ai une barre d'outils avec un raccourci pour accéder à cette feuille précise, sauf si aucune n'est visible, alors visualiser la feuille "3C" voici mon code, mais ça ne fonctionne pas. ----- Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Sheets("3C").Select End Sub ----- Merci
poc
Ouh là, ce serait plutôt :
Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select : Exit Sub Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select : Exit Sub Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select : Exit Sub Else Sheets("3C").Select End Sub
Cordialement Poc
"Sunburn" a écrit dans le message de news:
Bonjour, en fait, il revient à chaque fois sur l'onglet "3c", alors que la feuille est visible (je vois l'onglet. Merci si tu vois pourquoi ça bug. Yann
Bonjour, Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else Sheets("3C").Select End Sub à+ Poc
"Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment afficher une feuille en fonction de sa propriété visible. j'explique : j'ai trois onglets qui sont masqués à l'origine ("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie dans la cellule G28 de la feuille 3C. j'ai une barre d'outils avec un raccourci pour accéder à cette feuille précise, sauf si aucune n'est visible, alors visualiser la feuille "3C" voici mon code, mais ça ne fonctionne pas. ----- Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Sheets("3C").Select End Sub ----- Merci
Ouh là, ce serait plutôt :
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select : Exit
Sub Else
Sheets("3C").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select : Exit
Sub Else
Sheets("3C").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select : Exit Sub
Else
Sheets("3C").Select
End Sub
Cordialement
Poc
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 40B28212-54D9-43F5-8040-D69EFD03713F@microsoft.com...
Bonjour,
en fait, il revient à chaque fois sur l'onglet "3c", alors que la feuille
est visible (je vois l'onglet.
Merci si tu vois pourquoi ça bug.
Yann
Bonjour,
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else
Sheets("3C").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else
Sheets("3C").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else
Sheets("3C").Select
End Sub
à+
Poc
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 325D43C4-BEFC-4A73-9B59-0766F5A921A0@microsoft.com...
Bonjour,
je voudrais savoir comment afficher une feuille en fonction de sa
propriété
visible.
j'explique : j'ai trois onglets qui sont masqués à l'origine
("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie
dans
la cellule G28 de la feuille 3C.
j'ai une barre d'outils avec un raccourci pour accéder à cette feuille
précise, sauf si aucune n'est visible, alors visualiser la feuille "3C"
voici mon code, mais ça ne fonctionne pas.
-----
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select
Sheets("3C").Select
End Sub
-----
Merci
Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select : Exit Sub Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select : Exit Sub Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select : Exit Sub Else Sheets("3C").Select End Sub
Cordialement Poc
"Sunburn" a écrit dans le message de news:
Bonjour, en fait, il revient à chaque fois sur l'onglet "3c", alors que la feuille est visible (je vois l'onglet. Merci si tu vois pourquoi ça bug. Yann
Bonjour, Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Else Sheets("3C").Select End Sub à+ Poc
"Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment afficher une feuille en fonction de sa propriété visible. j'explique : j'ai trois onglets qui sont masqués à l'origine ("VS2.sa","VS2.sarl","VS2.sas"). Seul l'un est visible après une saisie dans la cellule G28 de la feuille 3C. j'ai une barre d'outils avec un raccourci pour accéder à cette feuille précise, sauf si aucune n'est visible, alors visualiser la feuille "3C" voici mon code, mais ça ne fonctionne pas. ----- Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select Sheets("3C").Select End Sub ----- Merci
Sunburn
Je te remercie, là c'est impecable.
Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select : Exit Sub Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select : Exit Sub Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select : Exit Sub Else Sheets("3C").Select End Sub
Cordialement Poc
Je te remercie, là c'est impecable.
Sub FEUILVS2()
On Error Resume Next
If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select : Exit Sub Else
Sheets("3C").Select
If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select : Exit Sub Else
Sheets("3C").Select
If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select : Exit Sub Else
Sheets("3C").Select
End Sub
Sub FEUILVS2() On Error Resume Next If Sheets("VS2.sarl").Visible = True Then Sheets("VS2.sarl").Select : Exit Sub Else Sheets("3C").Select If Sheets("VS2.sas").Visible = True Then Sheets("VS2.sas").Select : Exit Sub Else Sheets("3C").Select If Sheets("VS2.sa").Visible = True Then Sheets("VS2.sa").Select : Exit Sub Else Sheets("3C").Select End Sub