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 27 28 29 30 31 32 33
| Sub Nomplagedonnées()
'Programme permettant de nommer les plages de données
'déclaration des variables
Dim ligne As Integer
Dim colonne As Integer
Dim fin As Integer
Dim lignetitre As Integer
Dim dernierecolonne As Integer
Dim derniereligne As Integer
Dim Titre As String
'Initialisation des variables
ligne = 6
colonne = 1
lignetitre = ligne - 1
dernierecolonne = Cells(1, Columns.Count).End(xlToLeft).Column
derniereligne = Cells(Rows.Count, colonne).End(xlUp).Row
Titre = Cells(lignetitre, colonne).Value
With Workbooks("Projet.xlsm").Worksheets("feuil1")
'localisation de l'application du programme
For colonne = 1 To dernierecolonne
'Boucle définie de la colonne n°1 à la dernière utilisée
.Range(Cells(ligne, colonne), Cells(derniereligne, colonne)).Select
'Selection de la plage de données
.Names.Add Name:=Titre, RefersTo:=.Range(Cells(ligne, colonne), Cells(derniereligne, colonne))
'nomination de la plage de données en fonction du titre de la colonne
Next
'Fin de la boucle définie
End With
'Fin de l'utilisation de la localisation |