variable dans RefersToR1C1:

[fhoest]

Bonjour le forum,
j'aimerai connaitre le moyen d'intégrer la variable Drligne dans ce code,
Mais je ne trouve pas lla syntaxe exacte,pourriez vous svp me filer un petit coup de pouce,
je vous remercie
voici le code:

dim drligne as long
drligne =30 'pour l'exemple
Range("A2:D" & drligne).Select
    ActiveWorkbook.Names.Add Name:="liste1", RefersToR1C1:= _
        "=mafeuille!R2C1:R[" & drligne & " ]C4"
        'sur un refertor1c1 normal la syntaxe et la suivante
        '"mafeuille!r2c1:r30c4" 
    ActiveWorkbook.Names("liste1").Comment = ""

A bientot et merci.

 

[Staple1600]

Re : variable dans RefersToR1C1:

Bonsoir


Cela fonctionne sans l'espace en trop

Sub a()
Dim drligne As Long
drligne = 30 'pour l'exemple
ActiveWorkbook.Names.Add Name:="liste1", RefersToR1C1:= _
        "=" & Sheets(1).Name & "!R2C1:R[" & drligne & "]C4"
End Sub

EDITION :
Tu peux aussi le faire de cette façon:

Sub b()
Dim drligne&
drligne = 30
[A2].Resize(drligne, 4).Name = "liste1"
End Sub

 

[fhoest]

Re : variable dans RefersToR1C1:

Merci beaucoup Staple,
j'ai opter pour la deuxième solution car elle est plus courte ,
je te remercie beaucoup,
A bientôt sur d'autres fils

 

[eriiic]

Re : variable dans RefersToR1C1:

Bonjour,

Merci staple, ça me servira aussi...
eric