VBA Excel 2000 Créer un champ nommé intégrant le nom de l'onglet
7 réponses
Céline Brien
Bonjour à toutes et à tous,
Ici, dans les Laurentides, au nord de Montréal, nous avons de la neige à
revendre et la journée est splendide !
J'ai hâte d'aller faire de la raquette en PM (actuellement il est 10:00
AM).
Je souhaite créer un champ nommé intégrant le nom de l'onglet.
J'ai créé un variable n du nom de l'onglet mais je ne sais pas comment
intégrer cette variable dans la formule créant le champ nommé.
Merci de votre aide,
Céline
Voici mes codes :
Sub ChampData()
' Créer une variable du nom de l'onglet
n = ActiveSheet.Name
' Créer le champ Data
ActiveWorkbook.Names.Add Name:="Data",
RefersToR1C1:="=OFFSET('n'!R2C1,0,0,COUNTA('n'!C1),COUNTA('n'!R1))"
End Sub
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
Vincent.
Bonjour ! Tu as bien de la chance ! En attendant essaie ceci :
RefersToR1C1:="=OFFSET('"& n & "'!R2C1,0,0,COUNTA('"& n & "'!C1),COUNTA('" & "n'!R1))"
A+
V.
-----Message d'origine----- Bonjour à toutes et à tous, Ici, dans les Laurentides, au nord de Montréal, nous avons de la neige à
revendre et la journée est splendide ! J'ai hâte d'aller faire de la raquette en PM (actuellement il est 10:00
AM). Je souhaite créer un champ nommé intégrant le nom de l'onglet.
J'ai créé un variable n du nom de l'onglet mais je ne sais pas comment
intégrer cette variable dans la formule créant le champ nommé.
Merci de votre aide, Céline
Voici mes codes : Sub ChampData() ' Créer une variable du nom de l'onglet n = ActiveSheet.Name ' Créer le champ Data ActiveWorkbook.Names.Add Name:="Data", RefersToR1C1:="=OFFSET('n'!R2C1,0,0,COUNTA('n'!C1),COUNTA ('n'!R1))"
End Sub
.
Bonjour !
Tu as bien de la chance ! En attendant essaie ceci :
RefersToR1C1:="=OFFSET('"& n & "'!R2C1,0,0,COUNTA('"& n
& "'!C1),COUNTA('" & "n'!R1))"
A+
V.
-----Message d'origine-----
Bonjour à toutes et à tous,
Ici, dans les Laurentides, au nord de Montréal, nous
avons de la neige à
revendre et la journée est splendide !
J'ai hâte d'aller faire de la raquette en PM
(actuellement il est 10:00
AM).
Je souhaite créer un champ nommé intégrant le nom de
l'onglet.
J'ai créé un variable n du nom de l'onglet mais je ne
sais pas comment
intégrer cette variable dans la formule créant le champ
nommé.
Merci de votre aide,
Céline
Voici mes codes :
Sub ChampData()
' Créer une variable du nom de l'onglet
n = ActiveSheet.Name
' Créer le champ Data
ActiveWorkbook.Names.Add Name:="Data",
RefersToR1C1:="=OFFSET('n'!R2C1,0,0,COUNTA('n'!C1),COUNTA
('n'!R1))"
Bonjour ! Tu as bien de la chance ! En attendant essaie ceci :
RefersToR1C1:="=OFFSET('"& n & "'!R2C1,0,0,COUNTA('"& n & "'!C1),COUNTA('" & "n'!R1))"
A+
V.
-----Message d'origine----- Bonjour à toutes et à tous, Ici, dans les Laurentides, au nord de Montréal, nous avons de la neige à
revendre et la journée est splendide ! J'ai hâte d'aller faire de la raquette en PM (actuellement il est 10:00
AM). Je souhaite créer un champ nommé intégrant le nom de l'onglet.
J'ai créé un variable n du nom de l'onglet mais je ne sais pas comment
intégrer cette variable dans la formule créant le champ nommé.
Merci de votre aide, Céline
Voici mes codes : Sub ChampData() ' Créer une variable du nom de l'onglet n = ActiveSheet.Name ' Créer le champ Data ActiveWorkbook.Names.Add Name:="Data", RefersToR1C1:="=OFFSET('n'!R2C1,0,0,COUNTA('n'!C1),COUNTA ('n'!R1))"
End Sub
.
michdenis
Bonjour Céline,
Sur une même ligne :
ActiveWorkbook.Names.Add Name:="Data", RefersToR1C1:="=OFFSET(" & N & "!R2C1,0,0,COUNTA(" & N & "!C1),COUNTA(" & N & "!R1))"
Salutations!
"Céline Brien" a écrit dans le message de news: Bonjour à toutes et à tous, Ici, dans les Laurentides, au nord de Montréal, nous avons de la neige à revendre et la journée est splendide ! J'ai hâte d'aller faire de la raquette en PM (actuellement il est 10:00 AM). Je souhaite créer un champ nommé intégrant le nom de l'onglet. J'ai créé un variable n du nom de l'onglet mais je ne sais pas comment intégrer cette variable dans la formule créant le champ nommé. Merci de votre aide, Céline
Voici mes codes : Sub ChampData() ' Créer une variable du nom de l'onglet n = ActiveSheet.Name ' Créer le champ Data ActiveWorkbook.Names.Add Name:="Data", RefersToR1C1:="=OFFSET('n'!R2C1,0,0,COUNTA('n'!C1),COUNTA('n'!R1))" End Sub
Bonjour Céline,
Sur une même ligne :
ActiveWorkbook.Names.Add Name:="Data", RefersToR1C1:="=OFFSET(" & N & "!R2C1,0,0,COUNTA(" & N & "!C1),COUNTA(" & N &
"!R1))"
Salutations!
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de news:ejAXYAkxDHA.556@TK2MSFTNGP11.phx.gbl...
Bonjour à toutes et à tous,
Ici, dans les Laurentides, au nord de Montréal, nous avons de la neige à
revendre et la journée est splendide !
J'ai hâte d'aller faire de la raquette en PM (actuellement il est 10:00
AM).
Je souhaite créer un champ nommé intégrant le nom de l'onglet.
J'ai créé un variable n du nom de l'onglet mais je ne sais pas comment
intégrer cette variable dans la formule créant le champ nommé.
Merci de votre aide,
Céline
Voici mes codes :
Sub ChampData()
' Créer une variable du nom de l'onglet
n = ActiveSheet.Name
' Créer le champ Data
ActiveWorkbook.Names.Add Name:="Data",
RefersToR1C1:="=OFFSET('n'!R2C1,0,0,COUNTA('n'!C1),COUNTA('n'!R1))"
End Sub
ActiveWorkbook.Names.Add Name:="Data", RefersToR1C1:="=OFFSET(" & N & "!R2C1,0,0,COUNTA(" & N & "!C1),COUNTA(" & N & "!R1))"
Salutations!
"Céline Brien" a écrit dans le message de news: Bonjour à toutes et à tous, Ici, dans les Laurentides, au nord de Montréal, nous avons de la neige à revendre et la journée est splendide ! J'ai hâte d'aller faire de la raquette en PM (actuellement il est 10:00 AM). Je souhaite créer un champ nommé intégrant le nom de l'onglet. J'ai créé un variable n du nom de l'onglet mais je ne sais pas comment intégrer cette variable dans la formule créant le champ nommé. Merci de votre aide, Céline
Voici mes codes : Sub ChampData() ' Créer une variable du nom de l'onglet n = ActiveSheet.Name ' Créer le champ Data ActiveWorkbook.Names.Add Name:="Data", RefersToR1C1:="=OFFSET('n'!R2C1,0,0,COUNTA('n'!C1),COUNTA('n'!R1))" End Sub
AV
En références de type A1 (à mon avis plus lisibles) :
n = ActiveSheet.Name ActiveWorkbook.Names.Add Name:="aa", RefersTo:= _ "=OFFSET(" & n & "!$A$2,,,COUNTA(" & n & "!$A:$A),COUNTA(" & n & "!$1:$1))"
AV
En références de type A1 (à mon avis plus lisibles) :
n = ActiveSheet.Name
ActiveWorkbook.Names.Add Name:="aa", RefersTo:= _
"=OFFSET(" & n & "!$A$2,,,COUNTA(" & n & "!$A:$A),COUNTA(" & n & "!$1:$1))"
En références de type A1 (à mon avis plus lisibles) :
n = ActiveSheet.Name ActiveWorkbook.Names.Add Name:="aa", RefersTo:= _ "=OFFSET(" & n & "!$A$2,,,COUNTA(" & n & "!$A:$A),COUNTA(" & n & "!$1:$1))"
AV
Céline Brien
Salut, Ne pas oublier l'apostrophe avant et après les guillemets ! '" & n &"' Merci encore, Céline
Sub ChampData() ' Créer une variable du nom de l'onglet n = ActiveSheet.Name ' Créer le champ Data ActiveWorkbook.Names.Add Name:="Data", RefersTo:="=OFFSET('" & n & "'!$A$2,,,COUNTA('" & n & "'!$A:$A),COUNTA('" & n & "'!$1:$1))" End Sub
En références de type A1 (à mon avis plus lisibles) :
n = ActiveSheet.Name ActiveWorkbook.Names.Add Name:="aa", RefersTo:= _ "=OFFSET(" & n & "!$A$2,,,COUNTA(" & n & "!$A:$A),COUNTA(" & n & "!$1:$1))"
AV
Salut,
Ne pas oublier l'apostrophe avant et après les guillemets !
'" & n &"'
Merci encore,
Céline
Sub ChampData()
' Créer une variable du nom de l'onglet
n = ActiveSheet.Name
' Créer le champ Data
ActiveWorkbook.Names.Add Name:="Data", RefersTo:="=OFFSET('" & n &
"'!$A$2,,,COUNTA('" & n & "'!$A:$A),COUNTA('" & n & "'!$1:$1))"
End Sub
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de news:OoT2gGlxDHA.1736@TK2MSFTNGP09.phx.gbl...
Salut, Ne pas oublier l'apostrophe avant et après les guillemets ! '" & n &"' Merci encore, Céline
Sub ChampData() ' Créer une variable du nom de l'onglet n = ActiveSheet.Name ' Créer le champ Data ActiveWorkbook.Names.Add Name:="Data", RefersTo:="=OFFSET('" & n & "'!$A$2,,,COUNTA('" & n & "'!$A:$A),COUNTA('" & n & "'!$1:$1))" End Sub
En références de type A1 (à mon avis plus lisibles) :
n = ActiveSheet.Name ActiveWorkbook.Names.Add Name:="aa", RefersTo:= _ "=OFFSET(" & n & "!$A$2,,,COUNTA(" & n & "!$A:$A),COUNTA(" & n & "!$1:$1))"
AV
michdenis
Quelle idée d'utiliser des noms de feuilles contenant des espaces... sinon l'apostrophe n'est pas requis !
;-)
Salutations!
"Céline Brien" a écrit dans le message de news:O64t$ Salut, Ne pas oublier l'apostrophe avant et après les guillemets ! '" & n &"' Merci encore, Céline
Sub ChampData() ' Créer une variable du nom de l'onglet n = ActiveSheet.Name ' Créer le champ Data ActiveWorkbook.Names.Add Name:="Data", RefersTo:="=OFFSET('" & n & "'!$A$2,,,COUNTA('" & n & "'!$A:$A),COUNTA('" & n & "'!$1:$1))" End Sub
En références de type A1 (à mon avis plus lisibles) :
n = ActiveSheet.Name ActiveWorkbook.Names.Add Name:="aa", RefersTo:= _ "=OFFSET(" & n & "!$A$2,,,COUNTA(" & n & "!$A:$A),COUNTA(" & n & "!$1:$1))"
AV
Quelle idée d'utiliser des noms de feuilles contenant des espaces... sinon l'apostrophe n'est pas requis !
;-)
Salutations!
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de news:O64t$jlxDHA.2316@TK2MSFTNGP10.phx.gbl...
Salut,
Ne pas oublier l'apostrophe avant et après les guillemets !
'" & n &"'
Merci encore,
Céline
Sub ChampData()
' Créer une variable du nom de l'onglet
n = ActiveSheet.Name
' Créer le champ Data
ActiveWorkbook.Names.Add Name:="Data", RefersTo:="=OFFSET('" & n &
"'!$A$2,,,COUNTA('" & n & "'!$A:$A),COUNTA('" & n & "'!$1:$1))"
End Sub
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de news:OoT2gGlxDHA.1736@TK2MSFTNGP09.phx.gbl...
Quelle idée d'utiliser des noms de feuilles contenant des espaces... sinon l'apostrophe n'est pas requis !
;-)
Salutations!
"Céline Brien" a écrit dans le message de news:O64t$ Salut, Ne pas oublier l'apostrophe avant et après les guillemets ! '" & n &"' Merci encore, Céline
Sub ChampData() ' Créer une variable du nom de l'onglet n = ActiveSheet.Name ' Créer le champ Data ActiveWorkbook.Names.Add Name:="Data", RefersTo:="=OFFSET('" & n & "'!$A$2,,,COUNTA('" & n & "'!$A:$A),COUNTA('" & n & "'!$1:$1))" End Sub
En références de type A1 (à mon avis plus lisibles) :
n = ActiveSheet.Name ActiveWorkbook.Names.Add Name:="aa", RefersTo:= _ "=OFFSET(" & n & "!$A$2,,,COUNTA(" & n & "!$A:$A),COUNTA(" & n & "!$1:$1))"
AV
Céline Brien
Salut à tous et à toutes, Salut MichDenis, Pas le choix de mettre ou non des espaces, car le nom de l'onglet est la date de la mise à jour des données ! Exemple : 19 déc 2003 Joyeuses fêtes à tous, Céline
"michdenis" a écrit dans le message de news:
Quelle idée d'utiliser des noms de feuilles contenant des espaces... sinon l'apostrophe n'est pas requis !
;-)
Salutations!
"Céline Brien" a écrit dans le message de news:O64t$
Salut, Ne pas oublier l'apostrophe avant et après les guillemets ! '" & n &"' Merci encore, Céline
Sub ChampData() ' Créer une variable du nom de l'onglet n = ActiveSheet.Name ' Créer le champ Data ActiveWorkbook.Names.Add Name:="Data", RefersTo:="=OFFSET('" & n & "'!$A$2,,,COUNTA('" & n & "'!$A:$A),COUNTA('" & n & "'!$1:$1))" End Sub
En références de type A1 (à mon avis plus lisibles) :
n = ActiveSheet.Name ActiveWorkbook.Names.Add Name:="aa", RefersTo:= _ "=OFFSET(" & n & "!$A$2,,,COUNTA(" & n & "!$A:$A),COUNTA(" & n & "!$1:$1))"
AV
Salut à tous et à toutes,
Salut MichDenis,
Pas le choix de mettre ou non des espaces, car le nom de l'onglet est la
date de la mise à jour des données !
Exemple : 19 déc 2003
Joyeuses fêtes à tous,
Céline
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:OvljjFmxDHA.2448@TK2MSFTNGP12.phx.gbl...
Quelle idée d'utiliser des noms de feuilles contenant des espaces...
sinon l'apostrophe n'est pas requis !
;-)
Salutations!
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de news:O64t$jlxDHA.2316@TK2MSFTNGP10.phx.gbl...
Salut,
Ne pas oublier l'apostrophe avant et après les guillemets !
'" & n &"'
Merci encore,
Céline
Sub ChampData()
' Créer une variable du nom de l'onglet
n = ActiveSheet.Name
' Créer le champ Data
ActiveWorkbook.Names.Add Name:="Data", RefersTo:="=OFFSET('" & n &
"'!$A$2,,,COUNTA('" & n & "'!$A:$A),COUNTA('" & n & "'!$1:$1))"
End Sub
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de news:OoT2gGlxDHA.1736@TK2MSFTNGP09.phx.gbl...
Salut à tous et à toutes, Salut MichDenis, Pas le choix de mettre ou non des espaces, car le nom de l'onglet est la date de la mise à jour des données ! Exemple : 19 déc 2003 Joyeuses fêtes à tous, Céline
"michdenis" a écrit dans le message de news:
Quelle idée d'utiliser des noms de feuilles contenant des espaces... sinon l'apostrophe n'est pas requis !
;-)
Salutations!
"Céline Brien" a écrit dans le message de news:O64t$
Salut, Ne pas oublier l'apostrophe avant et après les guillemets ! '" & n &"' Merci encore, Céline
Sub ChampData() ' Créer une variable du nom de l'onglet n = ActiveSheet.Name ' Créer le champ Data ActiveWorkbook.Names.Add Name:="Data", RefersTo:="=OFFSET('" & n & "'!$A$2,,,COUNTA('" & n & "'!$A:$A),COUNTA('" & n & "'!$1:$1))" End Sub