Copier value et non formule avec un copy Worksheets

Bonjour à tous,

j'ai développé un petit code dans le module "Module3" du fichier joint qui me permet de copier des valeurs présentent dans toutes les sheets qui commencent par "HH" et les coller sur un sheet récap "SwitchBoard Summary". Le problème, c'est que la fonction que j'utilise copie les formules et non pas la value. Je ne sais pas ou placer mon .value dans mon code.

Pouvez-vous m'aider ?

Le code:

Sub flo()

Dim sh As Worksheet

Dim i As Integer

For Each sh In ActiveWorkbook.Worksheets

If Left(sh.Name, 2) = "HH" Then

sh.Activate

sh.Range("B5:D5").Copy Worksheets("Switchboard Summary").Range("B" & i + 10)

sh.Range("J5").Copy Worksheets("Switchboard Summary").Range("E" & i + 10)

sh.Range("M7:R7").Copy Worksheets("Switchboard Summary").Range("M" & i + 10)

sh.Range("H8").Copy Worksheets("Switchboard Summary").Range("T" & i + 10)

sh.Range("E7").Copy Worksheets("Switchboard Summary").Range("U" & i + 10)

sh.Range("E8").Copy Worksheets("Switchboard Summary").Range("V" & i + 10)

sh.Range("H7").Copy Worksheets("Switchboard Summary").Range("W" & i + 10)

sh.Range("H11").Copy Worksheets("Switchboard Summary").Range("X" & i + 10)

sh.Range("E10").Copy Worksheets("Switchboard Summary").Range("Y" & i + 10)

sh.Range("E11").Copy Worksheets("Switchboard Summary").Range("Z" & i + 10)

sh.Range("H10").Copy Worksheets("Switchboard Summary").Range("AA" & i + 10)

i = i + 7

End If

Next sh

Worksheets("Switchboard Summary").Activate

End Sub

Merci Beaucoup

Bonne journée

Bonjour

Essaie comme ceci :

Sub flo()

Dim sh As Worksheet
Dim i As Integer

For Each sh In ActiveWorkbook.Worksheets
If Left(sh.Name, 2) = "HH" Then

sh.Range("B5:D5").Copy
Worksheets("Switchboard Summary").Range("B" & i + 10).PasteSpecial Paste:=xlPasteValues

sh.Range("J5").Copy
Worksheets("Switchboard Summary").Range("E" & i + 10).PasteSpecial Paste:=xlPasteValues
'....
'...
'...
i = i + 7

End If
Next sh
Worksheets("Switchboard Summary").Activate
End Sub

Si ok et que ta demande est terminée, veille à cliquer sur le V vert à coté du bouton EDITER lors de ta réponse

Crdlt

Merci beaucoup !