Nommer des cellules via une macro

sri75 · 10 Juillet 2008

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 · 10 Juillet 2008

Re : Nommer des cellules via une macro

Bonjour,
ceci devrait te convenir :

Code:

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 · 11 Juillet 2008

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 !

Nommer des cellules via une macro

sri75

XLDnaute Occasionnel

Larson

Guest

sri75

XLDnaute Occasionnel

Discussions similaires

Nommer des cellules via une macro

sri75

XLDnaute Occasionnel

Larson

Guest

sri75

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency