[VBA Excel]probleme de copier/coller

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

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...

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

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:

---

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

---

Enfin, c'est surtout le

Code:

---

PasteSpecial Paste:=xlPasteValues

---

qui est important.

enfait je fait un

Code:

---

ActiveSheet.Paste

---

sa doit devenir

Code:

---

ActiveSheet.PasteSpecial Paste

---

???

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

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

Code:

---

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.

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 :cry: il donne une erreur " erreur defini par l'aplication ou par l'objet

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

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

bonjour

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

Code:

---

ActiveSheet.Paste

---

a la place de

Code:

---

ActiveSheet.PasteSpecial Paste:=xlPasteValues

---

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

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...

mais formule ressemble plus a =libDirection ou =libpjr

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:

---

f.cells(i,j).value = f.cells(k,f).value

---

suivant les cellules que tu veux copier ?

Citation:

---

Envoyé par ogenki

mais formule ressemble plus a =libDirection ou =libpjr

---

et libDirection ou Libpjr c'est quoi des noms de champs ? voir F5... :wink:

non sa renvoi juste du texte... " Suivi des projets du Schéma Directeur Informatique" et avec F5 sa me donne pour reference " libpjr"...