erreur d'execution 1004

[amel]

Re le forum!

je suis confronté à une erreur d'execution 1004 : la methode select de la classe range a ecHoué...

Worksheets('2005').Select
Range('A1').Offset(2, 3).Select
Selection.Paste

 

[Robert]

Bonjour Amel, bonjour le forum,

Essaie ActiveSheet.Paste, plutôt que Selection.Paste.

 

[Hellboy]

Bonjour amel

Je vois l'erreur que tu indique, mais le problème ne viens pas de cette partie concernant l'erreur que tu mentionne. Pourrais-tu fournir une meilleur vue d'ensemble de ton code s.v.p.

Merci !

 

[amel]

bonjour Robert, Re le forum!
merci pour ton indication Robert, seulement le problème est toujours là et il se situe exactement là:
Range('A1').Offset(2, 3).Select

 

[Hellboy]

re

Si tu n'utilise que les 2 lignes suivante le code fonctionne super bien.

Worksheets('2005').Select
Range('A1').Offset(2, 3).Select


Alors comme je te dis il faut voir plus de code.

Merci !

 

[Robert]

Bonjour Amel, Hellboy, bonjour le forum,

Oui je confirme, Hellboy a raison, la vérité est ailleurs... (Mon Tonton aussi il était tailleur, mais tout le monde s'en fout...)

 

[amel]

Re le forum, slaut Hellboy,
voici donc le code...


Sub ref_month_janv5()

'garde le mois voulu janvier 2005
For x = 100 To 3 Step -1
If Format(CStr(cells(x, 1).Value), 'mmm-yy') <> 'janv-05' Then
cells(x, 1).EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next x

'calcul du nb ATO
Range('AE2').Select
Range('AE2').End(xlDown).Offset(1, 0).Value = '=SUM(AE2:' & Range('AE2').End(xlDown).Address & ')'
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
Selection.Copy
Worksheets('2005').Select
Range('A1').Offset(2, 3).Select
ActiveSheet.Paste


End Sub

 

[Hellboy]

re

essaie ceci:

Worksheets('2005').select
Worksheets('2005').Range('A1').Offset(2, 3).Select

Robert pourrait-peurt être confirmer, je crois aussi qu'il faut utiliser
Worksheets('2005').activate pour la ligne
activesheet.paste

et je crois aussi que remplacer Worksheets('2005').select par
Worksheets('2005').activate serais favorable.

Message édité par: Hellboy, à: 11/07/2005 16:25

 

[amel]

Re le forum,
Hellboy: ça effectue bien la manip mais pas comme je le voudrais, ça copie la cellule A1, et non le resultat du calcul effectué :
Range('AE2').End(xlDown).Offset(1, 0).Value = '=SUM(AE2:' & Range('AE2').End(xlDown).Address & ')'
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select

 

[Robert]

Bonjour le fil,

J'avais encore des bug alors je te porpose ça pour la deuxième partie de la macro:

'calcul du nb ATO
Range('AE2').End(xlDown).Offset(1, 0).Formula = '=SUM(AE2:AE' & Range('AE2').End(xlDown).Row & ')'
Range(Range('AE2'), Range('AE2').End(xlToLeft)).Copy
Worksheets('2005').Select
Range('D3').Select
ActiveSheet.Paste

 

[amel]

Re le forum!
Robert: ben j'ai essayé ton code mais le problème est exactement le meme... :woohoo:

 

[Hellboy]

re le fil

Range('AE2').End(xlDown).Offset(1, 0).Formula = '=SUM(AE2:AE' & Range('AE2').End(xlDown).Row & ')'

Range(Range('AE2'), Range('AE2').End(xlToLeft)).Copy Destination:=Worksheets('2005').Range('D3')

Tu peux faire la copie directemenrt de l'endroit ou tu te trouve sans devoir faire l'action de sélectionner une feuille différente.

bonne journée amel et Robert

 

[amel]

re le forum!
Hellboy: y'a un soucis: ton code ne copie pas la cellule ou est fais le calcul, il me copie la 1ere ligne de ma feuille dans son integralité et l'insère dans la cellule D3... :woohoo:

 

[Hellboy]

re

Pourrais-tu me préciser si c'est la colonne AE au complet que tu veux copier(enfin ou il y a des données bien sur). Ou dis moi quel est la plage que tu veux copie merci !

 

[amel]

re hellboy
ben justement le point sensible de situe la: dans la colonne D j'ai un certain nombre de 0 et de 1 (1 chiffre par cellule) dont je ne connais pas le nombre de cellule pleine dans la colonne D au total..dans la 1ere cellule vide de la colone D, je compte le nombre de '1' contenu dans la colonne D et cette dernière cellule (celle qui contient la somme des 1) est copié et collé dans la cellule(2,3) d'une autre feuille..
:woohoo: