Microsoft 365 Problème d'enchainement dans un programme VBA

VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
Bonjour,

J'ai un programme pour, premièrement, effacer les données, ensuite appliquer la formule et les figer.
Quand je lance les subroutines pas à pas, les résultats sont correctes.
Quand je lance le programme Sub Mes_donnees(), via le bouton, j'obtiens N/A Requesting data... dans la cellule (1,1).

Je ne trouve pas pourquoi. Voici mon code :

VB: 
Option Explicit



Sub Fichier_vide()

Dim ws As Object

For Each ws In Worksheets
 
       With ws
                If .Cells(1, 1).Value <> "" Then
                   .Cells(1, 1).CurrentRegion.ClearContents
                End If
          
    End With
    
 Next
 
End Sub


Sub Donnees_fin()
 
 
    'sbf_120
  
   Sheets("sbf_120").Cells(1, 1).Formula = "=BQL(""Members('SBF120 INDEX')"", ""ID_ISIN,NAME"")"
 
    
    'dj600
  
   Sheets("dj600").Cells(1, 1).Formula = "=BQL(""Members('SXXP INDEX')"", ""ID_ISIN,NAME"")"
  
  
    
    'sp_500
  
   Sheets("sp_500").Cells(1, 1).Formula = "=BQL(""Members('SPX INDEX')"", ""ID_ISIN,NAME"")"
 

End Sub


'On fige les formules

Sub ConvertFormulasToValuesAllWorksheets()

    Dim ws As Worksheet, rng As Range

    For Each ws In ActiveWorkbook.Worksheets

        For Each rng In ws.UsedRange

            If rng.HasFormula Then

                rng.Formula = rng.Value

            End If

        Next rng

    Next ws

End Sub
 
Sub Mes_donnees()
  Call Fichier_vide
  Call Donnees_fin
  Call ConvertFormulasToValuesAllWorksheets
End Sub

Merci pour votre aide !
 
Trier par date Trier par votes
laurent950

laurent950

XLDnaute Accro
Bonjour @MarieParis

j'ai adapté ce code à votre besoin, je vous laisse le lien pour l'exemple (ci-dessous)

Welcome to Vonixx, the Real Excel Automation Expert

Vonixx Software
xuperfire.com
N/A Requesting data... dans la cellule (1,1)
Cela signifie que votre macro doit « attendre » que les formules soient complètement actualisées avant de continuer.

VB: 
Option Explicit
'
Sub Fichier_vide()
Dim ws As Worksheet
For Each ws In Worksheets
    With ws
        If .Cells(1, 1).Value <> "" Then
            .Cells(1, 1).CurrentRegion.ClearContents
        End If
    End With
 Next
End Sub
'
Sub Donnees_fin()
    If cal_sheet(Sheets("sbf_120")) = True Then
    'sbf_120 / ' Continuer après que la feuille a été calculée
        Sheets("sbf_120").Cells(1, 1).Formula = "=BQL(""Members('SBF120 INDEX')"", ""ID_ISIN,NAME"")"
    End If
    If cal_sheet(Sheets("dj600")) = True Then
    'dj600 / ' Continuer après que la feuille a été calculée
        Sheets("dj600").Cells(1, 1).Formula = "=BQL(""Members('SXXP INDEX')"", ""ID_ISIN,NAME"")"
    End If
    If cal_sheet(Sheets("sp_500")) = True Then
    'sp_500 / ' Continuer après que la feuille a été calculée
        Sheets("sp_500").Cells(1, 1).Formula = "=BQL(""Members('SPX INDEX')"", ""ID_ISIN,NAME"")"
    End If
End Sub
'On fige les formules
Sub ConvertFormulasToValuesAllWorksheets()
Dim ws As Worksheet, rng As Range
    For Each ws In ActiveWorkbook.Worksheets
        For Each rng In ws.UsedRange
            If rng.HasFormula Then
                rng.Formula = rng.Value
            End If
        Next rng
    Next ws
End Sub
'
Sub Mes_donnees()
  Call Fichier_vide
  Call Donnees_fin
  Call ConvertFormulasToValuesAllWorksheets
End Sub
'Cette fonction renvoie Vrai lorsque la feuille active est complètement calculé
'si faux, il y a besoin de calculer encore une pause de 5 secondes est laissé pour effectuer les calcules
Function cal_sheet(ByVal ws As Worksheet) As Boolean
Dim tmp As Boolean
    tmp = False
Dim c As Object
MsgBox ws.Name
    ActiveSheet.Calculate
        With ActiveSheet.UsedRange
            Set c = .Find("request", LookIn:=xlValues)
            If Not c Is Nothing Then
                Application.OnTime Now + TimeValue("00:00:05"), "Donnees_fin"
                tmp = False
            Else
                tmp = True
            End If
        End With
        cal_sheet = tmp
End Function
 
Vote positif 0 Vote négatif
VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
laurent950 à dit:
Bonjour @MarieParis

j'ai adapté ce code à votre besoin, je vous laisse le lien pour l'exemple (ci-dessous)

Welcome to Vonixx, the Real Excel Automation Expert

Vonixx Software
xuperfire.com
N/A Requesting data... dans la cellule (1,1)
Cela signifie que votre macro doit « attendre » que les formules soient complètement actualisées avant de continuer.

VB: 
Option Explicit
'
Sub Fichier_vide()
Dim ws As Worksheet
For Each ws In Worksheets
    With ws
        If .Cells(1, 1).Value <> "" Then
            .Cells(1, 1).CurrentRegion.ClearContents
        End If
    End With
 Next
End Sub
'
Sub Donnees_fin()
    If cal_sheet(Sheets("sbf_120")) = True Then
    'sbf_120 / ' Continuer après que la feuille a été calculée
        Sheets("sbf_120").Cells(1, 1).Formula = "=BQL(""Members('SBF120 INDEX')"", ""ID_ISIN,NAME"")"
    End If
    If cal_sheet(Sheets("dj600")) = True Then
    'dj600 / ' Continuer après que la feuille a été calculée
        Sheets("dj600").Cells(1, 1).Formula = "=BQL(""Members('SXXP INDEX')"", ""ID_ISIN,NAME"")"
    End If
    If cal_sheet(Sheets("sp_500")) = True Then
    'sp_500 / ' Continuer après que la feuille a été calculée
        Sheets("sp_500").Cells(1, 1).Formula = "=BQL(""Members('SPX INDEX')"", ""ID_ISIN,NAME"")"
    End If
End Sub
'On fige les formules
Sub ConvertFormulasToValuesAllWorksheets()
Dim ws As Worksheet, rng As Range
    For Each ws In ActiveWorkbook.Worksheets
        For Each rng In ws.UsedRange
            If rng.HasFormula Then
                rng.Formula = rng.Value
            End If
        Next rng
    Next ws
End Sub
'
Sub Mes_donnees()
  Call Fichier_vide
  Call Donnees_fin
  Call ConvertFormulasToValuesAllWorksheets
End Sub
'Cette fonction renvoie Vrai lorsque la feuille active est complètement calculé
'si faux, il y a besoin de calculer encore une pause de 5 secondes est laissé pour effectuer les calcules
Function cal_sheet(ByVal ws As Worksheet) As Boolean
Dim tmp As Boolean
    tmp = False
Dim c As Object
MsgBox ws.Name
    ActiveSheet.Calculate
        With ActiveSheet.UsedRange
            Set c = .Find("request", LookIn:=xlValues)
            If Not c Is Nothing Then
                Application.OnTime Now + TimeValue("00:00:05"), "Donnees_fin"
                tmp = False
            Else
                tmp = True
            End If
        End With
        cal_sheet = tmp
End Function
Cliquez pour agrandir...
Merci beaucoup !
 
Vote positif 0 Vote négatif
eriiic

eriiic

XLDnaute Barbatruc
Bonjour,

il existe une instruction vba pour savoir si le recalcul est terminé.
Il suffit de boucler dessus et d'attendre la fin avant de continuer :
VB: 
    Do Until Application.CalculationState = xlDone
        DoEvents
    Loop

D'autre part, boucler sur toutes les cellules est très lent. Il est préférable de tout faire d'un coup :
Code: 
    Dim pl As Range
    On Error Resume Next
    Set pl = Cells.SpecialCells(xlCellTypeFormulas) ' sélectionner les formules
    On Error GoTo 0
    If Not pl Is Nothing Then pl = pl.Value ' coller valeur
eric
 
Vote positif 0 Vote négatif
VBA_dev_Anne_Marie

VBA_dev_Anne_Marie

XLDnaute Occasionnel
laurent950 à dit:
Bonjour @MarieParis

j'ai adapté ce code à votre besoin, je vous laisse le lien pour l'exemple (ci-dessous)

