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

**Vba14** · 01/07/2021, 08h10

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Vba14** · 01/07/2021, 11h30

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub SelectionBleue()
Range("Bleue").Visible = True
End Sub

**Vba14** · 01/07/2021, 12h46

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

**BENNASR** · 01/07/2021, 14h11

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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