Macro pour copier des valeurs

Résolu
Florian_le_novice -  
Bonjour,

Je suis une bille pour développer des macros mais j'ai presque solutionné mon problème...

Je veux copier une ligne de plusieurs feuilles dans une seule feuille. J'ai trouvé la macro suivante :

Sub demo()

Dim Feuille As Worksheet, cmpt As Long

cmpt = 1
For Each Feuille In ActiveWorkbook.Worksheets
If Not Feuille Is ActiveSheet Then
Feuille.Range("A1:V1").Copy Destination:=ActiveSheet.Cells(cmpt, 1)
cmpt = cmpt + 1
End If
Next

End Sub

Elle fonctionne si j'ai du texte mais pas si j'ai des formules (exemple concatener,...). Que dois-je modifier pour copier que la valeur des cellules ?

C'est sans doute simple mais je suis novice...

Merci pour votre aide!
Florian

1 réponse

  1. Frenchie83
    Bonjour
    petite modif 
    Sub demo()
    Dim Feuille As Worksheet, cmpt As Long
    cmpt = 1
    For Each Feuille In ActiveWorkbook.Worksheets
        If Not Feuille Is ActiveSheet Then
            Feuille.Range("A1:V1").Copy
            ActiveSheet.Cells(cmpt, 1).PasteSpecial Paste:=xlPasteValues
            cmpt = cmpt + 1
        End If
    Next
End Sub
    bonne journée
    0