OVH Cloud OVH Cloud

Code VBS qui sélectionne de champs vers la droite

11 réponses
Avatar
Guylaine
Bonjour

J'aimerais avoir le code VBS pour sélectionner les champs d'une ragée.
Sélectionner à partir de la cellule active et tous les champs vers la droite
jusqu'à la dernière cellule utilisée, les cellules ne sont pas toutes emplies.

Avec la macro suivante:

Sub SelectToRight()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

La macro ne sélectionne pas tous les champs vers la droite
Elle sélectionne seulement B1,C1 et D1
j'aimerais que la macro prenne jusqu'au dernier champs, au-delà des champs
libres.

A1 B1 C1 D1 E1 F1 G1 H1 I1 J1
2 4 5 8 30


Merci d'être là pour les novices comme moi

10 réponses

1 2
Avatar
michdenis
Une façon de faire :

'----------------------
Sub SelectToRight()

Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft)).Select

End Sub
'----------------------

N.B. Au lieu de sélectionner la plage de cellule, il est préférable d'utiliser
un objet "Range" et de travailler avec l'objet défini...

Dim Rg as range
set Rg = Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft))

L'objet "Rg" possède toutes les mêmes caractéristiques d'un "Range"




"Guylaine" a écrit dans le message de news:

Bonjour

J'aimerais avoir le code VBS pour sélectionner les champs d'une ragée.
Sélectionner à partir de la cellule active et tous les champs vers la droite
jusqu'à la dernière cellule utilisée, les cellules ne sont pas toutes emplies.

Avec la macro suivante:

Sub SelectToRight()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

La macro ne sélectionne pas tous les champs vers la droite
Elle sélectionne seulement B1,C1 et D1
j'aimerais que la macro prenne jusqu'au dernier champs, au-delà des champs
libres.

A1 B1 C1 D1 E1 F1 G1 H1 I1 J1
2 4 5 8 30


Merci d'être là pour les novices comme moi
Avatar
lSteph
Bonjour,
en VBA :

Range(ActiveCell, Range("iv" & ActiveCell.Row).End(xlToLeft)).Select

Cordialement

lSteph

"Guylaine" a écrit dans le message de
news:
Bonjour

J'aimerais avoir le code VBS pour sélectionner les champs d'une ragée.
Sélectionner à partir de la cellule active et tous les champs vers la
droite
jusqu'à la dernière cellule utilisée, les cellules ne sont pas toutes
emplies.

Avec la macro suivante:

Sub SelectToRight()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

La macro ne sélectionne pas tous les champs vers la droite
Elle sélectionne seulement B1,C1 et D1
j'aimerais que la macro prenne jusqu'au dernier champs, au-delà des champs
libres.

A1 B1 C1 D1 E1 F1 G1 H1 I1 J1
2 4 5 8 30


Merci d'être là pour les novices comme moi


Avatar
Guylaine
Merci beaucoup

Bonne journée!


Une façon de faire :

'----------------------
Sub SelectToRight()

Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft)).Select

End Sub
'----------------------

N.B. Au lieu de sélectionner la plage de cellule, il est préférable d'utiliser
un objet "Range" et de travailler avec l'objet défini...

Dim Rg as range
set Rg = Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft))

L'objet "Rg" possède toutes les mêmes caractéristiques d'un "Range"




"Guylaine" a écrit dans le message de news:

Bonjour

J'aimerais avoir le code VBS pour sélectionner les champs d'une ragée.
Sélectionner à partir de la cellule active et tous les champs vers la droite
jusqu'à la dernière cellule utilisée, les cellules ne sont pas toutes emplies.

Avec la macro suivante:

Sub SelectToRight()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

La macro ne sélectionne pas tous les champs vers la droite
Elle sélectionne seulement B1,C1 et D1
j'aimerais que la macro prenne jusqu'au dernier champs, au-delà des champs
libres.

A1 B1 C1 D1 E1 F1 G1 H1 I1 J1
2 4 5 8 30


Merci d'être là pour les novices comme moi





Avatar
Guylaine
Bonjour,

J'ai une autre question
si je veux changer la couleur des champs que j'ai sélectionnés.

Sub SelectToRight()

Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft)).Select
With ActiveCell
.Interior.ColorIndex = 36

End With

End Sub



Le code suivant change la couleur du champ actif seulement et non de la
sélection

Merci encore une fois

Une façon de faire :

'----------------------
Sub SelectToRight()

Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft)).Select

End Sub
'----------------------

N.B. Au lieu de sélectionner la plage de cellule, il est préférable d'utiliser
un objet "Range" et de travailler avec l'objet défini...

Dim Rg as range
set Rg = Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft))

L'objet "Rg" possède toutes les mêmes caractéristiques d'un "Range"




"Guylaine" a écrit dans le message de news:

Bonjour

J'aimerais avoir le code VBS pour sélectionner les champs d'une ragée.
Sélectionner à partir de la cellule active et tous les champs vers la droite
jusqu'à la dernière cellule utilisée, les cellules ne sont pas toutes emplies.

Avec la macro suivante:

Sub SelectToRight()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

La macro ne sélectionne pas tous les champs vers la droite
Elle sélectionne seulement B1,C1 et D1
j'aimerais que la macro prenne jusqu'au dernier champs, au-delà des champs
libres.

A1 B1 C1 D1 E1 F1 G1 H1 I1 J1
2 4 5 8 30


Merci d'être là pour les novices comme moi





Avatar
Guylaine
Merci ISteph

Le code fonctionne très bien


Bonjour,
en VBA :

