Recopier formule et valeur

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+

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+

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

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+