Je n'arrive pas à trouver un sujet exactement similaire je pense que vous allez pouvoir m'aider !
Je recherche à nommer une place de cellules variables avec une boucle (Voir fichier joint).
Je souhaite nommer :
- Les cellules A1:A2 en "CRIT1".
- Les cellules A3:A4 en "CRIT2".
Etc ... jusqu'au CRIT184
J'ai bien essayé ce genre de chose mais ça ne fonctionne pas :
Sub nom()
X = 1
While Sheets("CRIT").Cells(X, 1).Value <> ""
ActiveWorkbook.Names.Add Name:="=CRIT!RXC1", RefersToR1C1:="=CRIT!RXC1:RX+1C1"
X = X + 2
Wend
Re : Macro pour Nommer une plage de cellules en Boucle
Cela fonctionne exactement comme je le souhaitais.
Par contre, je cherche une amélioration.
Exemple avec le fichier que j'ai mis dans mon message précédent.
Après renommage des critères avec ta macro (Qui fonctionne très bien).
On se retrouve avec les noms CRIT1, CRIT2 etc ...
Imaginons qu'on souhaite modifier le nom des critères.
On modifie la cellule A2 en "56" au lieu de "1".
Les critères sont modifiés en CRIT56, CRIT57 etc ...
Si on relance la macro les noms ne se modifient plus car ils ne sont pas "écrasés" et renommés.
Est-il possible avec une légère modification de pouvoir écraser et renommer les noms ?
Re : Macro pour Nommer une plage de cellules en Boucle
Bonjour,
j'ai regardé un peu ton fichier, essaye peut être avec ceci :
Code:
Option Explicit
Sub test()
Dim i As Integer, n As Name
For Each n In ThisWorkbook.Names
n.Delete
Next n
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
Cells(i - 1, 1).Resize(2,9).Name = "CRIT" & Cells(i, 1)
Next i
End Sub