Scribd
Importer
27 vues1 page

Excel Use Form 2

Le document décrit le code de procédure pour l'activation d'un UserForm, incluant l'initialisation des variables, des données et des contrôles. Il précise également les paramètres de visibilité et d'activation des éléments de l'interface utilisateur. Enfin, il mentionne le focus sur le premier enregistrement ou l'enregistrement sélectionné dans la feuille.

Transféré par

1975bendipierre
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats PDF, TXT ou lisez en ligne sur Scribd
27 vues1 page

Excel Use Form 2

Le document décrit le code de procédure pour l'activation d'un UserForm, incluant l'initialisation des variables, des données et des contrôles. Il précise également les paramètres de visibilité et d'activation des éléments de l'interface utilisateur. Enfin, il mentionne le focus sur le premier enregistrement ou l'enregistrement sélectionné dans la feuille.

Transféré par

1975bendipierre
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats PDF, TXT ou lisez en ligne sur Scribd

Les procédures

Les codes de certaines procédures sont affichés et commentés ici. Je renvoie vers le
classeur en téléchargement pour le complément.
A l’ouverture du UserForm
Code : Sélectionner tout - Visualiser dans une fenêtre à part

1 Private Sub UserForm_Activate()


InitVariable ' Initialisation des variables
2 InitData ' Initialisation adresse liste des données +
3 RowSource
4 InitComboBox ' Initialisation ComboBox
5 UserFormStatus = [Link] ' Consultation par défaut
6 With Me ' Initialisation de certains contrôles
.[Link] = False: .[Link] = False
7 .[Link] = True: .[Link] = False
8 usfTitle ' Titre du UserForm (Propriété Caption)
9 End With
10 ' Focus sur le 1er enregistrement ou l'enregistrement sélectionné
dans la feuille
11
With Me: .[Link] = [Link]: End With
12
13

Vous aimerez peut-être aussi