Welcome to Vonixx, the Real Excel Automation Expert

Vonixx Software
xuperfire.com
N/A Requesting data... dans la cellule (1,1)
Cela signifie que votre macro doit « attendre » que les formules soient complètement actualisées avant de continuer.

VB: 
Option Explicit
'
Sub Fichier_vide()
Dim ws As Worksheet
For Each ws In Worksheets
    With ws
        If .Cells(1, 1).Value <> "" Then
            .Cells(1, 1).CurrentRegion.ClearContents
        End If
    End With
 Next
End Sub
'
Sub Donnees_fin()
    If cal_sheet(Sheets("sbf_120")) = True Then
    'sbf_120 / ' Continuer après que la feuille a été calculée
        Sheets("sbf_120").Cells(1, 1).Formula = "=BQL(""Members('SBF120 INDEX')"", ""ID_ISIN,NAME"")"
    End If
    If cal_sheet(Sheets("dj600")) = True Then
    'dj600 / ' Continuer après que la feuille a été calculée
        Sheets("dj600").Cells(1, 1).Formula = "=BQL(""Members('SXXP INDEX')"", ""ID_ISIN,NAME"")"
    End If
    If cal_sheet(Sheets("sp_500")) = True Then
    'sp_500 / ' Continuer après que la feuille a été calculée
        Sheets("sp_500").Cells(1, 1).Formula = "=BQL(""Members('SPX INDEX')"", ""ID_ISIN,NAME"")"
    End If
End Sub
'On fige les formules
Sub ConvertFormulasToValuesAllWorksheets()
Dim ws As Worksheet, rng As Range
    For Each ws In ActiveWorkbook.Worksheets
        For Each rng In ws.UsedRange
            If rng.HasFormula Then
                rng.Formula = rng.Value
            End If
        Next rng
    Next ws
End Sub
'
Sub Mes_donnees()
  Call Fichier_vide
  Call Donnees_fin
  Call ConvertFormulasToValuesAllWorksheets
End Sub
'Cette fonction renvoie Vrai lorsque la feuille active est complètement calculé
'si faux, il y a besoin de calculer encore une pause de 5 secondes est laissé pour effectuer les calcules
Function cal_sheet(ByVal ws As Worksheet) As Boolean
Dim tmp As Boolean
    tmp = False
Dim c As Object
MsgBox ws.Name
    ActiveSheet.Calculate
        With ActiveSheet.UsedRange
            Set c = .Find("request", LookIn:=xlValues)
            If Not c Is Nothing Then
                Application.OnTime Now + TimeValue("00:00:05"), "Donnees_fin"
                tmp = False
            Else
                tmp = True
            End If
        End With
        cal_sheet = tmp
End Function
Cliquez pour agrandir...
Bonjour,
Le code marche, mais j'ai ajouté des pauses dans l'exécution des fonctions car le programme ne s'arrêtait pas :
VB: 
Sub Mes_donnees()
   Call Fichier_vide
   Application.OnTime Now + TimeValue("00:00:05"), "Donnees_fin"
   Application.OnTime Now + TimeValue("00:00:20"), "ConvertFormulasToValuesAllWorksheets"
End Sub

Est-ce que vous connaissez une fonction qui permet d'exécuter le programme (via un buton) seulement en cas de connexion Bloomberg, sinon afficher le message d'alerte ? Merci beaucoup pour votre aide.
 
Vote positif 0 Vote négatif

Discussions similaires

chaelie2015
  • Question
XL 2013 Réduire un code
Réponses
0
Affichages
217
chaelie2015
chaelie2015
FRYS
  • Question
Microsoft 365 Retrouver les dépendants de cellules nommées
Réponses
6
Affichages
206
crocrocro
C
S
  • Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
424
Sghaier Chafaa
S
S
  • Question
XL 2021 macro VBA excel
Réponses
1
Affichages
164
crocrocro
C
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
318
crazy
C
S
  • Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
147
souhaib ad
S
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
452
Phil69970
Phil69970
M
  • Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
416
Mody200
M
T
  • Résolu(e)
Microsoft 365 optimisation d'un programme en utilisant la fonction Array
Réponses
5
Affichages
225
Thomas_1
T
J
  • Question
XL 2021 Lien hypertexte dans forme rectangle
Réponses
2
Affichages
131
Phil69970
Phil69970

Membres actuellement en ligne

14 membres et 101 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 176
Messages
2 085 962
Membres
103 067
dernier inscrit
el_privach