Afficher la valeur et non pas la formule

TheProdigy · 13 Décembre 2007

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! · 13 Décembre 2007

Re : Afficher la valeur et non pas la formule

Bonsoir adilprodigy, le Forum,

Une façon de faire (pur VBA) :

Code:

[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,

Afficher la valeur et non pas la formule

TheProdigy

XLDnaute Impliqué

myDearFriend!

XLDnaute Barbatruc

Discussions similaires

Afficher la valeur et non pas la formule

TheProdigy

XLDnaute Impliqué

myDearFriend!

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency