Fonction macro Résolu

Question

Bonjour, je cherche une formule pour une macro afin de garder la mise en forme, les valeurs et les formules qui font références à une autre feuille dans mon fichier excel. 
En fait en ce moment j'utilise ActiveSheet.Paste ce qui me permet de gader la mise en forme et les valeurs mais malheuresement pas les formules qui font référence à cette autre feuille excel.

Merci pour votre aide


Configuration: Windows XP / Internet Explorer 8.0

Utilisateur anonyme · Answer

Bonjour,

Votre question n'est pas clair ...

Quand j'exécute la procédure suivante,
tout est transféré sur la seconde feuille,
les valeurs, le format et les formules.

Y compris les formules qui pointent sur la [Feuil1].


Option Explicit

Sub CopieFormule()

    Sheets("Feuil2").Cells.Copy
    Sheets("Feuil3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    
End Sub
'


Cdt

Lupin

Arlequinn · Answer

J'ai:
Sheet("feuill1").Range("A1:Q15").copy
Range("B20").Select
ActiveSheet.Paste
 Comment je peux faire dans cette situation?

Utilisateur anonyme · Answer

Bonjour, 

Exemple : 


Sub CopiePartie() 

    Sheets("Feuil1").Select 
    Range("A1:Q15").Select 
    Selection.Copy 
     
    Range("B20").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 

End Sub 
' 


n.b. Lors du transport de formule (copie de formule), si celles-ci 
sont relatives, excel transpose l'indexation. 

Ex.: 

Si en J8, j'ai la formule : [=SOMME(A1:U1)] et que je copie 
en B20 la plage ("A1:Q15"), alors j'obtiens en K29 la formule 
suivante : [=SOMME(B20:V20)]. 

Pour conserver l'adressage initiale, il faut adressé en absolu, 
soit en J8, la formule : [=SOMME($A$1:$U$1)]. Au moment 
de la copie de cette formule, l'adressage restera intouché. 

Cdt 

Lupin

Arlequinn · Answer

Merci beaucoup cela fonctionne !!

Fonction macro

4 réponses

Discussions similaires

Newsletters