Donner un nom a un groupe de cellule dynamique

Version imprimable

19/09/2010, 13h59
cagelion

Donner un nom a un groupe de cellule dynamique
Bonjour à tous,

Je souhaite inclure dans une macro la possibilite de donner un nom a un groupe de cellule dont la taille change a chaque importation.
J'y arrive tres bien avec la fonction Offset mais pour l'inclure dans une macro je galere un peu !

Voici la ligne qui me sert a nommer un groupe de cellules de maniere tres dynamique à chaque importation de donnees.

Code:

=OFFSET(test!$A$1;0;0;COUNTA(test!$A:$A);COUNTA(test!$1:$1))

Je souhaite donc transposer cette methode dans ma macro afin que le nom s'actualise automatiquement a chaque importation de donnees.
Ca coince je crois avec le refer R1C1 que le ne maitrise pas.
Code:

1 2 ActiveWorkbook.Names("couleur").RefersToR1C1 = _ "=OFFSET('test'!$A$1;0;0;COUNTA('test'!$A:$A);COUNTA('test'!$1:$1))"
Merci a vous

Bonjour et bienvenue au forum
une proposition: nommer par code

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Nommer()
Dim Plage As String
 
With ThisWorkbook
    Plage = .Sheets("test").Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1C1)
    On Error Resume Next
    .Names("couleur").Delete
    On Error GoTo 0
    .Names.Add Name:="couleur", RefersToR1C1:="=test!" & Plage
End With
End Sub

19/09/2010, 19h39
cagelion

Excellent ca marche

Merci pour cette astuce, je cherchais quelques chose de complique je crois.