Comment créer une macro Copier en Formule

Ciredabeille -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je débute sur la création de macros et je souhaitais pour commencer créer quelques boutons utiles comme "copier en formules".

Lorsque je vais sur "nouvelle macro", je clique sur coper puis collage speciale puis sur formules mais ca ne marche pas du tout.

Quelqu'un pourrait-il m'expliquer?

Merci d'avance!

Ciredabeille
Configuration: Windows XP Internet Explorer 6.0

6 réponses

  1.
    m@rina Messages postés 27688 Date d'inscription   Statut Modérateur Dernière intervention   11 567
     
    Bonjour,

    Quand on dit "ça ne marche pas du tout", ça ne veut pas dire grand chose... Qu'est ce qui ne marche pas ???

    Voici un exemple pour copier la formule de A1 vers M1 : 

    Sub copie_formule()

Range("A1").Copy
Range("M1").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub


    m@rina
    0
    1. Ciredabeille
       
      Bonjour Marina,

      Merci pour ta réponse.

      J'aimerais que cette macro copie en formule ma cellule copiée (pas forcément A1) sur les cellules sélectionnées (pas forcément M1 mais par exemple C2, E3 et F4). Serais-tu comment modifier la macro pour qu'elle ne soit pas spécialisée sur 2 cellules en particulier?

      J'espère être assez claire!!

      Marianne
      0
  2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Salut,
    Tu peux le faire avec des inputbox :

    Sub copie_formule()
    Dim var1, var2 As String
    var1 = InputBox("Saisir le nom de la cellule à copier", "Cellule à copier")
    Range(var1).Copy
    var2 = InputBox("Saisir le nom de la cellule de destination", "Cellule de destination")
    Range(var2).PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
    end sub

    cela te convient?
    0
  3. Ciredabeille
     
    hello

    Merci oui c'est presque trop bien meme.
    Le problème la c'est que parfois j'ai plein de cellules de destination.

    N'y a t-il pas un truc aussi simple que le bouton "copier en valeurs" du menu edition mais pour "copeir en formules"?

    Merci!
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      La macro fonctionne aussi avec pleins de cellules de destination... Suffit de les noter toutes à la suite comme ceci : B1, B3, K56, IJ654 etc... J'ai modifié la macro pour que cela apparaisse :

      Dim var1, var2 As String
      var1 = InputBox("Saisir le nom de la cellule à copier", "Cellule à copier")
      Range(var1).Copy
      var2 = InputBox("Saisir le nom de(s) la cellule(s) de destination. [Dans le cas de plusieurs cellules, les séparer par une virgule et un espace ; comme ceci : B1, B2, B3, E56, etc...]", "Cellule de destination")
      Range(var2).PasteSpecial Paste:=xlPasteFormulas
      Application.CutCopyMode = False
      0
  4. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    créer quelques boutons utiles comme "copier en formules"
    C'est pour t'entrainer ?
    Parce que là je ne vois pas trop là différence avec un copier/coller normal en fait...

    eric
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Ciredabeille
     
    Bonjour,

    Alors en fait, la différence c'est je ne veux pas copier le format. Tu sais comment faire??

    Merci!
    0
  7. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Je dois partir là...
    Mais c'est parce que tu devras régulièrement copier une formule dans des cellules précises ?
    Tu peux nommer les cellules destination pour les sélectionner rapidement.
    Refaire par macro copier/collage spécial formule je ne vois tjs pas l'interet
    Il y a encore qcq chose qui m'échappe mais quoi ?????
    0