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 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é
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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