Code VBA pour liste deroulante

bennisay74 Messages postés 2 Date d'inscription jeudi 19 juin 2014 Statut Membre Dernière intervention 20 juin 2014 - 19 juin 2014 à 19:28
bennisay74 Messages postés 2 Date d'inscription jeudi 19 juin 2014 Statut Membre Dernière intervention 20 juin 2014 - 20 juin 2014 à 17:36
bonjour le forum


j ai un fichier que je veux lui ajouter un ode VBA pour executer une liste deroulante mais comment vous envoyer le fichier ?

3 réponses

jordane45 Messages postés 36338 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 27 septembre 2022 350
19 juin 2014 à 19:32
Bonjour,

On ne nous envoie pas de fichier.

On Expose le plus clairement possible le souci rencontré directement sur le forum et on nous y montre aussi directement le code...

Poster du code sur le forum i :
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

0
NHenry Messages postés 14999 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 26 septembre 2022 158
19 juin 2014 à 19:39
Bonjour,

Merci de garder à l'esprit que CodeS-SourceS est une communauté d'entraide. Toutes les réponses sur le forum sont assurées par des bénévoles qui donnent de leur temps libre pour aider à résoudre les problèmes.

A noter qu'il est expressément demandé aux utilisateurs des forums de faire preuve de respect mutuel dans les discussions. Par conséquent, lors de la demande d'assistance, merci d'être courtois et d'utiliser des formules de politesse, "comme dans la vraie vie" dans des circonstances similaires (dire "bonjour", "s'il vous plaît", "merci", etc...)

A noter également que nous ne faisons pas dans le "tout cuit". Soit tu trouves ton bonheur dans la partie source du site, soit à l'aide de ton moteur de recherche favori. Ici, nous aidons volontiers sur des sujets techniques précis.

http://codes-sources.commentcamarche.net/forum/affich-1557761-bar-sujet-de-pfe-tp-et-autres-devoirs-scolaires#top

http://codes-sources.commentcamarche.net/contents/11-charte-de-commentcamarche-net-conseils-d-ecriture

Merci donc de reformuler ta demande en respectant ces quelques points.
0
bennisay74 Messages postés 2 Date d'inscription jeudi 19 juin 2014 Statut Membre Dernière intervention 20 juin 2014
20 juin 2014 à 17:36
bonsoir


svp j ai recu ce code d un ami mais j ai un probleme de limite de lignes de la base de donnee elle est limite dans 100 lignes avec ce code mais moi je veux encore prolonger cette BDD a plus de 500 lignes .pouriez vous m aider a modifier ce code de facon a ce que le tableau de liste de donnee affiche plus que 100 lignes et merci d avance



Option Explicit
Dim i As Long, c As Range


Private Sub TB1_Change()
Me.LB1.Clear
i = 0
For Each c In Application.Index([CODREF], , 1)
If UCase(c) Like UCase(Me.TB1) & "*" Then
Me.LB1.AddItem
Me.LB1.List(i, 0) = c.Value
Me.LB1.List(i, 1) = c.Offset(, 1).Value
i = i + 1
End If
Next c
End Sub

Private Sub LB1_Click()
If ActiveSheet.Name = "LIVRAISON" Then
ActiveCell = Me.LB1
ActiveCell.Offset(, 2) = Me.LB1.Column(1)
Unload Me
Else
ActiveCell = Me.LB1
ActiveCell.Offset(, 1) = Me.LB1.Column(1)
Unload Me
End If
End Sub

Private Sub UserForm_Initialize()
Me.LB1.List = [CODREF].Value
End S
0