Sélection VBA

[mgd]

Bonjour,

Grâce à l'aide de bonne âmes sur ce site je suis parvenue à créer une macro qui répond bien à mes attentes. Il me manque juste une instruction que je ne parviens par à intégrer :

Ma macro sert à copier une partie des éléments d'une ligne de données dans Excel. Pour qu'elle fonctionne bien il faut qu'elle soit lancée depuis la cellule A de la ligne sur laquelle on est.

Prenons un exemple :
Je suis sur la ligne 18, j'aimerai que ma macro sélectionne dans un premier temps la cellule A18.
Si je suis sur la ligne 64, qu'elle sélectionne la cellule A64 et ainsi de suite.

Vous remerciant par avance de l'aide que vous pourriez m'apporter.

 

[justine]

bonjour le forum, mgd
pour selectionner la cellule active, tu rentres le code:
activecell.select

 

[mgd]

Rebonjour, à tous
Merci de ta réponse rapide Justine
J'ai essayé activecell mais ça ne répond pas tout à fait à mon besoin car quand la cellule F18 est sélectionnée, je veux forcer la sélection de A18 et non de F18.
Même chose si D64 est sélectionnée, je veux forcé la sélection de A64

Je sais pas si c'est très clair ce que j'écris...

D'avance

 

[justine]

oups desolee, j'ai mal lu la question
je reprends
tu selectionne la ligne ou tu te trouve:
Rows(ActiveCell.Row).Select

 

[mgd]

C XTRA!!!! Merci beaucoup Justine c'est exactement ce qu'il me fallait,

Ce site est vraiment génial!! Quant aux adhérents au forums : réactivité et efficacité des qualités qui sauvent

Merci beaucoup

 

[Jacou]

Bonjour à tous
l'instruction Rows(ActiveCell.Row).Select sélectionne toute la ligne.
l'instruction Range('a' & ActiveCell.Row).Select ne sélectionne que la cellule A de la ligne
Bonne journée à tous

 

[alcalzone]

Bonjour,
Je rebondis sur ta réponse.
Moi je veux sur la ligne sélectionnée activer les cellules des colonnes A à AP. J'ai suivi ton exemple en tapant:
Range('A:Ap' & ActiveCell.Row).Select
Mais ça ne marche pas.
Peux tu me donner la sytaxe dans ce cas
Merci d'avance

 

[Jacou]

Bonsoir à tous

eh bien j'écrirais la ligne comme ça :
Range('A' & ActiveCell.Row& ':AP' & ActiveCell.Row).Select
Attention le signe & est important

 

[Robert]

Bonsoir le fil, bonsoir le forum,

Une autre approche :

Cells(ActiveCell.Row, 1).Range('A1:AP1').Select