Nommer des plages pour la VBA

[troopers87]

Bonjour à tous,

une petite question qui me trotte dans la tête depuis quelques temps : je dispose d'un classeur avec un graphique qui peut être caché pour plus de lisibilité. Le principe, c'est que les lignes du classeur se masquent au lancement de la macro, ce qui cache du même coup le graphique. Voir le fichier en exemple ^^

Mon problème, c'est que j'ai souvent besoin de rajouter des lignes : rajout d'un en-tête, suppression d'une matière comme dans mon exemple... et du coup, il faut changer les numéros de ligne à masquer "à la main" pour que la macro ne soit pas décalée.

Est-il possible de "nommer" des plages en VBA afin que les lignes à masquer/démasquer se décalent en même temps que je fais des modifications dans mon fichier ?

Merci d'avance !

 

[mécano41]

Re : Nommer des plages pour la VBA

Bonjour,

Tu sélectionnes tes lignes à masquer et tu leur donnes manuellement un nom par ex. "Amasquer"

et dans ton code :

Range("Amasquer").Rows.Select ...etc

Si tu rajoutes des lignes à ton tableau supérieur, cela ne change rien, c'est juste la définition de "Amasquer" qui se change toute seule...

Cordialement

 

[VDAVID]

Re : Nommer des plages pour la VBA

Bonjour troopers87,

Une solution en nommant la plage des lignes de 15 à 25 (Dans la zone en haut à gauche de ton classeur lorsque tu sélectionnes une plage de données), ici "Graphique" puis en modifiant ton code comme ceci:

Sub Graphique_classe1()

' Cette macro doit permettre d'afficher/masquer le graphique
' par masquage/démasquage des lignes correspondantes.
    
    Range("Graphique").Select
    Classe1 = Selection.EntireRow.Hidden
    Selection.EntireRow.Hidden = Not Classe1

End Sub

Voir PJ !
Bonne journée

EDIT: Bonjour mécano41

 

[troopers87]

Re : Nommer des plages pour la VBA

Bonjour à vous deux et merci pour votre réponse rapide,

effectivement, je songeais à une solution de ce type qui réponds tout à fait à mon besoin, mais je ne savais pas comment intégrer le nom de la plage dans le code VBA. Génial, en tout cas !

Merci encore et à très bientôt ! 😉

 

[troopers87]

Re : Nommer des plages pour la VBA

Re-bonjour !

Du coup, j'ai une deuxième question qui est liée : j'ai modifié la macro pour que l'affichage du graphique puisse être sélectionné par une liste déroulante (par l'intermédiaire de la Validation de données, onglet Données). Les deux choix proposés sont Histogramme (graphique affiché) ou Données (graphique masqué).

Tout fonctionne jusqu'à ce que je tente de donner la cellule où est placée la liste déroulante : en ce cas, il ne se passe rien, certainement à cause du Target.Adress ?

Sub Classe1 ()

If Target.Address = "Graph_classe1_selecteur" Then

Select Case Range("Graph_classe1_selecteur").Value

   Case Is = "Histogramme"
        Range("Graph_classe1").Select
        Selection.EntireRow.Hidden = False

    Case Is = "Données"
        Range("Graph_classe1").Select
        Selection.EntireRow.Hidden = True

End Select

End If

End sub

Merci d'avance pour vos réponses 😉

 

[Pierrot93]

Re : Nommer des plages pour la VBA

Bonjour,

petite remarque au passage, d'après ce que tu montres, "target" n'est ni défini ni initialisé en tant que variable....

bon après midi
@+

 

[troopers87]

Re : Nommer des plages pour la VBA

Bonjour,

petite remarque au passage, d'après ce que tu montres, "target" n'est ni défini ni initialisé en tant que variable....

bon après midi
@+

Bonjour Pierrot,

oui, effectivement, c'est simplement parce que j'ai omis de mettre l'ensemble du code : je suis dans le Worksheet et donc la première ligne est :

Private Sub Worksheet_Change(ByVal Target As Range)

Merci pour ta remarque 😉

 

[Pierrot93]

Re : Nommer des plages pour la VBA

Re,

bah... la première ligne c'est "Sub Classe1 ()"... tu ne peux être dans 2 procédures à la fois.... même si ton code est placé dans le module de la feuille, il ne va pas tenir compte de l'argument de la procédure "worksheet change"....

 

[troopers87]

Re : Nommer des plages pour la VBA

Oui effectivement... Même en le supprimant, rien ne se passe : voilà mon code complet, toujours dans le Worksheet change.

Private Sub Worksheet_Change(ByVal Target As Range)

'enlève évènement change
Application.EnableEvents = False

If Target.Address = "Graph_classe1_selecteur" Then

Select Case Range("Graph_classe1_selecteur").Value

   Case Is = "Histogramme"
        Range("Graph_classe1").Select
        Selection.EntireRow.Hidden = False

    Case Is = "Données"
        Range("Graph_classe1").Select
        Selection.EntireRow.Hidden = True

End Select

End If

Avec les noms suivants précédemment installés :
- Graph_classe1_selecteur correspondant à la cellule où est placée ma liste déroulante de choix
- Graph_classe1 correspond aux lignes qui doivent être masquées/démasquées pour faire apparaître/disparaître le graphique.

Le code fonctionne si Grah_classe1_selecteur est remplacé par l'adresse de la cellule : A1, par exemple...

 

[VDAVID]

Re : Nommer des plages pour la VBA

Re troopers87, Salut Pierrot93 !

Peut-être en remplaçant:

If Target.Address = "Graph_classe1_selecteur" Then

par:

If Target.Address = Range("Graph_classe1_selecteur").Address Then

 

[troopers87]

Re : Nommer des plages pour la VBA

Oui, génial, ça fonctionne ! Merci pour ton aide.

Pour le suivi, voici le code final :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("Graph_courses_selecteur").Address Then

Select Case Range(""Graph_courses_selecteur").Value

   Case Is = "Histogramme"
        Range("Graph_courses").Select
        Selection.EntireRow.Hidden = False

    Case Is = "Données"
        Range("Graph_courses").Select
        Selection.EntireRow.Hidden = True

End Select

End If

Merci encore !