Collage formule sur zone variable

Bonjour à tous,

J'ai un soucis de copier/coller avec une donnée de colonne variable.
Voiçi le code :

Code:

---

1 2 3 4 5 6 7 8

Rows("20").Select Selection.Find(what:="").Activate colonne = ActiveCell.Column ligne = ActiveCell.Row Range("c24").Select Selection.Copy Range(Cells(24, 4), Cells(24, colonne)).Select Selection.Paste

---

La fonction coller ne veut pas fonctionner avec la définition type "range(cells...."

Pourquoi ??? Snif.....
Merci pour vos lumières.

Bonjour,
Il serait bien que tu nous précises ce que tu veux faire car ton code, s'il fonctionnait, ne copierait que des cellules vides ;)

Bonjour, bienvenue sur nos forums


Chez moi, ton code fonctionne (presque) correctement. S'il plante, ce n'est pas sur la ligne que tu mentionnes, mais sur la ligne suivante, que tu devrais remplacer par

Code:

---

activesheet.paste

---

.

Cela étant, les codes avec SELECT ne sont pas du tout optimisés.

Tu pourrais utiliser une seule ligne

Code:

---

Range("c24").Copy Range(Cells(24, 4), Cells(24, Rows(20).Find(what:="").Column))

---

bonjour

en écrivant :

Code:

---

1 2	Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False

---

on arrive au résultat souhaité.
à plus