Discussion :

[tarantino]

Bonjour,

J'ai une liste d'un 20aine de nom de matériaux dans une listbox avec possibilité d'en choisir plusieurs. (Liste crée : LstBoxToitIso.RowSource = "IsolantsDispo")

Une fois que l'utilisateur à coché ceux dont il a besoin, je voudrais qu'ils s'affichent dans la première page de mon classeur à la Jème colonne

J’ai utilisé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For k = 0 To 17
    If LstBoxToitIso.Selected(k) Then
        Range("J" & k + 1).Value = LstBoxToitIso.List(k)
    End If
Next k

Il m'affiche bien les matériaux choisis mais laisse des blanc entre eux (ex 1et et 3eme cochés => J1 et J3 remplis avec J2 vide)

J'aimerais supprimer les vides afin de pouvoir effectuer des recherches sur la liste par âpres.

De plus, j’ai essayé d’utiliser listcount pour paramétrer K mais sans succès.

Auriez-vous un idée pour résoudre mon problème ?

Merci de votre aide.

[AlexL.]

Bonjour,
Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim row as long
 
For k = 0 To 17
If LstBoxToitIso.Selected(k) Then
Range("J1").offset(row,0).Value = LstBoxToitIso.List(k)
row=row+1
End If
Next k

[tarantino]

Merci bien,

ne travaillant que 2 jours semaine ca fait plaisir d'avoir une bonne nouvelle en arrivant.

Bonne journée à toi.