Bonjour, Peux-tu préciser ? Qu'appelles-tu "nom de cellule" ? En code VBA ou dans Excel ? Donnes plus de détails !
Bonjour à tous
est-il possible d'avoir de lister les noms de cellules dans une feuille avec leurs adresses
merci d'avance oc
Vincnet.
Bonjour, Par macro (et je ne vois pas bien comment faire autrement) : Sub noms() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim wbk As Workbook Dim nom As Name Dim i As Integer i = 1 Set wbk = Workbooks("Ton classeur.xls") For Each nom In wbk.Names ThisWorkbook.Worksheets(1).Range("A1").Offset(i, 0).Value = nom.Name ThisWorkbook.Worksheets(1).Range("A1").Offset(i, 1).Value = "'" & nom.Value i = i + 1 Next nom Set wbk = Nothing Application.ScreenUpdating = True Application.Calculation = xlCalculationSemiautomatic End Sub Voilà ! Bon courage... A+ V.
-----Message d'origine----- Bonjour à tous
est-il possible d'avoir de lister les noms de cellules dans une feuille avec
leurs adresses
merci d'avance oc
.
Bonjour,
Par macro (et je ne vois pas bien comment faire
autrement) :
Sub noms()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim wbk As Workbook
Dim nom As Name
Dim i As Integer
i = 1
Set wbk = Workbooks("Ton classeur.xls")
For Each nom In wbk.Names
ThisWorkbook.Worksheets(1).Range("A1").Offset(i,
0).Value = nom.Name
ThisWorkbook.Worksheets(1).Range("A1").Offset(i,
1).Value = "'" & nom.Value
i = i + 1
Next nom
Set wbk = Nothing
Application.ScreenUpdating = True
Application.Calculation = xlCalculationSemiautomatic
End Sub
Voilà !
Bon courage...
A+
V.
-----Message d'origine-----
Bonjour à tous
est-il possible d'avoir de lister les noms de cellules
dans une feuille avec
Bonjour, Par macro (et je ne vois pas bien comment faire autrement) : Sub noms() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim wbk As Workbook Dim nom As Name Dim i As Integer i = 1 Set wbk = Workbooks("Ton classeur.xls") For Each nom In wbk.Names ThisWorkbook.Worksheets(1).Range("A1").Offset(i, 0).Value = nom.Name ThisWorkbook.Worksheets(1).Range("A1").Offset(i, 1).Value = "'" & nom.Value i = i + 1 Next nom Set wbk = Nothing Application.ScreenUpdating = True Application.Calculation = xlCalculationSemiautomatic End Sub Voilà ! Bon courage... A+ V.
-----Message d'origine----- Bonjour à tous
est-il possible d'avoir de lister les noms de cellules dans une feuille avec