Création MACRO/VBA Fermé

Question

Bonjour,
J'ai besoin de créer une macro sur un fichier excel.
Complètement novice en Macro/VBA, quelqu'un pourrait-il m'expliquer comment faire, voici ce que je souhaiterais faire :
   - Si dans le premier onglet "aspect", je mets en cellule D7 "Montaigu", alors seul les onglets "COA's Isigny" et "COA's Arla"doivent disparaître.

Voici le lien avec le fichier
http://cjoint.com/12ju/BGnjbOE0I9P.htm

Je voudrais des explications pour une novice, car j'essai de comprendre comment fonctionne une macro avec les qq info que je trouve sur le net.

Merci par avance

eriiic · Answer

Bonjour,

c'est le bon fichier que tu as joint ?
je mets en cellule D7 "Montaigu", alors seul les onglets "COA's Isigny" et "COA's Arla"doivent disparaître. 
C'est le seul cas à traiter ? Tu ne vas pas revenir en disant et si je mets... alors..., et si ça, faire réapparaitre...
Et D7 est saisis ou c'est une formule ?

eric 
 
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

célinetissier · Answer

si , en fait :
     - si je mets montaigu en D7, seul Montaigu doit apparaitre, 
     - si c'est Isigny, seul l'onglet Isigny doit apparaitre
     - et si je mets Arla seul Arla doit apparaitre

Merci

Le Pingou · Answer

Bonjour à tous ,
Si vous mettiez un commentaire qui correspond avec votre classeur se serait mieux .... (par exemple : le premier onglet = « First quater » et non pas « aspect »)..... !
Note, vous faites référence à des onglets introuvables sur votre classeur.... !
 
 
Salutations.
Le Pingou

célinetissier · Answer

désolé, voici le lien avec le bon fichier joint :
http://cjoint.com/13jn/CFxrvOigNqO.htm

eriiic · Answer

Une proposition : 
Private Sub Worksheet_Change(ByVal Target As Range)
    Const supplier As String = "Montaigu;Isigny;Arla"
    Dim sh As Worksheet, pos As Long
    If Target.Address = "$D$7" Then
        Application.ScreenUpdating = False
        For Each sh In Worksheets    ' pour chaque feuille
            pos = InStr(supplier, sh.Name)
            If pos > 0 Then ' si nom dans la liste
                If sh.Name = [D7] Then sh.Visible = xlSheetVisible Else sh.Visible = xlSheetHidden
            End If
        Next sh
        Application.ScreenUpdating = True
    End If
End Sub
Modifier la constante au début si besoin.
J'y ai récupéré ta liste de validation. Par contre les noms de feuilles doivent être identiques, majuscules comprises. Voir ARLA à renommer en Arla.
https://www.cjoint.com/?CFxr3q4KOtV
 
eric

celinetissier · Answer

merci beaucoup, mais pourrais-tu m'expliquer ou se trouve la macro, je n' arrive pas à la visualiser.

Peux-tu m'expliquer aussi la macro STP.

MERCI

Création MACRO/VBA

6 réponses

Discussions similaires