J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse,
Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque
soient leurs noms !).
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
anonymousA
Bonjour,
with Sheets .Item(1).Visible = true .Item(Sheets.Count - 1).Visible = true .Item(Sheets.Count - 2).Visible = true end with
A+
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse, Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque soient leurs noms !).
D'avance merci pour vos réponses éventuelles.
Bonjour,
with Sheets
.Item(1).Visible = true
.Item(Sheets.Count - 1).Visible = true
.Item(Sheets.Count - 2).Visible = true
end with
A+
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse,
Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque
soient leurs noms !).
with Sheets .Item(1).Visible = true .Item(Sheets.Count - 1).Visible = true .Item(Sheets.Count - 2).Visible = true end with
A+
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse, Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque soient leurs noms !).
D'avance merci pour vos réponses éventuelles.
Elliac
Bonjour,
Sub Macro1() n = ActiveWorkbook.Sheets.Count Sheets(1).Visible = True Sheets(n - 1).Visible = True Sheets(n).Visible = True End Sub
Camille
"j-pascal" wrote:
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse, Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque soient leurs noms !).
D'avance merci pour vos réponses éventuelles.
-- Cordialement @+ j.p
Bonjour,
Sub Macro1()
n = ActiveWorkbook.Sheets.Count
Sheets(1).Visible = True
Sheets(n - 1).Visible = True
Sheets(n).Visible = True
End Sub
Camille
"j-pascal" wrote:
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse,
Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque
soient leurs noms !).
Sub Macro1() n = ActiveWorkbook.Sheets.Count Sheets(1).Visible = True Sheets(n - 1).Visible = True Sheets(n).Visible = True End Sub
Camille
"j-pascal" wrote:
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse, Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque soient leurs noms !).
D'avance merci pour vos réponses éventuelles.
-- Cordialement @+ j.p
j-pascal
Merci beaucoup !
JP
"anonymousA" a écrit dans le message de news: 45dd75ad$0$25924$
Bonjour,
with Sheets .Item(1).Visible = true .Item(Sheets.Count - 1).Visible = true .Item(Sheets.Count - 2).Visible = true end with
A+
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse, Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque soient leurs noms !).
D'avance merci pour vos réponses éventuelles.
Merci beaucoup !
JP
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
45dd75ad$0$25924$ba4acef3@news.orange.fr...
Bonjour,
with Sheets
.Item(1).Visible = true
.Item(Sheets.Count - 1).Visible = true
.Item(Sheets.Count - 2).Visible = true
end with
A+
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse,
Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque
soient leurs noms !).
"anonymousA" a écrit dans le message de news: 45dd75ad$0$25924$
Bonjour,
with Sheets .Item(1).Visible = true .Item(Sheets.Count - 1).Visible = true .Item(Sheets.Count - 2).Visible = true end with
A+
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse, Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque soient leurs noms !).
D'avance merci pour vos réponses éventuelles.
j-pascal
Merci beaucoup !
JP
"Elliac" a écrit dans le message de news:
Bonjour,
Sub Macro1() n = ActiveWorkbook.Sheets.Count Sheets(1).Visible = True Sheets(n - 1).Visible = True Sheets(n).Visible = True End Sub
Camille
"j-pascal" wrote:
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse, Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque soient leurs noms !).
D'avance merci pour vos réponses éventuelles.
-- Cordialement @+ j.p
Merci beaucoup !
JP
"Elliac" <Elliac@discussions.microsoft.com> a écrit dans le message de news:
B51A9C0B-9880-4568-9910-0126987D8681@microsoft.com...
Bonjour,
Sub Macro1()
n = ActiveWorkbook.Sheets.Count
Sheets(1).Visible = True
Sheets(n - 1).Visible = True
Sheets(n).Visible = True
End Sub
Camille
"j-pascal" wrote:
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse,
Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque
soient leurs noms !).
Sub Macro1() n = ActiveWorkbook.Sheets.Count Sheets(1).Visible = True Sheets(n - 1).Visible = True Sheets(n).Visible = True End Sub
Camille
"j-pascal" wrote:
Bonjour à tous,
J'ai un classeur qui contient un nombre variable d'onglets.
J'ai une macro pour les masquer en une seule fois. A l'inverse, Je souhaiterais afficher l'onglet n°1 et les 2 derniers onglets (quelque soient leurs noms !).
