Fonction macro

Résolu
Arlequinn -  
 Arlequinn -
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

4 réponses

  1. Utilisateur anonyme
     
    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
    0
  2. Arlequinn
     
    J'ai:
    Sheet("feuill1").Range("A1:Q15").copy
    Range("B20").Select
    ActiveSheet.Paste
    Comment je peux faire dans cette situation?
    0
  3. Utilisateur anonyme
     
    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
    0
  4. Arlequinn
     
    Merci beaucoup cela fonctionne !!
    0