Copier Coller dans Excel par VBA

Bonjour

J'ai un code à rallonge dans Excel que j'essaye de simplifier au maximum.
A un endroit je veux faire un copié-collé-valeurs mais ca me prend 5 lignes :

Code:

---

1 2 3 4 5

Columns("A:O").Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

J'essaye

Code:

---

Columns("a:o").Copy.PasteSpecial Paste:=xlPasteValues

---

Mais ca bugue et fait une erreur 404 "objet requis"

Plus loin je veux remplacer un libellé [Calcul Cadrages.xlsm] par rien dans des cellules :

Code:

---

1 2 3 4

Rows("1:28").Select Selection.Replace What:="[Calcul Cadrages.xlsm]", _ Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _ False, SearchFormat:=False, ReplaceFormat:=False

---

Mais ca me prend 4 lignes

Pouvez-vous me dire comment écrire ces 2 demandes en 1 ou 2 lignes maxi ?

Merci beaucoup
Didier

bonjour
recherche et remplacer :

Code:

---

Range("A1:G40").Replace What:="toto", Replacement:="titi", LookAt:=xlPart

---

copier

Code:

---

Range("A1:A6").Copy Destination:=Range("B5")

---

Bonjour Benasr

Pour remplace ca marche, et ca doit aller +vite :)

par contre pour copie-colle j'ai fait l'essai sur une petite zone et ca garde les formules , or je ne voudrais mettre que les valeurs

Merci à toi

Salut,

Toujours le même axiome

Citation:

---

Excel avant VBA

---

.

Regarde d'abord si cela peut s'effectuer autrement que par un collage "normal"

Code:

---

1 2 3 4

Sub test() Range("A1:A6").Copy Range("B5").PasteSpecial Paste:=xlPasteValues End Sub

---

Salut,

Si je peux me permettre.
2 remarques.
1 - Attacher les objets range peut être utile à une meilleur lisibilité
(Si même objet "parent" alors méthode With)
2 - Il serait opportun d'annuler le mode copie après son utilisation

La méthode Copy ne peut pas avoir de membre.
Donc, si tu veux faire un PasteSpecial, ça prendra forcément au moins deux lignes.

Code:

---

1 2	Columns("A:O").Copy Columns("A:O").PasteSpecial Paste:=xlPasteValues

---

Mais si ce que tu veux faire c'est transformer en valeurs toutes les formules de la feuille, il serait plus souple d'écrire :

Code:

---

1 2	ActiveSheet.UsedRange.Copy Range("A1").PasteSpecial Paste:=xlPasteValues

---