Bonjour,
(Encore) un petit problème sur la déclaration des variables.
Dans un UF, je récupère ces valeurs :
Comme le montrent les commentaires, je les récupérais initialement depuis une Feuille mais je souhaite éviter cette étape intermédiaire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub UserForm_Initialize() TextBox4.Value = Titre 'Format(Feuil16.[dg3], "dd/mm/yy") 'date version TextBox3.Value = J_validité & " Jour(s)" 'Feuil16.[dg2] & " Jour(s)" TextBox2.Value = Format(date_péremption, "dd/mm/yyyy") 'Format(Feuil16.[dg1], "dd/mm/yy") 'date validité
Ces valeurs se situent dans ThisWorkbook/Private Sub Workbook_Open() :
Dans un module standard, j'ai déclaré ces variables Public
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Titre = ThisWorkbook.BuiltinDocumentProperties("title").Value date_péremption = "30/06/2021" J_validité = date_péremption - Date
Sous certains effets que je n'ai pas clairement identifiés, le UF n'affiche plus les valeurs correctement récupérées à l’exécution de Workbook_Open()
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Public date_péremption As Date Public J_validité As Integer Public Titre As String
Je m'en doutais un peu alors j'ai fait des tests en utilisant Static pour la déclaration des variables, en vain !
A priori, je pensais combiner Public et Static mais ça n'est manifestement pas possible.
En vous remerciant par avance pour vos lumières,
Cordialement,
jp
Partager