copier coller rapide...

[delflef]

Bonjour,
Alors, je vous explique mon problème.
J'ai un fichier excel avec 2 onglets: "Extraction" et "definitif"
le premier, c'est en fait un feuille avec toutes les formules pour extraire les données d'un logiciel de reporting.
Le second, c'est ce qui est envoyé aux directeurs, qui est en fait un copier coller valeurs de la premiere feuille.
mais le probleme c'est qu'il y a des sous totaux dans ces feuilles, et que les directeurs veulent les retrouver. Donc on ne peut plus TOUT copier coller. il faut le faire par bloc. en fait, je voudrais copier coller sur la 2eme feuille uniquement les cellulles comportant la formule "GetCtData" (formule d'extraction).
quelqu'un peut il m'aider???
pour le moment, je fait colonne par colonne, mais c'est tres long, et il faut qq chose de tres tres rapide...
merci

 

[wilfried_42]

Re : copier coller rapide...

Bonjour

Voici une macro à enregistrer qui devrait faire le travail, je n'ai pa pu la tester, pas de fichier joint pour les essais

Sub copie()
    Dim cop As Range
    Dim cel As Range
    Set cop = Sheets("Feuil1").Range("A1:" & Sheets("Feuil1").Cells.SpecialCells(xlCellTypeLastCell).Address)
    For Each cel In cop
        If left(cel.Formula,10) = "=GetCtData" Then
            Sheets("Feuil2").Range(cel.Address).Value = cel.Value
        Else
            Sheets("Feuil2").Range(cel.Address).Formula = cel.Formula
        End If
    Next
End Sub

 

[delflef]

Re : copier coller rapide...

ça n'a pas l'air de marcher, je vais voir au boulot, et j'essaie de voir pour envoyer le fichier la prochaine fois 😉

 

[delflef]

Re : copier coller rapide...

ça ne marche pas,

ça met une erreur sur la ligne

Sheets("Feuil1").Range("A1:" & Sheets("Feuil1").Cells.SpecialCells(xlCellTypeLast Cell).Address)

erreur de compilation :S

 

[wilfried_42]

Re : copier coller rapide...

re:

J'ai utilisé un mauvais bornage pour encadrer la macro, il y a des espaces intempestifs qui se mettent, j'ai remis un autre bornage qui encadre correctement le code et n'ajoute pas les espaces

J'ai testé chez moi, il ne provoque plus d'erreur de syntaxe, par contre sans un bout de fichier, je ne garantis pas.

j'ai testé chez moi avec d'autre fonctions, c'a à l'air d'etre OK

 

[delflef]

Re : copier coller rapide...

J'ai pas retenté, car j'ai trouvé une combine qui me permet de contourner l'usage de cette macro...

un grand merci tout de meme