Remplacer référence ligne par le nom d'une plage dans un code

Bonjour à tous,

J'ai ce code ci-dessous qui me permet de sélectionner une plage de cellule afin qu'elle soit visible alors que le reste du document est masqué.
Mais il n'est pas très pratique car lorsque j'ajoute des lignes à cette plage, je dois venir ici pour modifier les références.
J'ai donc nommée mes plages colorée comme suit :

- La plage Bleue = Arch_Gene!$A$14:$P$3403 est nommée Bleue
- La plage Verte = Arch_Gene!$A$3404:$P$3513 est nommée Verte
- La plage Jaune = Arch_Gene!$A$3514:$P$5170 est nommée Jaune
- La plage Grise = Arch_Gene!$A$5171:$P$5421 est nommée Grise
- La plage neutre qui ne bouge pas = Arch_Gene!$A$1:$P$13 est nommée Titre

Comment remplacer la partie en rouge dans mon code par le nom de la plage ? Ici Bleue.
Merci par avance pour l'aide que vous pourrez m'apporter.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CmbArch1_Click() 'Procédure d'accés aux lignes d'archives Ville - Zone BLEUE Application.ScreenUpdating = False 'Les lignes 1 à 13 et 14 à 3402 sont visibles, les autres sont masquées UsedRange.Rows.Hidden = True Rows("1:13").Hidden = False Rows("14:3402").Hidden = False 'On se place sur la cellule A13 Range("A13").Select Application.Goto ActiveCell, Scroll:=True Application.ScreenUpdating = True End Sub

---

J'ai essayé ce code dans un module mais ça ne fonctionne pas
Je suis bloqué sur un truc qui doit être évident...

Code:

---

1 2 3 4

Sub SelectionBleue() Range("Bleue").Visible = True End Sub

---

Vous n'auriez pas une petite idée pour m'orienter s'il vous plait ?
A force de ramer j'attaque la falaise

bonjour
je sais pas si ça va aider
déterminer la ligne ou commence ton tableau, compter le nombre des lignes puis masquer
à tester sur une copie de ton fichier :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Exemples()   With Sheets(1).ListObjects("X") ldebut = .HeaderRowRange.Row 'pour déterminer le ligne de début tableau B = Range("X").Rows.Count ' compter le nombre des lignes du tableau lfin = ldebut + B 'pour savoir le rang de la dernière ligne du tableau Rows(ldebut & ":" & lfin).EntireRow.Hidden = True End With   End Sub

---

Bonjour BENNASR,

Merci pour votre réponse. Si j'ai bien tout compris, je remplace les "X" par le nom de ma plage, est-ce bien ça ?

normalement :)

Ok, je teste et je reviens vers vous
Voici mon code.
Il a été mis dans la feuille12, la page active. La sélection doit intervenir lorsque je clique sur un bouton.
Message d'erreur sur la ligne en rouge : "L'indice n'appartient pas à la sélection"
Qu'ai-je fait comme bêtise ???

Code:

---

1 2 3 4 5 6 7

With ActiveSheet.ListObjects("Bleue") ldebut = .HeaderRowRange.Row 'pour déterminer le ligne de début tableau B = Range("Bleue").Rows.Count ' compter le nombre des lignes du tableau lfin = ldebut + B 'pour savoir le rang de la dernière ligne du tableau Rows(ldebut & ":" & lfin).EntireRow.Hidden = True End With

---

J'ai essayé plusieurs méthodes, Range, WorkSheets, WorkBooks, mais sans succès.
Je continue à creuser, je vais bien finir par trouver le fond...

Faire ton test sur un nv classeur avec un seul onglet et dite si ça fonctionne

Salut

Voici un fichier qui masque ou non les lignes selon ce que tu choisis en R1. J'ai ajouté le choix "Tout" pour ne rien masquer.

Si tu fais des évolutions de zones il te suffit de modifier l'étendue des noms.

Teste et dis nous.

Je n'avais pas vu que tu voulais te repositionner en dernière ligne des titres. Voici le fichier modifié.