variable dans RefersToR1C1:

fhoest · 18 Septembre 2010

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:

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 · 18 Septembre 2010

Re : variable dans RefersToR1C1:

Bonsoir

Cela fonctionne sans l'espace en trop 😉

Code:

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:

Code:

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

fhoest · 18 Septembre 2010

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 · 18 Septembre 2010

Re : variable dans RefersToR1C1:

Bonjour,

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

variable dans RefersToR1C1:

fhoest

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

fhoest

XLDnaute Accro

eriiic

XLDnaute Barbatruc

Discussions similaires

variable dans RefersToR1C1:

fhoest

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

fhoest

XLDnaute Accro

eriiic

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency