Bonjour c'est re-moi...
J'ai une listbox avec deux colonnes mais je n'arrive pas à ajouter des objets dans la deuxième colonne. Pourtant, en regardant sur ce forum et les tutos, mon code semble bon...
Mais ça marche pô :'(
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 For i = 2 To compteur Step 1 Set Identifiant = Feuil2.Range("A1:A100").Rows(i).Columns(1) Set DateDeCreation = Feuil2.Range("C1:C100").Rows(i).Columns(1) If Identifiant Is Nothing Then ListBox1.AddItem AucunCompte Else If Not Identifiant = "" Then ListBox1.AddItem Identifiant ListBox1.List(i, 1) = DateDeCreation End If End If Next i
Voici ce que ça me dit:
Voilà merci![]()
Partager