Discussion :

[Oaurelius]

Bonjour a vous tous,

Petite question... deux en fait. :oops:

Je renomme des cellules excel dans une macro. J'aimerais par la suite redonner un nom différent ces même cellules... savez vous comment on peut faire.

- Est ce que je dois modifier le nom, supprimer le nom et le récréer... par ce que j'ai l'impression que la même cellule peut faire référence a plusieurs nom...


Le deuxième soucis est lié. Je nomme mes cellules dans une boucle. Seulement c'est uniquement la dernière cellule qui passe dans la boucle qui garde le nom... J'aimerais qu'elles portent toutes le même.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
   For Each Cellule In Selection                   
 
            Cellule.Activate 
            Dim Ligne...
 
            Dim NumColone...
 
               Prenom = ActiveSheet.Cells(15, Numcolonne).Value
 
               Coordonnee = ActiveWindow.ActiveCell.Address
               'Recupere la derniere ligne vide de la feuille 2
               Ligne = Sheets("Feuil2").Range("b65536").End(xlUp).Row + 1
                            With Sheets("Feuil1")
 
 
'JE RENOMME MA CELLULE
 
                             ActiveWorkbook.Names.Add Name:="N" & CStr(Numero) , RefersToR1C1:="=Feuil1!R" & Ligne_cellule & "C" & Numcolonne
 
 
                            End With
                Next

Merci de votre aide... :D
Bonne journée

[Megaxel]

Bonjour !
Tu ne peux pas donner le même nom à plusieurs cellules, sinon, comment veux-tu qu'on s'y retrouve. Par contre, tu peux nommer une zone complète (Range) constituée de toutes les cellules que tu veux.
Commence donc par créer ta Range en associant tes cellules, puis nomme la.

[Oaurelius]

Merci Megaxel

OK je vais modifier pour avoir un range...
Mais est t'il possible de modifier le nom d'une cellule déja existante? Si oui on fait comment?

[ouskel'n'or]

Hello,

Oui, tu peux la renommer à condition de supprimer le nom existant sur la cellule auparavant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    ActiveWorkbook.Names("MonNomCellule").Delete
    Range("F10").Select
    ActiveWorkbook.Names.Add Name:="MonAutreNomDeCellule", RefersToR1C1:= _
        "=Feuil1!R10C6"

A+

[Oaurelius]

ouskel'n'or tu viens de faire ma soirée la....
Merci BCP