Copier/coller formules et valeurs

RENAUDER

Nous a quitté

Repose en paix

• 17 Juillet 2008

• #2

Re : Copier/coller formules et valeurs

Bonjour,
Par rapport à ton fichier, tu peuxx mettre ce bout de code dans ton projet pour faire ce que tu souhaites

Code:

Sub test()
    Range([E2], [A65536].End(xlUp).Offset(0, 5)).Select
    Selection.FillDown
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
               :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 17 Juillet 2008

• #3

Re : Copier/coller formules et valeurs

Merci RENAUDER, mais ça marche quand j'ai 5 lignes comme dans le cas présent, hors si j'ajoute une ligne ça ne fonctionne plus. Il faut que la macro soit fonctionnelle quelque soit le nombre de lignes sachant que ceci est variable.

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 17 Juillet 2008

• #4

Re : Copier/coller formules et valeurs

Bonjour,
Une ligne où ?
En A6 ?

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 17 Juillet 2008

• #5

Re : Copier/coller formules et valeurs

Ah si excusez moi ça marche bien. Je voudrais cependant vous demander de m'expliquer comment fonctionne cette macro. Dans mon cas concret, les formules commence en colonne M et finissent en colonne U. Quels changements vont donc apparaître dans la macro.

Merci d'avance.

 

Vote positif 0 Vote négatif

G

gofinos

Guest

• 17 Juillet 2008

• #6

Re : Copier/coller formules et valeurs

bonjour ; j'ai lu le code ; mais où dois je le recopier ? pour que ça marche; merci

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 17 Juillet 2008

• #7

Re : Copier/coller formules et valeurs

Bonjour,
Range([E2], [A65536].End(xlUp).Offset(0, 5)).Select
Je sélectionne la cellule de début (E2) de la plage où je dois recopier mes formules.
Pour trouver la dernère cellule de la plage à recopier, je fais A65536.End(xlup) qui signifie que je me place en A65536 et que je remonte (XlUp) à la dernière cellule remplie de la colonne A et que je me décale de 5 colonnes (Offset(0,5)) soit en colonne F
Dans ton nouveau cas ce serait
Range([M2], [A65536].End(xlUp).Offset(0, 20)).Select

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 17 Juillet 2008

• #8

Re : Copier/coller formules et valeurs

Bonjour gofinos,

Tu dois placer le code dans un module VBA

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 17 Juillet 2008

• #9

Re : Copier/coller formules et valeurs

Merci beaucoup.

KM

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 17 Juillet 2008

• #10

Re : Copier/coller formules et valeurs

La solution proposée semble bonne mais je n'atteint pas la résultat souhaité.
Je désire que la macro fasse un copier/coller formules puis valeurs à partir de la première ligne pour la formule sachant que le nombre de ligne doit être variable et donc adaptable à toutes les situtions.

KM

 

Pièces jointes

• Exemples.xls

  18 KB · Affichages: 51
• Exemples.xls

  18 KB · Affichages: 43
• Exemples.xls

  18 KB · Affichages: 47

Vote positif 0 Vote négatif