Macro pour copier des valeurs Résolu/Fermé

Question

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

Frenchie83 · Answer

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 Subbonne journée

Macro pour copier des valeurs

1 réponse

Discussions similaires

Newsletters