Recopier formule et valeur

Fermé
dudulleray - 1 oct. 2013 à 18:48
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 2 oct. 2013 à 19:06
Bonsoir a toutes et tous, forum bonsoir

excel 2007 VBA

Je souhaiterai effectuer copier des valeurs et des formules dans une autre plage

ci-joint lien pour petit programme exemple avec explications simples

Lien ci dessous

http://cjoint.com/?0JbsPMh8Ji4


Merci a vous pour votre aide

Bonne soirée a tous

Cordialement Ray
A voir également:

4 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
2 oct. 2013 à 00:58
Bonjour,
Tu ne sais pas qu'il y a un éditeur de macros dans Ex ?
Ruban <Développeur> => Enregistrer une macro.
Ensuite tu exécute ce qu'il y a à faire.
1°) Sélectionner F10:F17 et copier -> Sélectionner G10 et copiage spécial valeur.
2°) Sélectionner D10:E17 et taper delete.
=>Arrêter la maco
Dans un module VBA tu aura le code.

Si tu ne veux pas de zéro ça se passe dans les paramètres de la feuille.
A+
0
Salut lermite222

Oui tu as raison, je sais bien pour l'éditeur de macros.

j'ai fait pas mal d'essais et a vrai dire, je ne sais pas comment exposer le probleme

dont je souhaiterai avoir un code.

je ne sais pas quoi écrire pour faire comprendre a l'éditeur ce que je veux.


La, j'ai suivi pas a pas tes conseils, un peu merdouiller mais réussi quelque chose.

je vais peaufiner ca, une impression cependant je pense que l'éditeur balance des codes un peu

tordus c'est moi qui dit ca.

je n'ai pas résolu mon problème, alors je retourne voir ca.

Merci pour ton aide et pour le pas a pas.

Bonne journée a toi

Cordialement Ray
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
2 oct. 2013 à 18:03
Re,
Te fournir un code "tout cuit" ne t'aidera pas a avancer.
Poste déjà le code que tu a "pondu" avec l'éditeur de macros.
A+
0
Salut lermitte222
merci pour ta réponse

"Te fournir un code "tout cuit" ne t'aidera pas a avancer"

si tu savais le temps que je passe a programmer mais mes neurones de 61 ans
commencent a ramer aussi LOL

Ce que j'aimerai bien arriver a faire

(1) copier des formules sans effacer la valeur
(2) copier des valeurs sans effacer les formules
(3) copier des valeurs et les formules

voila mon but car a chaque fois que j'ai besoin je cherche comment faire

bonne soirée a toi et merci pour ton aide

Cordialement Raymond

Sub Macro2()
Range("F10:F17").Select
Selection.Copy
Range("G10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D10:D17").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("I22").Select
End Sub
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
2 oct. 2013 à 19:06
Beh voila... tu y est presque sauf que..
tu à sélectionné Range("D10:D17").Select pour effacer mais de ce fait tu n'efface qu'une partie des données, changer par Range("D10:E17").Select
et ça fonctionnera comme tu veux.
Oublie pas de modifier l'affichage des 0 dans les paramètres de la feuille.
Et 61 n'est pas une excuse.. un peu de volonté aide aussi, voir mon profil :-)
A+
0