Programme VBA Collage Spécial ou figer valeur

Résolu/Fermé
xiale1793
Messages postés
14
Date d'inscription
mercredi 25 mars 2009
Statut
Membre
Dernière intervention
8 décembre 2012
- 8 déc. 2012 à 11:49
xiale1793
Messages postés
14
Date d'inscription
mercredi 25 mars 2009
Statut
Membre
Dernière intervention
8 décembre 2012
- 8 déc. 2012 à 12:47
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

michel_m
Messages postés
16568
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 mai 2022
3 280
Modifié par michel_m le 8/12/2012 à 12:17
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
mercredi 25 mars 2009
Statut
Membre
Dernière intervention
8 décembre 2012
3
8 déc. 2012 à 12:23
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
16568
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 mai 2022
3 280
8 déc. 2012 à 12:35
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
mercredi 25 mars 2009
Statut
Membre
Dernière intervention
8 décembre 2012
3
8 déc. 2012 à 12:47
ça marche !!
merci beaucoup michel !
0