pb select selection

Bonjour à Tous


Question bete comme toujours avec moi !!!!

Pourquoi cela fonctionne :

Code:

---

1 2 3 4

Range("A" & a & ":G" & a).Select Selection.Copy Range("A" & a + b & ":G" & a + b).Select ActiveSheet.Paste

---

Alors que cela ne fonctionne pas :

Code:

---

1 2 3 4

Range("A" & a & ":G" & a).Select Selection.Copy Range("A" & a + b & ":G" & a + b).Select selection.Paste

---

Merci
:ccool:

Bonjour,
Premièrement utilise les balise code!
Regarde le premier message du forum sur l'aide a l'utilisation des boutons, c'est fait exprès pour les nouveau.

Ensuite si tu veux mon avis (introduction inutile puisque de toute facon je vais te le donner et tu liras au minimum le début) le plus simple est de ne PAS utiliser les select selection qui on in nombre considérable de défaut et des qualité pratiquement inexistante
donc au lieu d'écrir

Code:

---

1 2	quelquechose.select selection.autrechose

---

ecrit

Code:

---

quelquechose.autrechose

---

Code:

---

Range("A" & a & ":G" & a).Copy

---

Sinon pour répondre a ta question le paste est une méthode qui s'applique a l'bojet worksheet. Et non pas a un objet range. C'est comme ca :roll:
Le plus simple étant de le faire en directe

Code:

---

1 2	Range("A" & a & ":G" & a).Copy Range("A" & a + b & ":G" & a + b)

---

Regarde l'aide sur copi (tu sélectionne le mot et appui sur F1) pour comprendre comment cela fonctionne