Comment créer une macro Copier en Formule

Ciredabeille -  
eriiic Messages postés 24603 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
A voir également:

6 réponses

Réponse 1 / 6
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
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
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
Réponse 2 / 6
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
Réponse 3 / 6
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
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
Réponse 4 / 6
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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

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

Posez votre question
Réponse 5 / 6
Ciredabeille
 
Bonjour,

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

Merci!
0
Réponse 6 / 6
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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