Code VBA pour liste déroulante

Version imprimable

20/06/2014, 11h11
imrane74

1 pièce(s) jointe(s)

Code VBA pour liste déroulante

BONJOUR TT LE MONDE FORUM
je viens de développer une application commercial sous excel
mais il me reste une liste déroulante pour les references et les clients qui s exécute par un code VBA
Pour cela je vous demandes bien de m aider a realiser cet liste deroulante
J ai mis un fichier pour éclaircir mon exemple
20/06/2014, 11h37
Daniel.C

Bonjour,

Je ne comprends pas pourquoi tu as besoin d'une macro ? Peux-tu préciser ce que tu veux dire par :

Citation:

et l ajout des references ce fait un par un , car en saisisant
20/06/2014, 11h43
Philippe Tulliez

Bonjour,
Pour réaliser une liste déroulante, tu as le choix entre
Sans programmation
1) L'outil Validation de données-Liste (FAQ traitant de cet outil)
2) Les contrôles formulaire Zone de liste déroulante
3) Les contrôle ActiveX
Programmation en VBA
4) Le contrôle ComboBox à placer dans un UserForm (Tutoriel Utiliser les contrôles dans un UserForm, en VBA Excel)
Voir la FAQ et de nombreux tutoriaux sur Developpez.com
20/06/2014, 11h55
imrane74

bonjour Daniel c

1 j ai dis avec MACRO car je veux une liste qui s affiche indepandament du excel lors de la touche d une cellule de la colonne C " pareille au logiciel "
dans les logiciels ont voit une liste qui s affiche quand on veut saisir des references en ecrivant juste une ou deux lettres dans la cellule
2 pour repondre a votre question pourquoi j ai dis un par un
cela veut dire .si j ai un tableau qui s affiche lors de la saisie des references et quand je choisi une reference indique je dois apres passer a la seconde reference en touchant la cellule suivant tjr dans la meme colonne

BONJOUR philippe tulliez
Oui c est ca il y a deux possibilite
mais moi j aimerai la deusieme methode combox USER FORM
Le probleme c est que je n ai pas de connaissance dans la programmation du VBA
Donc si quelqu un veut m aider j en serai vraiment tres reconnaissant
20/06/2014, 12h15
Daniel.C

Si tu n'as aucune connaissance de VBA, il vaut mieux que tu optes pour une liste de validation de données.

BONSOIR PHILLPE

SVP j ai recu ce code d un ami mais j ai un probleme de limite de ligne de la liste de la base de donne "la base de donnee est limite a 100 lignes "
SVP pouriez vous m indiquer comment prolonger cette liste d apres ce code et merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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