Discussion :

[scully2501]

Bonjour,

Je rencontre un problème concernant des formules sur Excel qui ne se mettent pas à jour automatiquement mais manuellement.

J'ai un code VBA qui me permet de remplir des cellules de formule avec .formula donnant comme résultat soit TRUE soit FALSE pour savoir s'il y a un saut de page.
Le résultat reste toujours à FALSE et quand je rentre dans la cellule manuellement et que je fais ENTRER, ça marche il met à TRUE quand il y a un saut de page.

Le code marche mais la cellule ne se met pas à jour automatiquement quand je rouvre le fichier après le traitement fait.

j'ai vu plusieurs forum où la question est posé mais jamais de solution satisfaisante.

Quelqu'un aurait-il une idée?

[decondelite]

Et le code que tu utilise c'est quoi?

[scully2501]

Le code fait des dizaines de page donc je ne vais pas tout copier. Mais le code qui va dans les cellules est:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Sub break_page()
 
Dim maxi As Integer
 
                     maxi = DerCell.Row
 
                    'pour que .formula marche il faut mettre les cellules de la colonne en mode general
                     Columns("F:F").Select
                     Selection.NumberFormat = "General"            
 
                     'condition de la feuille pour mettre bordure si cellule = true
                    Range("A1:E" & maxi).Select
                    Selection.FormatConditions.Delete
                    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$F1"
                    With Selection.FormatConditions(1).Borders(xlBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlThin
                        .ColorIndex = xlAutomatic
                    End With
 
 
                    ''appel de la fonction is_break_page
                    Range("F1:F" & maxi).Select
                    Selection.Formula = "=is_break_page(" + "ROW()+1)"
 
                    'masquage de la colonne F
                    Columns("F:F").Select
                    Selection.EntireColumn.Hidden = True
 
 
End Sub
 
'Fonction appeler dans la cellule
 
Function is_break_page(ligne As Integer) As Boolean
 
is_break_page = False
 
'boucle qui parcours toute les lignes jusqu'a la derniere
 
 
        If Rows(ligne).EntireRow.PageBreak <> xlNone Then
 
            is_break_page = True
            Else
            is_break_page = False
        End If
 
'Next j
End Function

[decondelite]

Ah Ok je comprends.

Eh bien dans ce cas, après saisie de ta formule, mets ceci:

Code :

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

ActiveSheet.Calculate

Est-ce que ça marche?

[scully2501]

Malheureusement ça ne marche pas non plus. Mais je continue à chercher

[SilkyRoad]

bonsoir



Ajoute

Code :

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

Application.Volatile

au début de la fonction is_break_page

II-C. La méthode Application.Volatile



bonne soirée
michel

[scully2501]

Merci de votre aide, application.volatible ralentit le programme. Au bout de 1h il continue étant donnée le nombre de ligne étant de 500 lignes part onglet.

Ça marche une fois sur deux.