Recalcul cellule via macro

[noxunas]

Bonjour à tous,

voici mon problème :

j'ai une cellule qui contient la donnée texte : "=d+10".
Par une macro, cette cellule est tranformée en "=c2+10" puis basculer en mode "standard" pour le calcul effectif.

Le seul pb c'est que ma cellule n'est ensuite pas calculer !
Il faut que j'aille manuellement dans la cellule pour la revalider et là elle est calculée.

D'où ma question :

Comment faire pour que dans ma macro, ma cellule soit ensuite calculée après le renommage :
passage du "d" en "c2" puis calcul effectif (pour éviter que j'aille à la mano la revalider) ???


Merci à tous pour vos réponses.

 

[tototiti2008]

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.

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

 

[noxunas]

Re : Recalcul cellule via macro

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

 

[tototiti2008]

Re : Recalcul cellule via macro

Re,

ce code fonctionne bien chez moi

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

à quoi ressemble ton code ?

 

[noxunas]

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)

 

[tototiti2008]

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

 

[noxunas]

Re : Recalcul cellule via macro

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

 

[tototiti2008]

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

=d x 0,387

(pas d'apostrophe)

ça arrange les choses ?

 

[noxunas]

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...

 

[pierrejean]

Re : Recalcul cellule via macro

Bonjour a tous

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

 

[noxunas]

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("B4😀14")
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

 

[tototiti2008]

Re : Recalcul cellule via macro

Re,

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