Initialize & code validation pour Novice :)

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

TheProdigy

XLDnaute Impliqué
Bonsoir,

J'ai deux questions:

1.Comment ajouter le truc Initialize() automatiquement ou par défault dans une procédure par exemple
Code:
 Private Sub UserForm_[B]Initialize()[/B]
, à chaque fois on doit l'écrire lettre à lettre?? car il ne paraît pas dans la liste qui contient
Code:
_Change() _Click
Code:
_DblClick

2. Ma deuxième question
Supposon que j'ai un bouton validation dans un Userform: Je dois toujours cliquer droit pour insérer ou visualiser le code y afférant? et donc pas la peine de parler de Module dans ce cas.

Je suis Novice alors pas à pas avec moi et mille Merci à vous.
 
Re : Initialize & code validation pour Novice 🙂

Bonjour,
Code:
 Private Sub UserForm_Initialize()
Il faut d'abord sélectionner Userform (liste à gauche) pour accèder au menu evenements le concernant (liste à droite)
Pas compris la 2e question, si tant est que j'ai compris la première
A+
kjin
 
Re : Initialize & code validation pour Novice 🙂

Merci.

Supposons que j'au un Formulaire de saisi. L'Userfom contient un bouton nommé Validation quand je clique sur le bouton il transfère les données dans la feuil Excel.

Je mets ALT F11 Je veux visiualiser le code. Celui-ci est toujours caché derrière le bouton validation en cliquant droit sur celui-ci????
Voilà un exemple:

Code:
Private Sub UserForm_Initialize()
   Me.Service.List = Array("Etudes", "Informatique", "Marketing", "Production")
   Me.Ville.List = Array("Boulogne", "Lyon", "Paris", "Versailles")
 End Sub
Private Sub b_validation_Click()
   '--- Positionnement dans la base
   ligne = Sheets("BD").[A65000].End(xlUp).Row + 1
   '--- Transfert Formulaire dans BD
   Sheets("BD").Cells(ligne, 1) = Application.Proper(Me!nom)
   Sheets("BD").Cells(ligne, 2) = CVDate(Me.date_naissance)
   Sheets("BD").Cells(ligne, 3) = Me.Service
   Sheets("BD").Cells(ligne, 4) = Me.Ville
   Sheets("BD").Cells(ligne, 5) = CDbl(Me.Salaire)
End Sub
Private Sub b_fin_Click()
  Unload Me
End Sub

Ma question est que je dois toujours cliquer droit sur le bouton Valider pour visiualiser le code.
Merci.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
Réponses
10
Affichages
3 K
Pepino
P
M
Réponses
0
Affichages
2 K
mohamed driss
M
C
Réponses
6
Affichages
2 K
C
C
Réponses
3
Affichages
2 K
Chouchounette
C
Retour