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

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
348
patricktoulon
patricktoulon
chinel
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
489
chinel
chinel
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
fanch55
M
  • Question Question
XL 2016 liste déroulante formulaire vba excel
2
Réponses
20
Affichages
717
fanch55
fanch55
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
403
patricko-13
P
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
350
Lau01150
L
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
941
tnion
T
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
643
thunder23
thunder23
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
663
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
L
  • Résolu(e)
XL 2021 VBA _ Fermer un PDF
Réponses
5
Affichages
437
Laurent.
L
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
169
cathodique
cathodique
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
641
job75
job75
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
988
Webperegrino
W
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
cathodique
chaelie2015
  • Question Question
XL 2013 Réduire un code
Réponses
0
Affichages
624
chaelie2015
chaelie2015
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
556
kiki29
kiki29
E
  • Question Question
Microsoft 365 Total général TCD à gauche : Solution VBA ?
Réponses
2
Affichages
516
merinos-BernardEtang
merinos-BernardEtang
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
435
sylvanu
sylvanu
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
686
MBEPID
M
Retour