[VBA Excel]probleme de copier/coller

**ogenki** · 30/01/2006, 16h42

bonjour

je fait la copie de plusieur cellules en meme temp d'un classeur a un autre mais dans ma copie certain cellule sont rempli avec des #REF

pourquoi et comment le modifier

**SfJ5Rpw8** · 30/01/2006, 17h17

et il y as quoi dans les cellules sources...? (formules..)
si tu ne copie pas les formules dans même Adresse.. attention à ce qu'elle ne fasse pas référence à des cellules dont la position relative , nous emmêne en dehors du nouveau classeur...

**ogenki** · 30/01/2006, 18h21

se sont bien des formules et je crain que effectivement elles ne soit hors du nouveau classeur...

**Megaxel** · 30/01/2006, 18h27

Alors tu vas aussi devoir copier les onglets où se trouvent les données qui alimentent les formules.
Sinon, le plus simple, c'est de ne copier que la valeur. Mais par conter, tu auras un fichier figé. Mais peut-être que ça te suffit?
Pour faire un "copier coller" par valeur, voici le code:

Code :

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

1
2
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Enfin, c'est surtout le

Code :

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

PasteSpecial Paste:=xlPasteValues

qui est important.

**ogenki** · 30/01/2006, 18h36

enfait je fait un

Code :

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

ActiveSheet.Paste

sa doit devenir

Code :

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

ActiveSheet.PasteSpecial Paste

???

apres un rapide test ma formule ne marche pas tu pourai etre plus clair sur commen modifier mon code stp

**Megaxel** · 30/01/2006, 19h08

Bon, je file, là, mais je crois bien que

Code :

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

ActiveSheet.PasteSpecial Paste:=xlPasteValues

devrait te convenir.
Fais le une fois manuellement en enregistrant une macro, en faisant un "Edition" "Collage spécial", et tu choisis "valeurs" dans les radio-boutons.

**ogenki** · 30/01/2006, 19h12

merci beaucoup

je test tout de suite je ferai un edit pour dire si sa marche ou pas

[EDIT] apres un test je suis en regret d'anoncé que sa ne marche pas

il donne une erreur " erreur defini par l'aplication ou par l'objet

**AlainTech** · 30/01/2006, 23h28

Cette erreur arrive, en général, quand on tombe hors de la feuille.

Par exemple, ActiveSheet.Cells(0, 1).Select donne cette erreur.

**ogenki** · 31/01/2006, 13h33

bonjour

je ne pense pas tombé a coté de la feuille puisque si je remet

Code :

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

ActiveSheet.Paste

a la place de

Code :

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

ActiveSheet.PasteSpecial Paste:=xlPasteValues

je n'est plus d'erreur...ormis biensur mes #REF

**SfJ5Rpw8** · 31/01/2006, 14h09

non mais les formules "pointes" en dehors de la feuille...

par exemple si tu as la formule
=A1
dans cellule B1 et que tu la copie vers la cellule A1.. tu aura une erreur..

=(Colonne à gauche de A ) 1

n'existant pas...

**ogenki** · 31/01/2006, 14h13

mais formule ressemble plus a =libDirection ou =libpjr

**illight** · 31/01/2006, 14h13

Il faut que tu copie les valeurs de ta cellule

Pour cela tu n'a qu'a créé une macro test ou tu lance une macro automatique et tu fais un copier coller d'une cellule sur une autre en faisant un collage spécial et en spécifiant le collage que tu veux

comme ça tu aura la bonne formule

Sinon tu peut pas utiliser tout betement une boucle ou tu fais un :

Code :

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