Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Céline Brien
Bonjour JPK, Je crois que tu dois remplacer R1C1 par OFFSET Je te propose ceci ------------------------------------------------------------------------ -------- ' Créer le champ Bidule ActiveWorkbook.Names.Add Name:="Bidule", RefersTo:="=OFFSET('Données'!$U$2,,,COUNTA('Données'!$A:$A))" ------------------------------------------------------------------------ -------- Ces codes fonctionneront en autant que chacune des cellules de la colonne A contient des données. Par ailleurs, si tu as un titre en A1, tu dois ajouter -1 ------------------------------------------------------------------------ -------- ' Créer le champ Bidule ActiveWorkbook.Names.Add Name:="Bidule", RefersTo:="=OFFSET('Données'!$U$2,,,COUNTA('Données'!$A:$A)-1)" ------------------------------------------------------------------------ -------- Joyeuses fêtes, Céline
"JPK" a écrit dans le message de news:bspcuv$o8a$
Bonjour, Je souhaite remplacer la valeur 5000 dans ma macro par I qui correspond
au nombre exacte de lignes, mais je n'y arrive pas .
exemple : ActiveWorkbook.Names.Add Name:="Bidule", RefersToR1C1:= _ "=Données!R2:R5000C21"
Merci d'avance JPK
Bonjour JPK,
Je crois que tu dois remplacer R1C1 par OFFSET
Je te propose ceci
------------------------------------------------------------------------
--------
' Créer le champ Bidule
ActiveWorkbook.Names.Add Name:="Bidule",
RefersTo:="=OFFSET('Données'!$U$2,,,COUNTA('Données'!$A:$A))"
------------------------------------------------------------------------
--------
Ces codes fonctionneront en autant que chacune des cellules de la
colonne A contient des données.
Par ailleurs, si tu as un titre en A1, tu dois ajouter -1
------------------------------------------------------------------------
--------
' Créer le champ Bidule
ActiveWorkbook.Names.Add Name:="Bidule",
RefersTo:="=OFFSET('Données'!$U$2,,,COUNTA('Données'!$A:$A)-1)"
------------------------------------------------------------------------
--------
Joyeuses fêtes,
Céline
"JPK" <jpk154@hotmail.com> a écrit dans le message de
news:bspcuv$o8a$1@news-reader4.wanadoo.fr...
Bonjour,
Je souhaite remplacer la valeur 5000 dans ma macro par I qui
correspond
au nombre exacte de lignes,
mais je n'y arrive pas .
exemple :
ActiveWorkbook.Names.Add Name:="Bidule", RefersToR1C1:= _
"=Données!R2:R5000C21"
Bonjour JPK, Je crois que tu dois remplacer R1C1 par OFFSET Je te propose ceci ------------------------------------------------------------------------ -------- ' Créer le champ Bidule ActiveWorkbook.Names.Add Name:="Bidule", RefersTo:="=OFFSET('Données'!$U$2,,,COUNTA('Données'!$A:$A))" ------------------------------------------------------------------------ -------- Ces codes fonctionneront en autant que chacune des cellules de la colonne A contient des données. Par ailleurs, si tu as un titre en A1, tu dois ajouter -1 ------------------------------------------------------------------------ -------- ' Créer le champ Bidule ActiveWorkbook.Names.Add Name:="Bidule", RefersTo:="=OFFSET('Données'!$U$2,,,COUNTA('Données'!$A:$A)-1)" ------------------------------------------------------------------------ -------- Joyeuses fêtes, Céline
"JPK" a écrit dans le message de news:bspcuv$o8a$
Bonjour, Je souhaite remplacer la valeur 5000 dans ma macro par I qui correspond
au nombre exacte de lignes, mais je n'y arrive pas .
exemple : ActiveWorkbook.Names.Add Name:="Bidule", RefersToR1C1:= _ "=Données!R2:R5000C21"
Merci d'avance JPK
JPK
Bonjour Céline,
J'ai trouvé ce qui me convenait dans http://www.excelabo.net/xl/nommer.php (Site des Dieux du Forum) j'aurais du commencer par là ! et ça donne :
Set Flux = Range(Cells(2, 20), Cells(k, 20)) Flux.Resize(Flux.Rows.Count).Name = "Flux"
Merci quand même Bonne Fêtes
JPK :-)
Bonjour Céline,
J'ai trouvé ce qui me convenait dans http://www.excelabo.net/xl/nommer.php
(Site des Dieux du Forum) j'aurais du commencer par là !
et ça donne :
Set Flux = Range(Cells(2, 20), Cells(k, 20))
Flux.Resize(Flux.Rows.Count).Name = "Flux"
