liste deroulante VBA

[gds35]

Bonjour a tous et Bon WE , d'avance Merci de votre aide qui est tj précieuse

Voila j'ai crée un UF avec une zonz label (CODE) et à coté une zone de saise sous forme d'une liste déroulante et je cherche a l'alimenter par les valeurs "PER" "SIB" "FOU" ADM" je n'arrive pas a obtenir ce résultat. j'ai mis ds le code de la CB (Cod) Private Sub Cod_Load()
Cod.AddItem "PERSO"
Cod.AddItem "SIB"
Cod.AddItem "FOU"
Cod.AddItem "ADM"
End Sub

et lorsque je lance le UF je ne recupere pas les valeurs . Pourquoi ??? Merci de votre aide bonne soirée . GDS

 

[skoobi]

Re : liste deroulante VBA

Bonsoir,

place le code dans l'évènement "Initialize" de l'USF:

Private Sub UserForm_Initialize()
Cod.AddItem "PERSO"
Cod.AddItem "SIB"
Cod.AddItem "FOU"
Cod.AddItem "ADM"

End Sub

Au fait, tu dois avoir excel 2007 car l'évènement "Load" je connais pas. (Excel 2003).

 

[gds35]

Re : liste deroulante VBA

Merci ta Réponse est pertinente et fonctionne , j'ai EXCEL 2003 et ai employé la formule EXCEL 2007. Encore merci Bonne soirée GDS35

 

[gds35]

Re : liste deroulante VBA

Salut , SKOOBI et a tout le Forum

J’avance grace a toi et au forum ds la conception de mon annuaire . J’ai de nouveau une difficulté
Pour faire simple j’ai 5 zone de saisie ZONE 1 ,2,3,4,5 . Je voudrais que si la zone 1 est vide ou a blanc je puisse saisir directement la zone 5. Je ne te dis pas les tests effectués ss succes. As-tu une solution.
Bon WE mon AMI A+
Des + cordialement GDS

 

[skoobi]

Re : liste deroulante VBA

Re bonjour,

Si j'ai bien compris, tu ajoutes une condition du genre:

If zone1.Value = "" Then zone5.SetFocus

 

[gds35]

Re : liste deroulante VBA

Merci une fois de + SKOOBI , c'est cette fonction setfocus que j'ai du mal a comprendre. Ce n'est certaimeent pas la derniere fois que je vais faire appel a tes précieuses connaissances et je m'en excuse mais comme tu dis si justement ON EN APPRENDS TOUS LES JOURS. Encore Merci . A+