Discussion :

[cagelion]

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 :

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

=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 :

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

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

Merci a vous

[mercatog]

Bonjour et bienvenue au forum
une proposition: nommer par code

Code :

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

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

[cagelion]

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