code VBA pour liste deroulante

Question

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 ?

jordane45 · Answer

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

NHenry · Answer

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.

bennisay74 · Answer

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

Code VBA pour liste deroulante

3 réponses

Votre réponse

Discussions similaires