Problème de séparateur de colonne dans une listbox

[Mouchty85]

Bonjour a tous,
je souhaitai mettre un séparateur de colonne entre chaque colonne de ma liste box mais ca ne veu pas fonctionné.
Voici mon code,

For j = 1 To 2
Sheets("Opérateur " & j).Select

If SuppressionSéléction.Value = Range("Code" & j).Cells(1, 1).Value Then
Supression.Clear
Supression.ColumnCount = 3
Supression.ColumnWidths = "50;15;60"

For i = 1 To Range("Opérateur" & j).Rows.Count
Supression.AddItem Range("ONum" & j).Cells(i, 1).Value & " " & Range("Opérateur" & j).Cells(i, 1).Value & " " & Range("Opérateur" & j).Cells(i, 2).Value & " " & Range("Opérateur" & j).Cells(i, 3).Value

For k = 1 To Range("Opérateur" & j).Rows.Count
Supression.List(Supression.ListCount - 1, k) = Chr(124)
Next k
Next i
End If
Next j

pourriez vous m'indiquer mon erreur
Merci de votre aide

 

[Papaye]

Re : Problème de séparateur de colonne dans une listbox

Bonjour Mouchty,

Sans être une spécialiste ... il m'a l'air bien alambiqué ton code.
Est-il possible que tu envoies l'ensemble de ton classeur ?
Ce sera plus facile de te répondre.

 

[Mouchty85]

Re : Problème de séparateur de colonne dans une listbox

Ci joint mon fichier.

si par hasard, tu savais comment faire pour que quand je séléctionne une ligne dans ma listebox, et que j'appuie sur suppirmer, elle sois supprimer dans le tableau correspondant dans excel.

Merci de ton aide

 

[Papaye]

Re : Problème de séparateur de colonne dans une listbox

Ok,

Ca a pas l'air bien compliqué.
Je regarde cela et je te renvoie une nouvelle version de ton classeur (un peu plus tard ... là j'ai faim !)

 

[Papaye]

Re : Problème de séparateur de colonne dans une listbox

Re,

J'ai pas solutionné tous tes pbs ...
Ton code est construit de manière un peu exotique.
Essaye et dis moi,

 

[Mouchty85]

Re : Problème de séparateur de colonne dans une listbox

je te remercie c'est exactement ce dont j'avais besoins

 

[Mouchty85]

Re : Problème de séparateur de colonne dans une listbox

comme prévu je te joint le fichier excel
Merci encore

 

[Bebere]

Re : Problème de séparateur de colonne dans une listbox

bonsoir Papaye, Moutch
j'ai refait ajouter,supprimer en redonnant leurs identités aux objets(combo listbox,etc)
si tu ajoutes ou supprimes une ligne de données dans une feuille il faut initialiser la combobox ou la listbox en rapport
pour paramètres je n'ai rien fait
à bientôt

 

[Papaye]

Re : Problème de séparateur de colonne dans une listbox

Bonjour les garçons,

Une nouvelle version. Elle prend en compte la "compil'" dans la feuille "Paramètre".

Elle utilise des fonctions de mise à jour automatique ("Private Sub Worksheet_Change(ByVal Target As Range)").

Càd que dès que l'on modifie les données dans "Opérateur X" (X= 1 ou 2), la liste se met à jour dans "Paramètre".

Il y a à mon avis surement plus simple à faire (travailler sur "Paramètre" et mettre à jour les onglets après plutôt que de faire l'inverse !). Mais bon, j'ai conservé la logique de départ !

Bon courage,