Range(ActiveCell, Range("iv" & ActiveCell.Row).End(xlToLeft)).Select

Cordialement

lSteph

"Guylaine" a écrit dans le message de
news:
Bonjour

J'aimerais avoir le code VBS pour sélectionner les champs d'une ragée.
Sélectionner à partir de la cellule active et tous les champs vers la
droite
jusqu'à la dernière cellule utilisée, les cellules ne sont pas toutes
emplies.

Avec la macro suivante:

Sub SelectToRight()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

La macro ne sélectionne pas tous les champs vers la droite
Elle sélectionne seulement B1,C1 et D1
j'aimerais que la macro prenne jusqu'au dernier champs, au-delà des champs
libres.

A1 B1 C1 D1 E1 F1 G1 H1 I1 J1
2 4 5 8 30


Merci d'être là pour les novices comme moi







Avatar
michdenis
Change la couleur de toutes les cellules de la plage...
il n'est pas nécessaire de les sélectionner pour autant !

with Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft)).
.Interior.ColorIndex = 36
End with



"Guylaine" a écrit dans le message de news:

Bonjour,

J'ai une autre question
si je veux changer la couleur des champs que j'ai sélectionnés.

Sub SelectToRight()

Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft)).Select
With ActiveCell
.Interior.ColorIndex = 36

End With

End Sub



Le code suivant change la couleur du champ actif seulement et non de la
sélection

Merci encore une fois

Une façon de faire :

'----------------------
Sub SelectToRight()

Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft)).Select

End Sub
'----------------------

N.B. Au lieu de sélectionner la plage de cellule, il est préférable d'utiliser
un objet "Range" et de travailler avec l'objet défini...

Dim Rg as range
set Rg = Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft))

L'objet "Rg" possède toutes les mêmes caractéristiques d'un "Range"




"Guylaine" a écrit dans le message de news:

Bonjour

J'aimerais avoir le code VBS pour sélectionner les champs d'une ragée.
Sélectionner à partir de la cellule active et tous les champs vers la droite
jusqu'à la dernière cellule utilisée, les cellules ne sont pas toutes emplies.

Avec la macro suivante:

Sub SelectToRight()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

La macro ne sélectionne pas tous les champs vers la droite
Elle sélectionne seulement B1,C1 et D1
j'aimerais que la macro prenne jusqu'au dernier champs, au-delà des champs
libres.

A1 B1 C1 D1 E1 F1 G1 H1 I1 J1
2 4 5 8 30


Merci d'être là pour les novices comme moi





Avatar
Guylaine
Bonjour

Merci beaucoup avec ton aide tout fonctionne bien.

Quelle chance avons nous de vous avoir :-)

"michdenis" wrote:

Change la couleur de toutes les cellules de la plage...
il n'est pas nécessaire de les sélectionner pour autant !

with Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft)).
.Interior.ColorIndex = 36
End with



"Guylaine" a écrit dans le message de news:

Bonjour,

J'ai une autre question
si je veux changer la couleur des champs que j'ai sélectionnés.

Sub SelectToRight()

Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft)).Select
With ActiveCell
.Interior.ColorIndex = 36

End With

End Sub



Le code suivant change la couleur du champ actif seulement et non de la
sélection

Merci encore une fois

Une façon de faire :

'----------------------
Sub SelectToRight()

Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft)).Select

End Sub
'----------------------

N.B. Au lieu de sélectionner la plage de cellule, il est préférable d'utiliser
un objet "Range" et de travailler avec l'objet défini...

Dim Rg as range
set Rg = Range(ActiveCell, Cells(ActiveCell.Row, 256).End(xlToLeft))

L'objet "Rg" possède toutes les mêmes caractéristiques d'un "Range"




"Guylaine" a écrit dans le message de news:

Bonjour

J'aimerais avoir le code VBS pour sélectionner les champs d'une ragée.
Sélectionner à partir de la cellule active et tous les champs vers la droite
jusqu'à la dernière cellule utilisée, les cellules ne sont pas toutes emplies.

Avec la macro suivante:

Sub SelectToRight()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

La macro ne sélectionne pas tous les champs vers la droite
Elle sélectionne seulement B1,C1 et D1
j'aimerais que la macro prenne jusqu'au dernier champs, au-delà des champs
libres.

A1 B1 C1 D1 E1 F1 G1 H1 I1 J1
2 4 5 8 30


Merci d'être là pour les novices comme moi










Avatar
jps
face à une telle phrase, je regrette ma couperose : personne ne voit comme
je suis ému...bon, c'est pas le tout : ma goye et mon seau m'attendent et
mes petits camarades sont déjà dans les rangs
jps

"Guylaine" a écrit dans le message de
news:
Quelle chance avons nous de vous avoir :-)


Avatar
Francois L
face à une telle phrase, je regrette ma couperose : personne ne voit comme
je suis ému...bon, c'est pas le tout : ma goye et mon seau m'attendent et
mes petits camarades sont déjà dans les rangs


Bonjour jps,

Tu ne commences pas vers 19/20 heures aujourd'hui ?
;-)
--
François L

Avatar
jps
:-)))) tu veux ma mort ou quoi, françois?
jps

"Francois L" a écrit dans le message de news:

face à une telle phrase, je regrette ma couperose : personne ne voit
comme je suis ému...bon, c'est pas le tout : ma goye et mon seau
m'attendent et mes petits camarades sont déjà dans les rangs


Bonjour jps,

Tu ne commences pas vers 19/20 heures aujourd'hui ?
;-)
--
François L



1 2