Sub convertirValeur

Bonsoir,

Peut-être que :

Sub Remplace_Formule_Par_Valeur()
Worksheets("Feuil1").[g3] = Worksheets("Feuil1").[g3].Value
End Sub


Serge

"nouveau venu" <antivirus@aol.com> a écrit dans le message de news:
Oh8e#Wt1DHA.2948@TK2MSFTNGP09.phx.gbl...

bonjour

voila ma formule :

Sub convertirValeur()

With Worksheets("Feuil1")
.UsedRange = .UsedRange.Value
End With

End Sub
comment dois je faire pour l'appliquer a une cellule (g3)

merci

bonjour,

With Worksheets("Feuil1")
Range("G3") = Range("G3").Value
End With

ou bien remplacer Range("G3") par ActiveCell

isabelle

bonjour

voila ma formule :

Sub convertirValeur()

With Worksheets("Feuil1")
.UsedRange = .UsedRange.Value
End With

End Sub
comment dois je faire pour l'appliquer a une cellule (g3)

merci

Bonjour @ tous et à isabelle :

Range("G3") = Range("G3").Value

Quelqu'un pourrait-il me dire l'utilité de cette commande.
Merci
--
@+
Thierry
09/01/2004 20:33:10

Allo,

Quelqu'un pourrait-il me dire l'utilité de cette commande.
Merci

Elle 'fixe en dur' les valeurs d'une cellule, substituant à la formule qui s'y
trouvait, le résultat de celle-ci.

Avant
G3 : =6*80
Après
G3 : 480

Idem pour n'importe quelle formule compliquée.

Salutations,

Daniel M.

Bonjour Daniel.M (et @ tous)

Elle 'fixe en dur' les valeurs d'une cellule, substituant à la formule
qui s'y

trouvait, le résultat de celle-ci.

Merci Daniel, je n'avais vraiment pas pensé à ça ;-)))
--
@+
Thierry
09/01/2004 22:01:06

comment dois je faire pour l'appliquer a une cellule (g3)

Pour 1 sous de plus :

Le doublement des parenthèses :
Range("G3") = (Range("G3"))

La méthode Evaluate :
[G3] = [G3]

AV