rafraichir excel

Question

Bonjour à tous, je souhaite rafraichir excel après avoir fait une méthode.
Voici le code:

Sub FR_Replace()
nMaxLine = (WorksheetFunction.CountA(Columns("b:b")))
For I = 2 To nMaxLine
    test = Range("B" & I).Value
    valueB = CStr(Range("B" & I).Value)
    test = Replace(valueB, ",", ".")
Next I
End Sub 

Cette fonction me permet de remplacer , par .
La variable test est à jour dans le déboggeur mais excel n'effectue pas le rafraichissement.
Comment rafraichir excel dans ma fonction.

Merci d'avance

mortalino · Answer

Salut TortueGenie,


Et en essayant un truc du genre :
Application.Activate
SendKeys "{F5}"
F5 &#233;tant le rafraichissement d'une application.

J'ai pas essay&#233; mais &#231;a devrait le faire !


@ ++

  Mortalino

tortuegenie · Answer

dsl mais cela ne fonctionne pas

mortalino · Answer

Effectivement, F5 = Atteindre et pas Actualiser dans Excel !
Par contre, l'histoire du point au lieu de la virgule, c'est &#224; remplacer dans tes cellules ?
Si c'est le cas et si &#231;a s'applique &#224; tous tes nombres, changes les parametres r&#233;gionaux de ton PC :

http://www.vbfrance.com/infomsg/AIDE-SVP-ERREUR-EXECUTION-13-INCOMPATIBILITE-TYPE-0_702774.aspx
j'ai mis une r&#233;ponse qui explique comment les modifier

@ ++

  Mortalino

Molenn · Answer

2 choses :

Quand tu parles de rafraîchir dans Excel, ça sous-entend qu'Excel refait tous les calculs.
C'est fait automatiquement si dans les options, onglet calcul, tu as bien coché : calcul automatique.
Sinon, ce n'est pas F5, mais F9 qui recalcule tout. Un SendKeys "{F9}" a donc plus de chance de fonctionner :p

Mais, et c'est mon 2ème point, le pb de ton code n'est pas un pb de raffraichissement :
Si je comprends bien le code ta boucle :
- Tu récupères le contenu d'une cellule dans une variable (test)
- Tu convertis ce contenu en texte dans une 2nde variable (au passage, c'est inutile, autant faire directement test=CStr(test)
- Tu remplaces dans ta 2nde variable le point par une virgule.
Et .. c'est tout.
A quel moment tu réinjectes ta variable dans la cellule ? En fait, Excel se rafraichit bien, c'est juste que tu ne lui fournis aucune donnée à changer.
Tu devrais rajouter à la fin de ta boucle : Range("B" & I).Value = test

Pour simplifier ta boucle, tu peux donc faire : 
For I = 2 To nMaxLine
    Range("B" & I).value = Replace(CStr(Range("B" & I).Value), ",", ".")
Next I


Dernière chose, Mortalino a raison, si c'est juste pour un pb de "." ou de "," dans les chiffres, c'est dans les paramètres régionaux que ça se change ^^.

Molenn

Rafraichir excel

4 réponses

Discussions similaires