Discussion :

[noviceavb]

Bonjour à Tous


Question bete comme toujours avec moi !!!!

Pourquoi cela fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
quelquechose.select
selection.autrechose

ecrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

quelquechose.autrechose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Le plus simple étant de le faire en directe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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