pb de synthaxe!! encore!!

[amel]

coucou le forum!
encore une fois, merci a tout ceux qui ont eu la patience de resoudre mes inombrables pbs...j'en ai un tout frais..
voici mon code:
je voudrais copier la cellule active et la coller dans la cellule C3 d'une autre feuille '2005'

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').cells(2, 3).Select
ActiveCell.Paste

VBa n'apprecie pas trop certaines lignes, il bug et le debuggeur ne m'aide pas plus que ça a trouver la synthaxe correcte... y'a t il un ou une spécialiste qui pourrait me debloquer??
merci d'avance!

 

[Titi_Malembourg]

essai

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').range('A1').offset(2, 3).Select
ActiveCell.Paste

 

[amel]

il n'aime pas non plus...

 

[Hervé]

bonjour

cette synthaxe n'est pas possible(1000 fois hélas);

il faut d'abord sélectionner la feuille, puis la cellule, et enfin collé.

Ne me demandez pas pourquoi, j'en sais rien

Worksheets('2005').select
range('A1').offset(2, 3).Select
ActiveCell.Paste


salut

 

[amel]

salut Hervé,

Ohh tu sais vu mon niveau en VBA, j'evite de me poser les questions de ce genre.. :woohoo:
ben il n'apprecie pas non plus cette synthaxe

range('A1').offset(2, 3).Select

 

[myDearFriend!]

Bonjour amel, Titi_Malembourg, Hervé, le Forum.

Cela dit amel, comme les 'select' ne sont pas vraiment indispensables ici (ils le sont rarement d'ailleurs en VBA), tu peux essayer de remplacer ton code par celui-ci :

Dim R As Range
      Set R = ActiveSheet.Range('AE2')
      R.End(xlDown).Offset(1, 0).Value = '=SUM(AE2:' & R.End(xlDown).Address & ')'
      ActiveSheet.Range(R, R.End(xlToLeft)).Copy Worksheets('2005').Cells(2, 3)

Cordialement,

 

[Hervé]

re tout le monde

Oups, désolé amel :

Worksheets('2005').Select
Range('d3').Select
ActiveSheet.Paste

ca doit mieux marché.

mais évite quand meme les select.

Salut

 

[Hervé]

re tout le monde
Salut didier.

désolé didier, je suis pas frais.

salut

 

[amel]

re à vous tous!
salut myDearFriend,
merci pour ton indication! cependant il me copie la cellule A1 dans worksheets'2005'.cells(2,3), ce n'est pas tout à fais ce que je souhaite, je voudrais que le resultat du calcul qu'il vient de faire soit copié et collé dans cells(2,3):

Range('AE2').End(xlDown).Offset(1, 0).Value = '=SUM(AE2:' & Range('AE2').End(xlDown).Address & ')'

 

[amel]

re a tous!
Hervé: il n'aime vraiment pas cette syntaxe, à present c'est le activesheet.paste qui bug...

 

[myDearFriend!]

Re le fil,

amel, si R = ActiveSheet.Range('AE2') et si ActiveSheet.Range(R, R.End(xlToLeft)).Copy Worksheets('2005').Cells(2, 3) te copie la cellule A1 dans worksheets('2005').cells(2,3).... moi, j'abandonne Excel !!!

Maintenant, comme je vois que tu n'as apparemment aucune patience et que tu as eu la bonne idée angry: ) d'ouvrir un autre fil de discussion pour le même problème (Lien supprimé), je pense qu'on peut clore celui-ci ! (En plus, visiblement dans cet autre fil, tu obtiens sensiblement les mêmes réponses...)

Bon courage pour la suite...

PS : pas de problème Hervé, je pensais pouvoir simplifier les choses pour notre amie amel mais apparemment, j'ai dû me tromper...

 

[Hellboy]

bonjour a tous

Grrrrrr.. Je suis sur l'autre fil. :angry:

 

[Robert]

Bonjour le fil, Hervé, Didier, bonjour le forum,

Ha les boules quand j'ai vu ce fil... Et qu'on ne me dise pas «de quoi je m'amel» sinon j'explose !

 

[amel]

je suis désolée

je suis désolé le forum!

 

[Hervé]

Bonsoir amel, didier, hellboy, robert, tout le monde

Amel, toi au moins, tu sais monopolisé du monde pour ton problème.

:angry:

Salut