Copier un ensemble de cellule définie en fonction d'une variable

ptitjean49 Messages postés 2 Statut Membre -  
ptitjean49 Messages postés 2 Statut Membre -
Bonjour à tous,
Dans le titre beaucoup personnes peuvent y voir un sujet redondant. Mais je viens d'explorer un grand nombre de forum sans parvenir à trouver le bon code.

Je voudrais copier l'ensemble des cellules ("Ax","BMx") avec X étant la ligne de la "cellule active"?

Je peux formuler autrement, j'ai trouvé la formule (ci-dessous) qui permet de sélectionner 5 cellules à partir de la cellule active :

Range(activeCell(1,1),ActiveCell(1,5)).select
cette formule est proche de mon souhait, mais elle impose la position de la cellule active toujours au même endroit alors que je veux pouvoir la placer n'importe où sur la ligne.

Soit une cellule active variable mais sélectionner l'ensemble des cellules de ("A" , "BM") de la ligne où ce situe la cellule active.

Je vous remercie par avance de vos réponses

2 réponses

Frenchie83 Messages postés 2254 Statut Membre 339
 
Bonjour
Voici 4 lignes qui donnent le même résultat
    Range("X" & ActiveCell.Row & ":BM" & ActiveCell.Row).Select
Range(Cells(ActiveCell.Row, 24), Cells(ActiveCell.Row, 65)).Select
Cells(ActiveCell.Row, 24).Resize(1, 42).Select
Cells(ActiveCell.Row, 24).Range("A1:AP1").Select
cdlt
0
ptitjean49 Messages postés 2 Statut Membre
 
Merci frenchie 83
Ça marche très bien pour un premier essai sur le site c'est un succès
0