Nommer des cellules via une macro

[sri75]

Bonjour j'ai une liste de nom de cellules dans une colonne A

et je voudrais nommer les cellules d'une autre feuille automatiquement

ex a1= toto je nomme c1 toto, je pâsse en a2 recuperer le nom de ma cellule dans une variable, je me deplace en c2 je nomme etc.

j'ai cette fonction

ActiveWorkbook.Names.Add Name:="test2", RefersToR1C1:="=ASSOC!R6C2"

mais je n'arrive pas à trouver comment je peux modifier le R6c2 pour le faire descendre d'une ligne à chaque fois.

Merci de votre aide

 

[Larson]

Re : Nommer des cellules via une macro

Bonjour,
ceci devrait te convenir :

Sub NommeCelluleSuivantListe()
For i = 1 To 3 'nombre max de ligne contenant les noms en colonne A
    ActiveWorkbook.Names.Add Name:=Range("A" & i), RefersToR1C1:="=Feuil1!R" & i & "C3"
    'nomme la cellule de la colonne C avec le nom contenu dans la colonne A
Next i
End Sub

L'exemple ci dessus ne porte que sur trois lignes .... mais est extensible a volonté 😛

 

[sri75]

Re : Nommer des cellules via une macro

ca marche parfaitement, merci beaucoup.

Visiblement la macro va même trop vite en automatique, je la lance en f8 sinon les cellules ne se nomment pas toutes; y a t'il un moyen pour forcer un délai de temporisation après le next ?

Merci encore pour cette aide précieuse ; j'avais 600 cellules à nommer !