copy destination sans les formules qui sont dans certaines Cellules de la source

Bonsoir,


En copiant une ligne d'une feuille à un autre je voudrais ne pas copier les formules qui sont dans la plage "EA:EH" mais seulement les valeurs !

Code:

---

1 2	Sheets("synoptique").Range("A" & i & ":H" & i).Copy Destination:=Sheets("Agent admin").Range("A200") Sheets("synoptique").Range("verif").Range("B" & i & ":H" & i).Copy Destination:=Sheets("Agent admin").Range("EA200")

---

J'ai ajouté après recherches

Code:

---

ActiveSheet.Range("EA200:EG200").PasteSpecial Paste:=xlPasteValues

---

comme ceci :

Code:

---

1 2 3

Sheets("synoptique").Range("A" & i & ":H" & i).Copy Destination:=Sheets("Agent admin").Range("A200") Sheets("synoptique").Range("verif").Range("B" & i & ":H" & i).Copy Destination:=Sheets("Agent admin").Range("EA200") ActiveSheet.Range("EA200:EG200").PasteSpecial Paste:=xlPasteValues

---

Mais non content d'avoir toujours les formules dans ma feuille de destination, j'obtient une petite fenêtre avec erreur 400 !

Merci par avance pour vos aides

Bonjour,

fait un copier-collage spécial valeur avec l'enregistreur de macro, tu verras tout de suite la différence.
eric

Bonjour

Outre la remarque d'Eriiic

Dans un copier coller, quand on pars d'une plage, on colle dans la cellule d'angle haut gauche de la cible : Excel sait combien de cellules en largeur et en hauteur il a copié et il doit donc coller...

Bonjour,

Après un test avec un l'enregistreur de macro j'ai donc modifié mon code comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9

i = Columns("B").Find(Nom, lookat:=xlWhole).Row If Not x Is Nothing Then MsgBox (" Le nom " & " " "n'a pas été trouvé "), vbExclamation: Exit Sub MsgBox i Sheets("test1").Range("A" & i & ":H" & i).Copy Destination:=Sheets("test2").Range("A1") Sheets("test1").Range("verif").Range("A" & i & ":F" & i).Select Selection.Copy Sheets("test2").Range("EA1:EG1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

quand il arrive au select de "EA1:EG1" j'ai une erreur 1004, la méthode select de la class Range a échoué

Bonjour,
Une autre solution avec Range.Value = Range.Value
Exemple avec la copie de la plage B7:E17 de la feuille [Feuil1] vers la feuille [Feuil2]à partir de la cellule A1 du classeur où se trouve le code VBA

Code:

---

1 2 3 4 5 6 7 8

Sub CopyRangeValue() With ThisWorkbook .Worksheets("Feuil1").Range("B7:E10").Copy .Worksheets("Feuil2").Range("A1") With .Worksheets("Feuil2").Range("A1").CurrentRegion .Value = .Value End With End With End Sub

---

Un grand merci, cette méthode m'a permis d'avancer