Bonjour tout le monde!
J'ai un programme qui utilise des variables temporaires qui changent à chaque tour de boucle. J'aimerais donc savoir si il est possible d'avoir une sorte d'historique des valeurs de mes variables temporaires que je pourrais par la suite afficher dans une MsgBox.
Num_chrono est juste un numéro chronologique qui me sert de compteur. Le problème c'est que, tel quel, le programme ne m'affichera dans la MsgBox que le dernier MonParametreDeSelection et la dernière Réf_analyse et non le listing de toutes les valeurs qu'on prises mes 2 variables. Je sais que je pourrais introduire ça dans la boucle mais dans ces cas là j'aurai la MsgBox qui apparaîtrait à chaque tour de boucle ce qui peut vite devenir énervant pour les utilisateurs. C'est pourquoi je l'ai mise en dehors de la boucle mais je ne vois pas comment je pourrais stocker toutes les valeurs prises par mes 2 variables puis les afficher dans la MsgBox.
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 For Num_chrono = 1 To [Forms]![MonFormulaire]![MaxDeNum_chrono] '------------- Requête de sélection de chaque critère pour chaque Num_chrono ------------- MonCritere = Nz(DLookup("MonCritere", "MaTable", "MonParametreDeSelection =' " & [Forms]![MonFormulaire]![MonParametreDeSelection] & " ' AND Num_chrono = " & Nz(Num_chrono, " "))) '------------- Requête de sélection de chaque indicateur de réalisation et récupération des Références de l'analyse en cas non correspondance entre Critère planifié et Critère effectué pour chaque Num_chrono ------------- Indicateur = Nz(DLookup("[CritereDeVerification]", "MaTableDeVerification", "[MonParametre2DeSelection] =" & MonParametre2DeSelection & " "), " ") Réf_analyse = Nz(DLookup("[Référence de l'analyse]", "MaTableDeVerification", "[MonParametre2DeSelection] =" & MonParametre2DeSelection & " "), "") '------------- Instruction s' il y a correspondance entre le critère planifié et le critère effectué ------------- etc ... '------------- Instruction s' il n'y a pas correspondance entre le critère planifié et le critère effectué ------------- etc ... Next Num_chrono '------------- Récupération de Indicateur et Réf_analyse pour quand il n'y a pas de correspondance ------------- If Indicateur <> MonCritere Then AlerteCritere = MsgBox("Attention ! Le critère planifié est différent du critère effectué pour MonParametreDeSelection n°" & MonParametreDeSelection & " et la Référence de l'analyse n° '" & Réf_analyse & "'", vbExclamation)
Merci d'avance.
Partager