[XL-2007] Définir un nom pour une plage de données [Résolu]

[meumeu73.1]

Bonjour,

je souhaite définir un nom pour plusieurs plage de données, mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
 
Nb_SG = -1
    With Sheets("Feuil2")
        Nb_SG = .Range("B1").Value
    End With
 
    Sheets("Feuil2").Select
 
    For y = 2 To 2 + Nb_SG
 
        Dim NomSG As String
        NomSG = Cells(y, 1).Value
 
        Range(Selection, Selection.End(xlToRight)).Select
        ActiveWorkbook.Names.Add Name:=NomSG, RefersToR1C1:=*****************
 
    Next
 
 
End Sub

j'arrive à définir automatiquement le nom de la plage, mais je n'arrive pas à indiquer la plage (la plage peut être aléatoire), mon tableau est conçu de la façon suivante :


Colonne A ; Colonne B ; Colonne C ; Colonne D
Nom Plage 1 ; colonne 1 de la plage 1;colonne 2 de la plage 1; colonne 3 de la plage 1
Nom Plage 2 ; colonne 1 de la plage 2;colonne 2 de la plage 2; colonne 3 de la plage 2
Nom Plage 3 ; colonne 1 de la plage 3;colonne 2 de la plage 3; colonne 3 de la plage 3
Nom Plage 4 ; colonne 1 de la plage 4;colonne 2 de la plage 4; colonne 3 de la plage 4

par avance merci pour votre aide

[CODYCO]

Bonjour,

Je ne comprend pas bien ta question tu ne parviens pas a nommer?

Tu selectionne et tu nomme

Code :

1
2
3
 
ActiveWorkbook.Names.Add Name:="nom que tu souhaite", RefersToR1C1:= _
        Selection

ou sinon soit plus précis dans ce que tu souhaites ...

[meumeu73.1]

Bonjour,

Mon problème est résolu sur le poste :

http://www.developpez.net/forums/d11...plage-donnees/

J'avais par erreur poster sur le forum excel ou du forum vba excel.

Merci tout de même.