Discussion :

[JOLIFLO57]

Bonjour,

Pour un calcul matriciel j'ai besoin de mettre à jour le nom de référence d'une plage de cellule correspondant au noms des feuilles (si j'en ajoute ou si j'en retire)
J'ai le code pour mettre la liste des feuilles à jour, mais je bute sur la mise à jour du nom de référence des cellules. J'en suis là :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub NomOngletAJour()
'
' Dernière cellule de la colonne
    Dim AdCel
    Range("L10").Select
    AdCel = ActiveCell.SpecialCells(xlLastCell).Address

'Mettre à jour la réf de cellules
    ActiveWorkbook.Names("Onglets").RefersToR1C1 = "='ACCUEIL 2'!R10C12:R16C12"
End Sub

Par AdCel je cherche la dernière cellule de la liste des feuilles et je coince sur la manière de l'intégrer dans la suite, je voudrais que R16C12 soit remplacé par Adcel mais je ne sais pas transformer en ligne et colonne mon Adcel qui je pense doit être "L16" dans le cas présent.

Avec mes remerciements
Bonne fin d'année à tous

[pgz]

Bonjour.

Avec la méthode Address, tu peux obtenir la référence en R1C1 dans AdCel si tu le souhaites.

Regarde l'aide de cette méthode.

PGZ

[JOLIFLO57]

Bonjour,
Merci à PGZ pour sa réponse, mais vu mon niveau et malgré F1, çà coince encore

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub NomOngletAJour()
'
' Dernière cellule de la colonne
    Dim AdCel As String
    Range("L10").Select
    Selection.End(xlDown).Select
    AdCel = ActiveCell.Address(ReferenceStyle:=xlR1C1)
 
'Mettre à jour la réf de cellules
    ActiveWorkbook.Names("Onglets").RefersToR1C1 = "='ACCUEIL 2'!R10C12:AdCel"
End Sub

à l'éxécution la cellule active est bien la dernière de la colonne, mais je n'arrive pas à l'attribuer à la plage de "Onglets" : R10C12:Adcel
Mon code n'est sûrement pas le bon !

D'avance merci

Bonne fin d'année

[fred65200]

bonsoir
essaie ça

Code :

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

1
2
'Mettre à jour la réf de cellules
    ActiveWorkbook.Names("Onglets").RefersToR1C1 = "='ACCUEIL 2'!R10C12:" & AdCel.Address(ReferenceStyle:=xlR1C1)

Cordialement