Erreur 1004

[Itori]

Rebonjour,

    'Mise en forme
[color=red]    Range('Points!A' & Position1deb & ':J' & Position1fin).Copy
    Range('Points!A' & Position2deb & ':J' & Position2fin).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False[/color]
    Range('Points!A' & Position2deb).Value = Date
    Range('Points!D' & Position2deb).Value = 'Points'
    Range('Points!D' & Position2deb + 1).Value = Date
    Range('Points!F' & Position2deb + 1).Value = 'Diff'
    Range('Points!G' & Position2deb + 1).Value = '%'
    Range('Points!H' & Position2deb).Value = 'Place'
    Range('Points!H' & Position2deb + 1).Value = Date
    Range('Points!J' & Position2deb + 1).Value = 'Diff'

Voilà mon code, la partie en rouge semble être la source de l'erreur car si je la supprime, je n'ai plus de problème. Cependant je ne comprend pas pourquoi...

 

[Itori]

Il semble qu'il y ai une différence avec l'apperçu...
La partie rouge est bien entendu

 Range(\\'Points!A\\' & Position1deb & \\':J\\' & Position1fin).Copy
    Range(\\'Points!A\\' & Position2deb & \\':J\\' & Position2fin).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False

Et les balises span n'existe pas..

 

[Charly2]

Bonsoir Itori, bonsoir à toutes et à tous

Les plages que tu indiques ont-elles le même nombre de lignes ?

Si ce n'est pas le cas, tu devrait plutôt essayer:
Range('Points!A' & Position2deb).PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Tiens-nous au courant...

Amicalement
Charly

 

[Itori]

Après essai, cela ne marche toujours pas
Je vous joint le fichier pour de plus ample informations, espérant trouvé la solution à ce problème.

 

[Itori]

oops erreur inch:

Ce lien n'existe plus
Le fichier fait 66Ko.

 

[Charly2]

Bonsoir Itori, bonsoir à toutes et à tous,

Supprime les données dont nous n'avons pas besoin pour comprendre (sauvegarde sous un autre nom quand même )

A+
Charly

 

[Itori]

Voila, normalement même lien que précédemment, j'arrive pas a attacher mon fichier [file name=Class.zip size=31436]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Class.zip[/file]

 

[Charly2]

Bonsoir Itori, bonsoir à toutes et à tous

Je te joins ton fichier légèrement modifié. Il n'y a plus d'erreur mais c'est à toi de voir si j'ai bien compris ce que tu souhaitais et, éventuellement, de modifier les indices...

Amicalement
Charly [file name=Itori_Class.zip size=32232]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Itori_Class.zip[/file]

 

[Itori]

ça a l'air imppeccable
Tu pourrai m'indiquer les erreurs que tu as corriger pour que je ne les refasse pas ?

EDIT : Je parle bien entendu des modif que tu n'aurai pas notées, notament au niveau de la mise en forme.

Message édité par: itori, à: 14/11/2005 23:18

 

[Charly2]

Re,

En ce qui concerne la mise en forme, tu essayais de sélectionner des cellules dans une feuille non active (ou non sélectionnée). C'est impossible sous VBA. Lorsque l'on fait Range(...).select, c'est toujours dans la feuille active.

J'ai donc tout simplement rajouté Sheets('Points').Select, afin que tes cellules puissent être sélectionnées.

J'espère que ces explications sont assez claires :unsure:

Amicalement
Charly

 

[Itori]

oui mais en marquant 'Points!A3' ne lui dis-je pas justement que je veux la cellule A3 de la page points ? et dans ce cas où est l'utilité de pouvoir faire ça si cela n'active pas la feuille en question ?

 

[Charly2]

Ben non, malheureusement La méthode Select de l'objet Range nécessite que la feuille soit active ou sélectionnée.

Avec ton code, tu peux copier, coller, affecter la valeur d'une cellule à une autre, mais pas la 'sélectionner'...

@+
Charly

 

[Itori]

d'accord je te remercie pour ton aide