1 2 3 4 5 6 7 8 9 10 11 12 13
| Private Sub mulFicheOnglet_Change()
Select Case Me.mulFicheOnglet.SelectedItem.Name
Case "usfPagehisto"
Call InitPageHisto
txtAideContext = "Rappel : les cases grises sont informatives seulement, donc non accessibles."
Case "usfPageInstant"
txtAideContext = "Les zones non visibles ne sont accessibles qu'une fois la sélection ou la date voulue précisée."
Case "usfPageIdtt"
txtAideContext = "Entrez les adresses de site au format www.xxxxx, l'application rajoutera" _
& " la syntaxe http de départ automatiquement. Exemple de bonne saisie : www.dg-solutions.fr"
End Select
End Sub |