Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA cacher les feuilles dune cellule

VBA cacher les feuilles dune cellule

2 réponses
Avatar
serge
Bonjour,

J’ai une cellule qui contient des noms de feuilles séparées par une virgule :

Exemple : feuil1,feuil_2, feuille4,

Je cherche a ecrire un morceau de VBA qui cache ses feuilles…
Mon probleme est :

Comment ecrire cette boucle lisant une variable et prenant en compte chaque
feuille (entre virgules) ? une petite idee ?

Merci encore,

Serge
Signaler un problème avec ce contenu

2 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
JB
Bonjour,

[A1] de feuil1 contient Feuil2,Feuil3

a = Split([A1], ",")
Sheets(a).Select
ActiveWindow.SelectedSheets.Visible = False

ou

a = Split([A1], ",")
For i = LBound(a) To UBound(a)
Sheets(a(i)).Visible = False
Next i

Cordialement JB


Bonjour,

J'ai une cellule qui contient des noms de feuilles séparées par une v irgule :

Exemple : feuil1,feuil_2, feuille4,

Je cherche a ecrire un morceau de VBA qui cache ses feuilles...
Mon probleme est :

Comment ecrire cette boucle lisant une variable et prenant en compte chaq ue
feuille (entre virgules) ? une petite idee ?

Merci encore,

Serge


Avatar
AV
Avec ta chaîne en A1 de "Feuil1" :

Sub zzz()
Sheets(Split([Feuil1!A1], ",")).Visible = False
End Sub

AV