definier une zone horizontale avec end(xlleft)

Le
Alfred WALLACE
Bonjour
je voulais m'inspirer de cette ligne :

With Worksheets(NomFeuille)
.Range("BB1:BB" & .Range("BB65356").End(xlUp).Row).Name =
"remplissage"
End With

ceci defini une zone nomme remplissage en selectionnant la colonne
BB, de la ligne 1
jusqu' la dernire cellule non vide de la colonne BB


je cherche faire pareil, mais, de faon horizontale.

de la cellule CE6 jusqu' la cellule la meme ligne 6, mais je ne
connais pas la colonne.

j'ai essaye :
.Range("CE6:" & .Range("IV6").End(xlleft).Col).Name = "remplissage"

mais j'ai une erreur.

Merci
Jos
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4321481
Bonjour,

Range([A1], [IV1].End(xlToLeft)).Name = "xxx"

JB

On 21 mar, 12:30, "Alfred WALLACE"
Bonjour
je voulais m'inspirer de cette ligne :

With Worksheets(NomFeuille)
.Range("BB1:BB" & .Range("BB65356").End(xlUp).Row).Name =
"remplissage"
End With

ceci defini une zone nommée remplissage en selectionnant la colonne
BB, de la ligne 1
jusqu'à la dernière cellule non vide de la colonne BB

je cherche à faire pareil, mais, de façon horizontale.

de la cellule CE6 jusqu'à la cellule à la meme ligne 6, mais je ne
connais pas la colonne.

j'ai essaye çà :
.Range("CE6:" & .Range("IV6").End(xlleft).Col).Name = "remplissage"

mais j'ai une erreur.

Merci
José


Alfred WALLACE
Le #4321451
On 21 mar, 12:42, "JB"
Bonjour,

Range([A1], [IV1].End(xlToLeft)).Name = "xxx"

JB


Merci JB, merci pour ton aide.
je me rend compte que j'ai pas été complet dans ma question :
voici le code que j'ai écris grace à toi :

With Worksheets(NomFeuille)
.CBB_Champ_de_colonne.ListFillRange = ""
.Range("CD1:CD" & .Range("CD65356").End(xlUp).Row).Name =
"remplissageV"
.Range([CE6], [IV6].End(xlToLeft)).Name = "remplissageH"
.CBB_Champ_de_colonne.ListFillRange = "remplissageH" <------- 1
.CBB_Champ_de_colonne.ListFillRange = "remplissageV" <------- 2
End With

mon pb est que la combobox est tres bien rempplie (avec toutes les
valeurs) dans le cas
numéro 1
Mais, dans la cas numéro 2, je n'ai que le contenu de la première
cellule
de la zone haorisontale.

j'avais oublié de préciser que cette zone nommée horizontale allait
servir
à remplir une combobox dans la feuille.
existe-t-il une sorte de transpose ou un truc du genre ?

Merci
José

JB
Le #4321431
Utiliser la propriété List

.ComboBox1.List = Application.Transpose([ListeHoriz])

Pour les combo et listbox dans les feuilles, attention aux événements
intempestifs (sur Change() par exemple) lorsque l'on utilise
ListFillRange.

JB


On 21 mar, 12:55, "Alfred WALLACE"
On 21 mar, 12:42, "JB"
Bonjour,

Range([A1], [IV1].End(xlToLeft)).Name = "xxx"

JB


Merci JB, merci pour ton aide.
je me rend compte que j'ai pas été complet dans ma question :
voici le code que j'ai écris grace à toi :

With Worksheets(NomFeuille)
.CBB_Champ_de_colonne.ListFillRange = ""
.Range("CD1:CD" & .Range("CD65356").End(xlUp).Row).Name =
"remplissageV"
.Range([CE6], [IV6].End(xlToLeft)).Name = "remplissageH"
.CBB_Champ_de_colonne.ListFillRange = "remplissageH" <------- 1
.CBB_Champ_de_colonne.ListFillRange = "remplissageV" <------- 2
End With

mon pb est que la combobox est tres bien rempplie (avec toutes les
valeurs) dans le cas
numéro 1
Mais, dans la cas numéro 2, je n'ai que le contenu de la première
cellule
de la zone haorisontale.

j'avais oublié de préciser que cette zone nommée horizontale allait
servir
à remplir une combobox dans la feuille.
existe-t-il une sorte de transpose ou un truc du genre ?

Merci
José



Alfred WALLACE
Le #4321281
On 21 mar, 13:07, "JB"
Utiliser la propriété List

.ComboBox1.List = Application.Transpose([ListeHoriz])

Pour les combo et listbox dans les feuilles, attention aux événements
intempestifs (sur Change() par exemple) lorsque l'on utilise
ListFillRange.

JB


Merci JB

José

Publicité
Poster une réponse
Anonyme