OVH Cloud OVH Cloud

Etendre une selection

4 réponses
Avatar
zalliel
Bonjour,

J'ai fait une selection d'une plage de cellule à l'aide de variable, plage
sur la colonne A, je voudrais étendre cette selection à la cellule B et
également C.

range (A45:A56) et je voudrais l'étendre à (A45:C56).

Je ne connais pas l'instruction qui permet de faire cela.

Merci pour vos réponses.
Philippe

4 réponses

Avatar
Jacky
Bonjour Philippe

'range (A45:A56) et je voudrais l'étendre à (A45:C56).
'----------
Var = "c"
Range("A45:" & Var & "56").Select
'-----------
Salutations
JJ

"zalliel" a écrit dans le message de
news:
Bonjour,

J'ai fait une selection d'une plage de cellule à l'aide de variable, plage
sur la colonne A, je voudrais étendre cette selection à la cellule B et
également C.

range (A45:A56) et je voudrais l'étendre à (A45:C56).

Je ne connais pas l'instruction qui permet de faire cela.

Merci pour vos réponses.
Philippe


Avatar
zalliel
Désolé, j'ai pas été explicite,

J'ai mes variables dans le range, donc cela ne fonctionne pas si je fais
comme cela !

range(my,ty) my et ty étant les variables.

Et merci pour ta réponse Jacky


Bonjour Philippe

'range (A45:A56) et je voudrais l'étendre à (A45:C56).
'----------
Var = "c"
Range("A45:" & Var & "56").Select
'-----------
Salutations
JJ

"zalliel" a écrit dans le message de
news:
Bonjour,

J'ai fait une selection d'une plage de cellule à l'aide de variable, plage
sur la colonne A, je voudrais étendre cette selection à la cellule B et
également C.

range (A45:A56) et je voudrais l'étendre à (A45:C56).

Je ne connais pas l'instruction qui permet de faire cela.

Merci pour vos réponses.
Philippe







Avatar
Modeste
Bonsour®
zalliel wrote:
range (A45:A56) et je voudrais l'étendre à (A45:C56).


Sub ZALLIEL()
Dim tbl As Range
Set tbl = Range("A45:A56")
' -----ci-dessus si zone dimensions variables remplacer par Set
tbl=Selection
tbl.Offset(0, 0).Resize(tbl.Rows.Count, tbl.Columns.Count +
2).Select
End Sub


--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042

Avatar
zalliel
Merci, j'ai choisis la 2ème option et tout fonctionne, c'est cool.

Phil


Bonsour®
zalliel wrote:
range (A45:A56) et je voudrais l'étendre à (A45:C56).


Sub ZALLIEL()
Dim tbl As Range
Set tbl = Range("A45:A56")
' -----ci-dessus si zone dimensions variables remplacer par Set
tbl=Selection
tbl.Offset(0, 0).Resize(tbl.Rows.Count, tbl.Columns.Count +
2).Select
End Sub


--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042