Programme VBA Collage Spécial ou figer valeur

Résolu
xiale1793 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -  
xiale1793 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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 14 Date d'inscription   Statut Membre Dernière intervention   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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Cells(5, 30) = Application.Sum(Range(Cells(5, 5), Cells(5, 29)))
Cells(5, 31) = Cells(5, 30)
0
xiale1793 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   3
 
ça marche !!
merci beaucoup michel !
0