Discussion :

[GCASPIC10]

Bonjour,

Nous pouvons déclarer par le biais du gestionnaire de nom des variables du type "Zone d'impression" et d'autres comme :

Code :

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

1
2
 
Zone_de_tri ='Cpt CLIENT ht'!$A$6:$C$21

Question : Comment récupérer une variable déclarée Zone_De_Tri sans devoir l'inscrire dans les cellules du tableur (par exemple)
, comme celà :

Code :

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

1
2
3
4
5
6
 
 
    ' Zone du tableau de données
    Range("AK1").Select
    Selection.ListNames
    Range("AL1").Select

Pour ensuite la récupérer dans la feuille sous les cellules :
AL1 = Nom de la variable
AL2 = Valeur de la variable

Code :

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

1
2
 
MaZone = Range("AL2").Value

En finalité, je voudrais pouvoir récupérer ces valeurs directement dans mon VBA en utilisant la variable pré-déclarée (sans passer par la feuille excel).

Quel est l'écriture la plus appropriée ?

Merci d'avance

[GCASPIC10]

Problème résolu

Par exemple,
Dans le gestionnaire de nom : Zone_MOIS_actif = "=JANV!$7:$30"

La routine :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Tri_Mois_Croissant_Clic()
 
    Dim MaZone As String
 
    MaZone = ActiveSheet.Name & "!Zone_MOIS_actif:"
    Call ListeZonesFeuille(MaZone)
 
    Call MOIS_TriAZ(MaZone)
 
End Sub

La sous-routine :

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
19
20
21
22
23
24
25
26
 
Sub ListeZonesFeuille(Zone As String)
 
    Dim Plage As Range
    Dim Nm As Name
 
    On Error Resume Next
    'Boucle sur les noms du classeur
 
    For Each Nm In ThisWorkbook.Names
        Set Plage = Nm.RefersToRange
 
        If Not Plage Is Nothing Then
 
            'If Plage.Worksheet.Name = Feuille Then Debug.Print Nm.Name & ":" & Plage.Address & " "
            If Nm.Name & ":" = Zone Then
                'Debug.Print Nm.Name & ": <<<" & Plage.Address & ">>>"
                Zone = Plage.Address
            End If
        End If
 
        Set Plage = Nothing
 
    Next Nm
 
End Sub

Et le tri s'effectue bien sur la zone de la feuille active (quelque soit l'ajout et la suppression de ligne avant le tri, donc ici "$7:$30")

Bravo pour moi !