Bonjour à tous,
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
End Sub
Merci de votre aide précieuse !
Jo
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
End Sub
Merci de votre aide précieuse !
Jo