active cell sélection copie

Bonjour,
Comment écrire qu'à partir de la cellule active je sélectionne x cellules sur la même ligne pour les copier coller.?
Je sais, je suis nul en vba.
Merci quand même.

Bonjour

Ici la variable i étant la colonne de fin de selection

Code:

---

1 2 3 4 5 6

Dim b As Integer   b = 10   Range(ActiveCell.Address & ":" & Cells(ActiveCell.Row, b).Address).Select

---

merci de ton aide Jérôme,
ma sélection va de F à AX
si ma cellule active est sur f la formule est donc :

Code:

---

1 2 3 4

Dim b As Integer   b = 10 Range(ActiveCell.Address & "ax" & Cells(ActiveCell.Row, b).Address).Select

---

mais hélas ça bug. sur la 1ère ligne surlignée en jaune.

dans ton cas

Code:

---

Range("F" & ActiveCell.Row & ":AX" & ActiveCell.Row).Select

---

En utilisant activcell.row pour utiliser la ligne active

Bonsoir,

Si toutes les cellules sont à droite de celles sélectionnées, tu peux trouver la plage avec

Code:

---

ActiveCell.Resize(0,x)

---

Si les cellules sont toujours de F à AX et que celle sélectionnée est n'importe où, mais juste sur la bonne ligne

Code:

---

ActiveCell.Parent.Range("F" & activecell.row & ":AX" & Activecell.row)

---

Cordialement,

PGZ

merci à tous les deux vous êtes super.
les deux solutions fonctionnent.
tim