Bonsour® Greg avec ferveur ;o))) vous nous disiez :
Je cherche la traduction qui me permettrait de passer de ' sélectionner la ligne entière ActiveCell.EntireRow.Select à ' sélectionner la ligne jusque la colonne x
with activesheet range(.cells(activecell.row,activecell.column),.cells(activecell.row,"X") ).select end with
-- -- @+ ;o)))
Bonsour® Greg avec ferveur ;o))) vous nous disiez :
Je cherche la traduction qui me permettrait de passer de
' sélectionner la ligne entière
ActiveCell.EntireRow.Select
à
' sélectionner la ligne jusque la colonne x
with activesheet
range(.cells(activecell.row,activecell.column),.cells(activecell.row,"X") ).select
end with
Bonsour® Greg avec ferveur ;o))) vous nous disiez :
Je cherche la traduction qui me permettrait de passer de ' sélectionner la ligne entière ActiveCell.EntireRow.Select à ' sélectionner la ligne jusque la colonne x
with activesheet range(.cells(activecell.row,activecell.column),.cells(activecell.row,"X") ).select end with
-- -- @+ ;o)))
Greg
Super! Merci beaucoup.
Par contre, j'ai mal exprimé mon attente... Avec ce code, il sélectionne de la cellule active jusque la colonne X. J'aurais aimé démarrer réellement en colonne B et terminer en colonne AV. J'ai fait des essais avec le code tel qu'il est proposé mais sans succés.
Greg
PS: Je suis tout à fait débutant en VB
Super! Merci beaucoup.
Par contre, j'ai mal exprimé mon attente... Avec ce code, il sélectionne de
la cellule active jusque la colonne X. J'aurais aimé démarrer réellement en
colonne B et terminer en colonne AV. J'ai fait des essais avec le code tel
qu'il est proposé mais sans succés.
Par contre, j'ai mal exprimé mon attente... Avec ce code, il sélectionne de la cellule active jusque la colonne X. J'aurais aimé démarrer réellement en colonne B et terminer en colonne AV. J'ai fait des essais avec le code tel qu'il est proposé mais sans succés.
Greg
PS: Je suis tout à fait débutant en VB
Jacky
Bonjour, Modeste étant parti aux champignons '----------- With ActiveSheet Range(.Cells(ActiveCell.Row, "B"), .Cells(ActiveCell.Row, "AV")).Select End With '--------------
-- Salutations JJ
"Greg" a écrit dans le message de news: 48e612fa$0$8444$
Super! Merci beaucoup.
Par contre, j'ai mal exprimé mon attente... Avec ce code, il sélectionne de la cellule active jusque la colonne X. J'aurais aimé démarrer réellement en colonne B et terminer en colonne AV. J'ai fait des essais avec le code tel qu'il est proposé mais sans succés.
Greg
PS: Je suis tout à fait débutant en VB
Bonjour,
Modeste étant parti aux champignons
'-----------
With ActiveSheet
Range(.Cells(ActiveCell.Row, "B"), .Cells(ActiveCell.Row, "AV")).Select
End With
'--------------
--
Salutations
JJ
"Greg" <delboe@free.fr> a écrit dans le message de news:
48e612fa$0$8444$426a74cc@news.free.fr...
Super! Merci beaucoup.
Par contre, j'ai mal exprimé mon attente... Avec ce code, il sélectionne
de la cellule active jusque la colonne X. J'aurais aimé démarrer
réellement en colonne B et terminer en colonne AV. J'ai fait des essais
avec le code tel qu'il est proposé mais sans succés.
Bonjour, Modeste étant parti aux champignons '----------- With ActiveSheet Range(.Cells(ActiveCell.Row, "B"), .Cells(ActiveCell.Row, "AV")).Select End With '--------------
-- Salutations JJ
"Greg" a écrit dans le message de news: 48e612fa$0$8444$
Super! Merci beaucoup.
Par contre, j'ai mal exprimé mon attente... Avec ce code, il sélectionne de la cellule active jusque la colonne X. J'aurais aimé démarrer réellement en colonne B et terminer en colonne AV. J'ai fait des essais avec le code tel qu'il est proposé mais sans succés.
Greg
PS: Je suis tout à fait débutant en VB
Greg
"Essayer c'est souvent réussir!", m'a dit LSteph ce matin. Je me suis donc acharné à comprendre ce code et par essai erreur, je pense que j'ai trouvé:
With ActiveSheet Range(.Cells(ActiveCell.Row, "B"), .Cells(ActiveCell.Row, "AV")).Select End With
Merci Modeste!
à plus
Greg
"Essayer c'est souvent réussir!", m'a dit LSteph ce matin. Je me suis donc
acharné à comprendre ce code et par essai erreur, je pense que j'ai trouvé:
With ActiveSheet
Range(.Cells(ActiveCell.Row, "B"), .Cells(ActiveCell.Row, "AV")).Select
End With