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

Fermé
ptitjean49 Messages postés 2 Date d'inscription mercredi 11 décembre 2013 Statut Membre Dernière intervention 14 décembre 2013 - 11 déc. 2013 à 22:26
ptitjean49 Messages postés 2 Date d'inscription mercredi 11 décembre 2013 Statut Membre Dernière intervention 14 décembre 2013 - 14 déc. 2013 à 15:21
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
A voir également:

2 réponses

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
12 déc. 2013 à 03:03
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 Date d'inscription mercredi 11 décembre 2013 Statut Membre Dernière intervention 14 décembre 2013
14 déc. 2013 à 15:21
Merci frenchie 83
Ça marche très bien pour un premier essai sur le site c'est un succès
0