Programme VBA Collage Spécial ou figer valeur

Résolu
xiale1793 Messages postés 15 Statut Membre -  
xiale1793 Messages postés 15 Statut Membre -
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

A voir également:

1 réponse

michel_m Messages postés 18903 Statut Contributeur 3 318
 
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
xiale1793 Messages postés 15 Statut Membre 3
 
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
michel_m Messages postés 18903 Statut Contributeur 3 318
 
Cells(5, 30) = Application.Sum(Range(Cells(5, 5), Cells(5, 29)))
Cells(5, 31) = Cells(5, 30)
0
xiale1793 Messages postés 15 Statut Membre 3
 
ça marche !!
merci beaucoup michel !
0