Référence de cellule

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:

---

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

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.:f1:

PGZ

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

Code:

---

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

bonsoir
essaie ça

Code:

---

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

---

Cordialement