Discussion :

[arnaud.i]

Bonjour,

J'ai hérité d'un fichier Excel avec une vingtaine d'onglet contenant des formules, dont le format du résultat peut être différent.
Le rafraichissement du résultat des formules ne se fait pas malgré que l'option de calcul est en automatique.
Pour avoir, le rafraichissement, je dois aller dans la cellule puis cliquer sur "Entrée".
J'ai initié une macro (voir ci-dessous) mais le problème est que je perds les formats...par exemples "%"
Pouvez-vous svp m'aider?

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
Application.ScreenUpdating = False
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
DerniereColonne = ActiveSheet.UsedRange.Columns.Count
On Error GoTo Suite:
For i = 2 To DerniereLigne
    For j = 1 To DerniereColonne
    If Not IsEmpty(Cells(i, j)) Then
    Cells(i, j).Select
    Selection.TextToColumns Destination:=Cells(i, j), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    End If
Suite:
    Next j
Next i
Application.ScreenUpdating = True
End Sub

[MarcelG]

Salut et bienvenu,

Je peux me tromper mais le calcul ne serait pas alors automatique, contrairement à ton impression.

Dans ce cas, tu peux utiliser la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Calculate

Celle-ci peut s'appliquer

-à tous les classeurs ouverts,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculate

- à une feuille bien déterminée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(1).Calculate

- voire à une cellule ou une plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(1).Range("A1:A3").Calculate

Plus généralement, d'autre part, de mémoire, tu peux consulter par le menu

Fichier\Options\Options avancées

Dans le paragraphe

Options d'affichage de la feuille de calcul

Voir si la case

Formules au lieu des résultats

est cochée.
Dans l'affirmative, il faut décocher cette case.

(Menus sur Excel 2016)

[arnaud.i]

Bonjour Marcel G.

Merci pour ta réponse, j'ai testé avec ce que tu m'as conseillé...mais aucun changement malheureusement