Discussion :

[NulenVBA]

Bonjour,

Voici mon code simple

Code :

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

1
2
3
4
5
Sheets(4).Range("c25:e60").Select
Selection.Copy
    Sheets("Résultats d'ensemble").Select
    Range("A17").Select
    ActiveSheet.Paste

Le collage ne fonctionne pas, j'ai un beau "subscript out of range" qui ne cesse de se répéter quoi que je fasse. Y a-t-il un problème de déclaration de variable? Je devrais déclarer d'abord la feuille? Quoi que je fasse que je mette worksheets'"Nom") Sheets("Nom"), ça ne passe pas. Qqun a une piste?

Merci à vous.

NulenVBA

[pgz]

Bonjour;


Tu peux essayer

Code :

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

1
2
3
With Application.thisworkbook
    .Sheets(4).Range("c25:e60").Copy .Sheets("Résultats d'ensemble").Range("A17")
End with

PGZ

[NulenVBA]

Merci pgz et Wil, cela fonctionne! Ce que je ne comprends pas c'est pourquoi mon programme inspiré d'un "record macro" ne comprend pas ce que je lui demande. Vous sauriez m'éclairer?

Merci.

NulEnVBA.

[pgz]

@Wielfried
Pas de problème. Comme ça il a 2 versions!

@NulenVBA
Je n'ai pas vérifié mais
L'enregistreur de macro n'enregistre pas tout.
Quand tu réalises le travail à la main tu sélectionnes et tu actives. L'enregistreur ne garde que les sélections.

Je pense que pour coller la feuile doit être active. J'imagine donc que

Code :

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

1
2
3
4
5
Sheets(4).Range("c25:e60").Select
Selection.Copy
    Sheets("Résultats d'ensemble").Activate
    Range("A17").Select
    ActiveSheet.Paste

a des chances de marcher, mais ce n'est vraiment pas terrible...

PGZ

[wilfried_42]

bonjour

essaye ca :

Code :

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

Sheets(4).Range("c25:e60").Copy destination:= Sheets("Résultats d'ensemble").Range("A17")

oups : bonjour pgz, excuse pour la collision