Macro pour copier des valeurs

Résolu

Florian_le_novice -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention - 10 août 2013 à 13:11

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

Afficher la suite

A voir également:

Macro pour copier des valeurs
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Comment copier une vidéo youtube - Guide
Super copier - Télécharger - Gestion de fichiers
Jitbit macro recorder - Télécharger - Confidentialité
Historique des copier coller - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

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

Discussions similaires

dessin avec symbole clavier

Arobase (@)

comment faire une arobase

Votre réponse

Discussions similaires