Recalcul cellule via macro

tototiti2008

XLDnaute Barbatruc

• 25 Juin 2010

• #2

Re : Recalcul cellule via macro

Bonjour noxunas,

Par une macro, cette cellule est tranformée en "=c2+10" puis basculer en mode "standard" pour le calcul effectif.

Cliquez pour agrandir...

essaye peut-être de faire ces 2 actions dans l'ordre inverse
D'abord format Standard
Ensuite modification formule

 

Vote positif 0 Vote négatif

N

noxunas

XLDnaute Nouveau

• 25 Juin 2010

• #3

Re : Recalcul cellule via macro

j'ai essayé, ça ne change rien...toujours pas calculé.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Juin 2010

• #4

Re : Recalcul cellule via macro

Re,

ce code fonctionne bien chez moi

Code:

    Selection.NumberFormat = "General"
    ActiveCell.Formula = Replace(ActiveCell.Value, "d", "C2")

à quoi ressemble ton code ?

 

Vote positif 0 Vote négatif

N

noxunas

XLDnaute Nouveau

• 25 Juin 2010

• #5

Re : Recalcul cellule via macro

ça ne fonctionne pas (je suis sur Excel 2003 PRO), j'ai saisi :

Range("B4").Select
Selection.NumberFormat = "General"
ActiveCell.Formula = Replace(ActiveCell.Value, "d x ", "'Lucie-2010'!C36*")


=> erreur de compilation (nb d'args incorrect ou affectation de propriété
incorrecte)

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Juin 2010

• #6

Re : Recalcul cellule via macro

Re,

Moi aussi j'ai un Excel 2003 Pro

La "fausse" formule n'aurait-elle pas été saisie avec une apostrophe au début ?

un bout de fichier exemple nous éclairerait surement

 

Vote positif 0 Vote négatif

N

noxunas

XLDnaute Nouveau

• 25 Juin 2010

• #7

Re : Recalcul cellule via macro

oui exact, dans ma cellule d'origine j'ai exactement :
'd x 0,387

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Juin 2010

• #8

Re : Recalcul cellule via macro

Re,

et pas de signe =, donc peu de chance qu'il calcule...
Si tu met ta cellule au format Texte (avec Format-Cellule) et que tu tapes

Code:

=d x 0,387

(pas d'apostrophe)

ça arrange les choses ?

 

Vote positif 0 Vote négatif

N

noxunas

XLDnaute Nouveau

• 25 Juin 2010

• #9

Re : Recalcul cellule via macro

si je transforme à la main la cellule pour la passer de :
'd x 0,387 à = d x 0,387

et que j'exécute ensuite la macro :

Range("B4").Select
Selection.NumberFormat = "General"
ActiveCell.Formula = Replace(ActiveCell.Value, "d x ", "'Lucie-2010'!C36*")


toujours la même erreur de compilation...

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Juin 2010

• #10

Re : Recalcul cellule via macro

Bonjour a tous

Et avec d * 0,387 cela ne marche pas mieux ?

 

Vote positif 0 Vote négatif

N

noxunas

XLDnaute Nouveau

• 25 Juin 2010

• #11

Re : Recalcul cellule via macro

Sub test()
Dim a As String
Dim cel As Range
Application.ScreenUpdating = False
a = "C2"
For Each cel In Range("B414")
With cel
.Replace What:="(d ", Replacement:="=(" & a
.Replace What:="d ", Replacement:="=" & a
.Replace What:="x ", Replacement:="*"
.Replace What:=" ", Replacement:=""
.Replace What:=",", Replacement:="."
.NumberFormat = "General"
.Formula = .Formula
End With
Next
End Sub

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Juin 2010

• #12

Re : Recalcul cellule via macro

Re,

ah ben oui, il fallait un point à la place de la virgule...

 

Vote positif 0 Vote négatif