Programme VBA Collage Spécial ou figer valeur

Résolu
Bonjour à tous,
J'essaie actuellement de faire un programme avec VBA mais je suis confronté à un problème :je n'arrive pas à faire un collage spécial

Voici mon programme :

Sub Calcul()
Cells(5, 30).Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-25]:RC[-1])"
Cells(5, 30).Select
Selection.Value.Copy 'j'ai essayé aussi sans le .value'
Cells(5, 31).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

Ce que je veux faire c'est faire une somme ( ça le fait très bien )
puis figer cet valeur pour cela j'ai essayé un collage spéciale dans la case à coté mais ça ça marche pas

Voilà si qqn pourrait m'éclairer ça serait super !!

Cordialement

Alexis

1 réponse

  1. Contributeur
    Bonjour,

    Comprend pas trop ce que tu veux

    celui-ci écrit dans la cellule cells(5,30)
    la somme de la ligne 1 à 5 de la colonne 30
    Cells(30,5) = Application.Sum(Range(Cells(1, 5), Cells(5, 5)))

    mais j'ai l'impression que tu ne nous dis pas tout....

    Michel
    1
    1. Ok déso ce que j'ai essayé de faire c'est d'abord de faire une somme ça marche très bien

      puis de copier la valeur de cet somme pour la coller dans une autre case

      Alexis
      0
    2. Contributeur
      Cells(5, 30) = Application.Sum(Range(Cells(5, 5), Cells(5, 29)))
      Cells(5, 31) = Cells(5, 30)
      0
    3. ça marche !!
      merci beaucoup michel !
      0