Listbox

Bonjour,

Configuration: Windows XP / Chrome 30.0.1599.69

Je cherche à alimenter une Listbox 2 colonnes à partir d'une recherche par lettre dans une plage de données (ville et code postal). Le nom d'une ville pouvant avoir plusieurs codes postaux, je veux pouvoir sélectionner la bonne ville, d'où l'affichage du code postal. J'arrive à afficher l'info si je n'ai qu'une colonne, pas avec 2. J'ai effectué des tas de tests, avec column aussi. J'arrive à afficher les deux infos dans une colonne si je fais Me.Texte_4.AddItem c.Offset(1, 0) & " " & c.Offset(1, -1), mais cela ne m'arrange pas car je ne veux récupérer qu'une des deux valeurs, le nom de la ville.
...

Bonjour,

j'utiles le code suivant pour remplir une listbox sans les cellules vides. J'aimerai garder la meme structure et remplir ma liste a 2 colonnes. pour l'instant juste la colonne A est considerer j'aimerai poutant ("A:B"). Merci pour votre aide

Dim Blatt1 As Worksheet

Set Blatt1 = ActiveWorkbook.Worksheets("Filter_UT_ED")
With Auftrag_List

For l = 1 To Blatt1.UsedRange.Rows.Count
.ColumnCount = 2
If Cells(l, 1).Value "" Then
.AddItem Cells(l, 1).Value
End If
Next l
End With

Configuration: Windows 7 / Internet Explorer 8.0

Bonjour,
En fait dans mon userform intitulé UserFormNouveau, je voudrais dans le cadre de droite intitulé "coût par voyageur par responsable et par année" mettre les données du tableau de longlet "tcd" dans une listbox.
En gros avoir une listbox avec en :
- colonne 1 : N° voyageur
- colonne 2 : N° responsable
- colonne 3 : année
- colonne 4 : montant
Les données sont dans un autre onglet que celui du tableau principal, le lien entre les deux est le n° d'organisme.
Est ce que quelqu'un peut m'aider à démarrer svp ?
fichier excel : http://www.terafiles.net/v-195806.html
Merci

Bonjour,

Je tiens a preciser que je suis une catastrophe en programmation mais je cherche a creer et remplir un ListBox en VB6. Je voudrais seulement obtenir une liste avec les nombres 1 a 51. Ca a l air simplissime mais je sais meme pas ou je suis suppose taper le code...
J ai tente un truc comme mais rien ne s affiche :

Private Sub Projection_Click(Index As Integer) // ma liste s appelle "Projection"
Dim i as Integer
For i = 1 To 51
Projection(i) = i
Next i
End Sub

Ne riez pas lol, je vois déjà des sourires s esquisser...
Merci de m eclairer.

PS: desole po...

Bonjour,

j'essaie de remplir une liste box (liste12) avec les valeur d'une cellule sur une page excel (prev) voici le code mais l'erreur 424 s'affiche Objet requis:


Sub Worksheet_Activate()
Dim Valeur1 As String, Valeur2 As String, Valeur3 As String
Dim Valeur4 As String, Valeur5 As String, Valeur6 As String
Valeur1 = Sheets("sprev").Range("d3").Value
Liste12.List = Valeur1
End Sub



merci d'avance