Je souhaite définir une base de données de hauteur variable commençant en A5
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="database",
RefersToR1C1:=Range("A5").CurrentRegion
Or, la base de données obtenues fait référence à A1 et non en A5.
Que dois je changer ?
Comment définir un nom qui va d'une cellule donnée (ex : C4) à la dernière
cellule (variable) d'une feuille ?
Je souhaite définir une base de données de hauteur variable commençant en A5 J'utilise le code suivant : ActiveWorkbook.Names.Add Name:="database", RefersToR1C1:=Range("A5").CurrentRegion Or, la base de données obtenues fait référence à A1 et non en A5. Que dois je changer ? Comment définir un nom qui va d'une cellule donnée (ex : C4) à la dernière cellule (variable) d'une feuille ?
Je souhaite définir une base de données de hauteur variable commençant en A5
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="database",
RefersToR1C1:=Range("A5").CurrentRegion
Or, la base de données obtenues fait référence à A1 et non en A5.
Que dois je changer ?
Comment définir un nom qui va d'une cellule donnée (ex : C4) à la dernière
cellule (variable) d'une feuille ?
Je souhaite définir une base de données de hauteur variable commençant en A5 J'utilise le code suivant : ActiveWorkbook.Names.Add Name:="database", RefersToR1C1:=Range("A5").CurrentRegion Or, la base de données obtenues fait référence à A1 et non en A5. Que dois je changer ? Comment définir un nom qui va d'une cellule donnée (ex : C4) à la dernière cellule (variable) d'une feuille ?
Je souhaite définir une base de données de hauteur variable commençant en A5 J'utilise le code suivant : ActiveWorkbook.Names.Add Name:="database", RefersToR1C1:=Range("A5").CurrentRegion Or, la base de données obtenues fait référence à A1 et non en A5. Que dois je changer ? Comment définir un nom qui va d'une cellule donnée (ex : C4) à la dernière cellule (variable) d'une feuille ?
Je souhaite définir une base de données de hauteur variable commençant
en A5
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="database",
RefersToR1C1:=Range("A5").CurrentRegion
Or, la base de données obtenues fait référence à A1 et non en A5.
Que dois je changer ?
Comment définir un nom qui va d'une cellule donnée (ex : C4) à la
dernière cellule (variable) d'une feuille ?
Je souhaite définir une base de données de hauteur variable commençant en A5 J'utilise le code suivant : ActiveWorkbook.Names.Add Name:="database", RefersToR1C1:=Range("A5").CurrentRegion Or, la base de données obtenues fait référence à A1 et non en A5. Que dois je changer ? Comment définir un nom qui va d'une cellule donnée (ex : C4) à la dernière cellule (variable) d'une feuille ?
Merci pour votre aide.
BH.
garnote
Salut Bruno,
Pour définir un nom qui va d'une cellule donnée (ex : C4) à la dernière cellule remplie de la colonne C, il y a ceci :
Sub Nom() ActiveWorkbook.Names.Add Name:="database", _ RefersTo:=Range(Range("C4"), Range("C65536").End(xlUp)) End Sub
Serge
Salut Bruno,
Pour définir un nom qui va d'une cellule donnée (ex : C4) à la dernière
cellule remplie de la colonne C, il y a ceci :
Sub Nom()
ActiveWorkbook.Names.Add Name:="database", _
RefersTo:=Range(Range("C4"), Range("C65536").End(xlUp))
End Sub
Pour définir un nom qui va d'une cellule donnée (ex : C4) à la dernière cellule remplie de la colonne C, il y a ceci :
Sub Nom() ActiveWorkbook.Names.Add Name:="database", _ RefersTo:=Range(Range("C4"), Range("C65536").End(xlUp)) End Sub
Serge
MichDenis
Une façon de faire :
With Worksheets("NomDeLaFeuille") .Range("A1").CurrentRegion.Offset(4). _ Resize(.Range("A1").CurrentRegion.Rows.Count - 4).Name = "toto" End With
"Bruno RCSC" a écrit dans le message de news: 45db2ab7$0$25925$ Bonjour,
Win XP, Excel 2002
Je souhaite définir une base de données de hauteur variable commençant en A5 J'utilise le code suivant : ActiveWorkbook.Names.Add Name:="database", RefersToR1C1:=Range("A5").CurrentRegion Or, la base de données obtenues fait référence à A1 et non en A5. Que dois je changer ? Comment définir un nom qui va d'une cellule donnée (ex : C4) à la dernière cellule (variable) d'une feuille ?
Merci pour votre aide.
BH.
Une façon de faire :
With Worksheets("NomDeLaFeuille")
.Range("A1").CurrentRegion.Offset(4). _
Resize(.Range("A1").CurrentRegion.Rows.Count - 4).Name = "toto"
End With
"Bruno RCSC" <ats.ccs@wanadoo.fr> a écrit dans le message de news:
45db2ab7$0$25925$ba4acef3@news.orange.fr...
Bonjour,
Win XP, Excel 2002
Je souhaite définir une base de données de hauteur variable commençant en A5
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="database",
RefersToR1C1:=Range("A5").CurrentRegion
Or, la base de données obtenues fait référence à A1 et non en A5.
Que dois je changer ?
Comment définir un nom qui va d'une cellule donnée (ex : C4) à la dernière
cellule (variable) d'une feuille ?
With Worksheets("NomDeLaFeuille") .Range("A1").CurrentRegion.Offset(4). _ Resize(.Range("A1").CurrentRegion.Rows.Count - 4).Name = "toto" End With
"Bruno RCSC" a écrit dans le message de news: 45db2ab7$0$25925$ Bonjour,
Win XP, Excel 2002
Je souhaite définir une base de données de hauteur variable commençant en A5 J'utilise le code suivant : ActiveWorkbook.Names.Add Name:="database", RefersToR1C1:=Range("A5").CurrentRegion Or, la base de données obtenues fait référence à A1 et non en A5. Que dois je changer ? Comment définir un nom qui va d'une cellule donnée (ex : C4) à la dernière cellule (variable) d'une feuille ?
Merci pour votre aide.
BH.
JB
Bonsoir,
-Eventuelles lignes vides en colonne A -Peu importe ce qu'il y a en A1:A4
Je souhaite définir une base de données de hauteur variable commenç ant en A5 J'utilise le code suivant : ActiveWorkbook.Names.Add Name:="database", RefersToR1C1:=Range("A5").CurrentRegion Or, la base de données obtenues fait référence à A1 et non en A5. Que dois je changer ? Comment définir un nom qui va d'une cellule donnée (ex : C4) à la d ernière cellule (variable) d'une feuille ?
Merci pour votre aide.
BH.
Bonsoir,
-Eventuelles lignes vides en colonne A
-Peu importe ce qu'il y a en A1:A4
JB
On 20 fév, 18:06, "Bruno RCSC" <ats....@wanadoo.fr> wrote:
Bonjour,
Win XP, Excel 2002
Je souhaite définir une base de données de hauteur variable commenç ant en A5
J'utilise le code suivant :
ActiveWorkbook.Names.Add Name:="database",
RefersToR1C1:=Range("A5").CurrentRegion
Or, la base de données obtenues fait référence à A1 et non en A5.
Que dois je changer ?
Comment définir un nom qui va d'une cellule donnée (ex : C4) à la d ernière
cellule (variable) d'une feuille ?
Je souhaite définir une base de données de hauteur variable commenç ant en A5 J'utilise le code suivant : ActiveWorkbook.Names.Add Name:="database", RefersToR1C1:=Range("A5").CurrentRegion Or, la base de données obtenues fait référence à A1 et non en A5. Que dois je changer ? Comment définir un nom qui va d'une cellule donnée (ex : C4) à la d ernière cellule (variable) d'une feuille ?
Merci pour votre aide.
BH.
Bruno RCSC
Merci pour vos réponses mais certaines ne vont pas (où j'ai peut être pas compris) :
Pour le code vba d'Isabelle, le nom Base_de_données (Insertion/Nom/définir) donne =#Nom?
Pour le code de MichDenis, cela bogue et met l'erreur d'exécution "1004".
Pour le code de Serge, Ok mais comment dois je faire pour aller à la dernière cellule remplie mais pas en colonne C (en colonne X) ?
BH.
Merci pour vos réponses mais certaines ne vont pas (où j'ai peut être pas
compris) :
Pour le code vba d'Isabelle, le nom Base_de_données (Insertion/Nom/définir)
donne =#Nom?
Pour le code de MichDenis, cela bogue et met l'erreur d'exécution "1004".
Pour le code de Serge, Ok mais comment dois je faire pour aller à la
dernière cellule remplie mais pas en colonne C (en colonne X) ?
Oui, j'ai mis le nom adéquate, d'ailleurs l'arrêt et la mise en jaune du code commence au point devant Range.
BH
| Pour le code de MichDenis, cela bogue et met l'erreur d'exécution "1004".
J'espère que tu as pris le temps d'inscrire le nom de TA FEUILLE dans la procédure en remplacement du nom : "NomDeLaFeuille"
With Worksheets("NomDeLaFeuille") .Range("A1").CurrentRegion.Offset(4). _ Resize(.Range("A1").CurrentRegion.Rows.Count - 4).Name = "toto" End With
MichDenis
Dans ta question originale, il y avait ceci :
| RefersToR1C1:=Range("A5").CurrentRegion | Or, la base de données obtenues fait référence à A1 et non en A5.
Cela suppose qu'il y a des données entre A1 et A5 .... NON ? Si c'est le cas la procédure proposée fonctionne correctement et répond à ta question.
En supposant par exemple que la cellule A1 possède une donnée mais que la cellule soient isolée du reste de la feuille, une erreur 1004 est générée MAIS LES DISPOSITIONS DES DONNÉES ne correpondent pas à ta demande initiale.
"Bruno RCSC" a écrit dans le message de news: 45db41f6$0$27368$ Oui, j'ai mis le nom adéquate, d'ailleurs l'arrêt et la mise en jaune du code commence au point devant Range.
BH
| Pour le code de MichDenis, cela bogue et met l'erreur d'exécution "1004".
J'espère que tu as pris le temps d'inscrire le nom de TA FEUILLE dans la procédure en remplacement du nom : "NomDeLaFeuille"
With Worksheets("NomDeLaFeuille") .Range("A1").CurrentRegion.Offset(4). _ Resize(.Range("A1").CurrentRegion.Rows.Count - 4).Name = "toto" End With
Dans ta question originale, il y avait ceci :
| RefersToR1C1:=Range("A5").CurrentRegion
| Or, la base de données obtenues fait référence à A1 et non en A5.
Cela suppose qu'il y a des données entre A1 et A5 .... NON ?
Si c'est le cas la procédure proposée fonctionne correctement et
répond à ta question.
En supposant par exemple que la cellule A1 possède une donnée mais
que la cellule soient isolée du reste de la feuille, une erreur 1004 est générée
MAIS LES DISPOSITIONS DES DONNÉES ne correpondent pas à
ta demande initiale.
"Bruno RCSC" <ats.ccs@wanadoo.fr> a écrit dans le message de news:
45db41f6$0$27368$ba4acef3@news.orange.fr...
Oui, j'ai mis le nom adéquate, d'ailleurs l'arrêt et la mise en jaune du
code commence au point devant Range.
BH
| Pour le code de MichDenis, cela bogue et met l'erreur d'exécution "1004".
J'espère que tu as pris le temps d'inscrire le nom de TA FEUILLE dans la
procédure
en remplacement du nom : "NomDeLaFeuille"
With Worksheets("NomDeLaFeuille")
.Range("A1").CurrentRegion.Offset(4). _
Resize(.Range("A1").CurrentRegion.Rows.Count - 4).Name = "toto"
End With
| RefersToR1C1:=Range("A5").CurrentRegion | Or, la base de données obtenues fait référence à A1 et non en A5.
Cela suppose qu'il y a des données entre A1 et A5 .... NON ? Si c'est le cas la procédure proposée fonctionne correctement et répond à ta question.
En supposant par exemple que la cellule A1 possède une donnée mais que la cellule soient isolée du reste de la feuille, une erreur 1004 est générée MAIS LES DISPOSITIONS DES DONNÉES ne correpondent pas à ta demande initiale.
"Bruno RCSC" a écrit dans le message de news: 45db41f6$0$27368$ Oui, j'ai mis le nom adéquate, d'ailleurs l'arrêt et la mise en jaune du code commence au point devant Range.
BH
| Pour le code de MichDenis, cela bogue et met l'erreur d'exécution "1004".
J'espère que tu as pris le temps d'inscrire le nom de TA FEUILLE dans la procédure en remplacement du nom : "NomDeLaFeuille"
With Worksheets("NomDeLaFeuille") .Range("A1").CurrentRegion.Offset(4). _ Resize(.Range("A1").CurrentRegion.Rows.Count - 4).Name = "toto" End With
garnote
Salut Bruno,
Pour le code de Serge, Ok mais comment dois je faire pour aller à la dernière cellule remplie mais pas en colonne C (en colonne X) ?
Est-ce que cette macro te convient ? Sub Nom() ActiveWorkbook.Names.Add Name:="database", _ RefersTo:=Range(Range("C4"), Range("X65536").End(xlUp)) End Sub
Serge
Salut Bruno,
Pour le code de Serge, Ok mais comment dois je faire pour aller à la dernière cellule remplie mais pas en colonne C (en colonne X)
?
Est-ce que cette macro te convient ?
Sub Nom()
ActiveWorkbook.Names.Add Name:="database", _
RefersTo:=Range(Range("C4"), Range("X65536").End(xlUp))
End Sub
Pour le code de Serge, Ok mais comment dois je faire pour aller à la dernière cellule remplie mais pas en colonne C (en colonne X) ?
Est-ce que cette macro te convient ? Sub Nom() ActiveWorkbook.Names.Add Name:="database", _ RefersTo:=Range(Range("C4"), Range("X65536").End(xlUp)) End Sub
