figer résultat d'une formule de calcul

Bonjour Virginie,

tu peux copier la "valeur" de ta cellule en utilisant le code ci-dessous. Tu pourrais copier dans les mêmes cellules ou si tu ne veux pas modifier tes cellules de calcul, tu pourrais utiliser des cellules tampons pour copier "figer" tes résultats au moment d'exécuter ton code et faire référence à ces cellules tampons au lieu de te référer à tes cellules "calcul"

Range("Calcul").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("Tampon").Select

J'espère que ça t'aidrea...
Xtian (du Québec)
@++ ;-)

Bonjour "encore" Virginie,
Petit changement:

le range "tampon" doit être sélectionné avant la "CopieSépciale". Tu l'aurais probablement remarqué mais ça me dérangeais...

Range("Calcul").Select
Selection.Copy
Range("Tampon").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Bon courage !

Xtian(du Québec)
@++ ;-)