Sujet Précédent Sujet Suivant

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

A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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

Discussions similaires

programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses
Excel VBA : Récupérer la valeur d'une cellule
la pioche -
mikebzh -

3 réponses
Pourquoi Program files (x86) et Programmes?
peer_at -
abdelhak -

7 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
TV LG affiche le carré non programmé
Chantal Joubert -
Evancarreaujoho -

4 réponses