Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Erreur 1004

I

Itori

Guest
Rebonjour,

Code:
    '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...
 
I

Itori

Guest
Il semble qu'il y ai une différence avec l'apperçu...
La partie rouge est bien entendu
Code:
 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

Nous a quittés en 2006
Repose en paix
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
 
I

Itori

Guest
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]
 

Pièces jointes

  • Class.zip
    30.7 KB · Affichages: 21
  • Class.zip
    30.7 KB · Affichages: 20
  • Class.zip
    30.7 KB · Affichages: 18

Charly2

Nous a quittés en 2006
Repose en paix
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]
 

Pièces jointes

  • Itori_Class.zip
    31.5 KB · Affichages: 14

Itori

XLDnaute Junior
ç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

Nous a quittés en 2006
Repose en paix
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

XLDnaute Junior
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

Nous a quittés en 2006
Repose en paix
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
 

Discussions similaires

Réponses
5
Affichages
163
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…