Pb variable a passer ds plusieurs USF

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é)
 

gds35

XLDnaute Impliqué
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
 

Discussions similaires

Statistiques des forums

Discussions
312 204
Messages
2 086 198
Membres
103 153
dernier inscrit
SamirN