Pb variable a passer ds plusieurs USF

  • Initiateur de la discussion Initiateur de la discussion gds35
  • Date de début Date de début

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 !

gds35

XLDnaute Impliqué
Bonjour , mes CHERS AMIS du Forum ,
Un P'tit soucis , je tente d'expliquer clairement .....
Dans un projet VBA j'ai 4 USf , l'USF1 est mon menu , les 3 autres sont des demandes de données que je dois enregistrer dans des feuilles differentes en fonction du choix fait ds l'USF1 ... J'ai donc ds le code de l'USF1 Initialisé une variable "ChoixOption" qui prend les valeur 1,2, ou 3 en fonction du menu choisi. Puis dans USF 2 (Saisie des données) j'ai un bouton VALIDER , et la je veux tester si ma variable "ChoixOption" est égal à 1,2, ou 3 , je ne peux y arriver ma variable "ChoixOption est vide !!!!! Je n'y arrive pas .

GRAND Merci Mes AMIS de m'aider

GDS35 (GéGé)
 
Re : Pb variable a passer ds plusieurs USF

Salut Spitnolan08 , MERCI de la réponse , voila le code que j'ai écrit dans mon USF1 . Vat'il etre suffisant pour éclairer ta lanterne ???

'====================
' CODE BOUTON ACCEDER
'====================
'
'
Private Sub ACCESCHOIXTYPANNU_Click()
'
' AFFECTATION D'UNE VARIABLE ChoixOption POUR CONNAITRE
' 1/ L'USF A CHARGER 2/ SAVOIR OU ENREGISTRER LES DONNEES SAISIES
'
Dim OptionChoix As String
Dim ChoixOption As Integer
'
If CHOIXTYPEANNUAIRE.ListIndex > -1 Then
OptionChoix = CHOIXTYPEANNUAIRE.List(CHOIXTYPEANNUAIRE.ListIndex)
End If
If OptionChoix = "PERSONNEL" Then
ChoixOption = 1
Else
If OptionChoix = "FOURNISSEURS" Then
ChoixOption = 2
Else
ChoixOption = 3 'SELECTION ANNUAIRE ADMINISTRATION
End If
End If
'

GESTANNU.Show
'
End Sub
 
- 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

Réponses
0
Affichages
1 K
Retour