Nommer des centaines de cellules en auto
hello
suite à un autre post, comment pourrait-on nommer individuellement toutes les cellules d'une colonne ou ligne, même s'il y en a des centaines ou des milliers ?
merci
Bonjour,
Pour le nombre de cellules nommées il doit certainement exister une limite, je ne la connais pas, probablement dépendant de la mémoire.
Pour nommer en une seule opération une plage de cellules avec des noms différents inscrits dans chacune de ces cellules, il faut passer par le menu Insertion / Nom / Créer.
Pas simple la première fois !
Supposons les cellules à nommer en C1:C10
Copier cette plage en B1:B10
Sélectionner B1:C10
Menu Insertion / Nom / Créer / cocher "colonne de gauche" / OK
Effacer la plage B1:C10, ou uniquement B1:B10, suivant ce qu'on désire réaliser.
re
désolé, je dois louper un truc, mias ça ne fonctionne pas.
"créer" affiche une fenêtre avec des choix, lesquels faire ?
du coup j'imagine mal la liste des noms qui vaont être créés
Re,
Puis-je te demander de relire ce que j'ai écrit :
cocher "colonne de gauche"
voui, parle pas si fort
mais ça ne fonctionne pas si les données sont des nombres, ni s'il y a doublon dans la liste. Grosses limitations
je propose une modification :
en colonne de gauche créer une liste de mots genre
a
b
c
d
y
z
aa
ab
ac
mais je ne sais pas faire, snif
Bonjour jmd
Reprenons
Tu veux nommer toutes les cellules de la colonne A, mettons A1:A1000
1) Tu inséres une colonne
2) en A21(nouvelle colonne) tu entres par exemple Nom1.
3) Double click sur la poignée de recopie pour incrémenter ta colonne A jusqu'au bas de la colonne B., Nom1 s'incrémente en Nom2, Nom3, Nom4, etc.
4) Tu sélectionnes A1:B1000
5) Commande de menu "Insertion" "Nom" "Créer" et tu coches "Colonne de gauche"
Tu n'es limité que par la mémoire disponible.
Cordialement
Bonsoir,
par macro,
Si tu veux nommer tes cellules de A21 à A1000, par exemple, tu peux mettre ce code :
Sub inserer_noms()
For Each cel In Range("A21:A1000")
cel.Name = "nom" & cel.Row - 20
Next cel
End SubAinsi, les cellules auront pour nom : nom1, nom2, .......
Si tu veux les supprimer :
Sub supprimer_nom()
For Each nms In Names
If Left(nms.Name, 3) = "nom" Then nms.Delete
Next nms
End Subre hello
très fort
merci à tous les contributeurs, avec ou sans macro.
bon dimanche, pluvieux pour ici.