Macro+feuille

[Dohko]

D'abord,
Bonjour (ou bonsoir) à tous et à toutes

Je souhaite mettre en place un sommaire : (ci-joint)

Colonne A : Le nom des feuilles (1,2,3,...)
Colonne B : La description (+ lien hypertexte)
Colonne C : Feuille Utilisée OUI/NON (par validation)

Je souhaite ajouter une macro que masquerait les feuilles pour lesquelles il y a "NON" dans la colonne C.

J'ai déjà écris une partie du code (bouton 1)

Je pense que le code pourrais être simplifié

De plus, je souhaite que la feuille soit affichée si un "OUI" est mis ! 😀

Donc, si quelqu'un pouvais m'aider !

Merci d'avance.

 

[jeanpierre]

Re : Macro+feuille

Bonsoir Dohko et Bienvenue sur XLD,

Impossible d'ouvrir ton fichier.....

Protégé par un mot de passe avec un chiffrement non disponible.... etc... etc....

Revoir donc.

A te lire et bonne soirée.

Jean-Pierre

 

[Dohko]

Re : Macro+feuille

J'ai trouver un code,

Toutefois, je pense que la macro peut être amélioré,

car je dois dupliquer la fonction pour chaque feuille.

Je pensait utiliser un for (For 3 to i,....)

Si quelqu'un à une idée ?

Merci d'avance.

 

[mromain]

Re : Macro+feuille

Bonjour le fil, Dohko

je te propose cette solution:

Sub CommandButton1_Click()

 
'Enveler la protection du classeur Excel
ActiveWorkbook.Unprotect Password:="123"
  
'Afficher le sommaire
Sheets("Sommaire").Select

Dim curCell As Excel.Range, sheetName As String
Set curCell = ThisWorkbook.Sheets("Sommaire").Range("A3")   'se mettre sur la cellule de la première feuille

While curCell.Value <> vbNullString 'faire une boucle sur chaque ligne correspondant aux feuilles
    sheetName = curCell.Value
    If UCase(curCell.Offset(0, 2).Value) = "OUI" Then
        ThisWorkbook.Sheets(sheetName).Visible = True
    ElseIf UCase(curCell.Offset(0, 2).Value) = "NON" Then
        ThisWorkbook.Sheets(sheetName).Visible = False
    End If
    Set curCell = curCell.Offset(1, 0)  'passer à l'autre feuille
Wend

'Mettre la protection du classeur
ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False

'retourner au sommaire
Sheets("Sommaire").Select

End Sub

a+

 

[Dull]

Re : Macro+feuille

Salut Dohko et bienvenu, jeanpierre, mromain, le Forum

Une autre version au changement d'une cellule de la feuille

Bonne Journée

 

[mromain]

Re : Macro+feuille

Salut Dull

faut vérifier dans ton code qu'on modifie la bonne colonne, car si on modifie la colonne A par exemple, la macro bugge (à cause du offset)
sinon, c'est génial

a+

 

[Dull]

Re : Macro+feuille

Bien vu 🙂 (moijel'aimauvaise...lavue) 😀

Une nouvelle version qui prend en compte l'existence de Feuille et si la cellule de gauche est vide mais peut encore être amélioré 😛

J'apprécie le style de ton code mromain

Bonne Journée