Afficher la valeur et non pas la formule

[TheProdigy]

Bonjour à tous,

Je vaudrais corriger mon code pour afficher seulement la valeur et non pas la formule.

Merci
Sub cours()
'
' cours Macro
' Macro enregistrée le 13/12/2007 par kheribech
'

'
Range("D6").Select
ActiveCell.FormulaR1C1 = _
"=SUBSTITUTE(VLOOKUP(RC[-3],telechargerdonnees.xls!R4C1:R77C4,3,0),CHAR(160),"""")*1"
End Sub

 

[myDearFriend!]

Re : Afficher la valeur et non pas la formule

Bonsoir adilprodigy, le Forum,

Une façon de faire (pur VBA) :

[COLOR=NAVY]Sub[/COLOR] cours()
[COLOR=NAVY]Dim[/COLOR] Cel [COLOR=NAVY]As[/COLOR] Range
    [COLOR=NAVY]Set[/COLOR] Cel = Workbooks("telechargerdonnees.xls").Sheets(1).Range("A4:A77").Find(Range("A6").Value)
    [COLOR=NAVY]If Not[/COLOR] Cel [COLOR=NAVY]Is Nothing Then[/COLOR]
        Range("D6").Value = Replace(Cel.Offset(0, 2).Value, Chr(160), "")
    [COLOR=NAVY]End If
End Sub[/COLOR]

Cordialement,