|
Il s'agit de la partie programme lancé au moment de l'évaluation de la balise xlvba.
Ce code utilise les petits programmes de gestion des variables ci dessous :
Sub SauveInfo(ByVal nom_variable As String, ByVal nouvelle_valeur)
'procédure pour modifier une variable
Application.Run "'traitement_page 06.xls'!Variable_affecte", nom_variable, nouvelle_valeur
End Sub
Function RecupereInfo(nom_variable)
'récupère le contenu d'une variable
RecupereInfo = Application.Run("'traitement_page 06.xls'!Variable_recupere", nom_variable)
End Function
Function ExisteInfo(nom_variable)
'vérifie l'existance d'une variable
ExisteInfo = Application.Run("'traitement_page 06.xls'!Variable_existe", nom_variable)
End Function
Sub Liste_articles()
'procédure filtrant les données associées à une facture
Dim ligne, derligne
ligne = RecupereInfo("ligne")
Range("krit1").Range("A2").Value = Sheets("factures").Range("a" & ligne).Value
Range("datas_articles").AdvancedFilter _
xlFilterCopy, Range("krit1"), _
Range("articles").Rows("1:1")
SauveInfo "ligne_article", 2
SauveInfo "debut_article", 2
derligne = Sheets("factures").Range("L65536").End(xlUp).Row
SauveInfo "fin_article", derligne
End Sub
|
Code générique de gestion des variables