Copier/coller formules et valeurs

[www.KarlMarx.com]

Bonjour à tous,

je souhaite afin de gagner de la place dans un fichier réalisé via une macro un copier/coller formules puis valeurs. Cependant, le nombre de lignes de ceci doit être flexible et devra donc aller chercher la dernière ligne (par exemple avec nbval). J'ai mis un exemple en PJ.

KM

 

[RENAUDER]

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

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

 

[www.KarlMarx.com]

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.

 

[RENAUDER]

Re : Copier/coller formules et valeurs

Bonjour,
Une ligne où ?
En A6 ?

 

[www.KarlMarx.com]

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.

 

[gofinos]

Re : Copier/coller formules et valeurs

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

 

[RENAUDER]

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

 

[RENAUDER]

Re : Copier/coller formules et valeurs

Bonjour gofinos,

Tu dois placer le code dans un module VBA

 

[www.KarlMarx.com]

Re : Copier/coller formules et valeurs

Merci beaucoup.

KM

 

[www.KarlMarx.com]

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