Discussion :

[scoubi77]

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 :

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

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 :

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

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

comme ceci :

Code :

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

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

[eriiic]

Bonjour,

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

[78chris]

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

[scoubi77]

Bonjour,

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

Code :

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

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é

[Philippe Tulliez]

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 :

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

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

[scoubi77]

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