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 -
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
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
-
Bonjour
Voici 4 lignes qui donnent le même résultatRange("X" & ActiveCell.Row & ":BM" & ActiveCell.Row).Selectcdlt
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 -
Merci frenchie 83
Ça marche très bien pour un premier essai sur le site c'est un succès
