Insérer colonne et l'ajouter à la listview

Bonjour le forum,

Voilà j'essai désespérément de modifier un fichier que j'ai depuis un moment.

mon problème c'est que j'ai ajouter une colonne "F" a mon tableau et un combobox2 à mon usf du coup la listview ne se remplis plus comme elle le devrais et, je ne suis pas assez doué pour la modifier sans rien faire beuguer lol

quelqu'un pourrait'il m'aider à la faire fonctionner

merci par avance à ceux qui prendrons le temps de me donner un coup de main

PS: pour faire des test merci de les faire en choisissant sur l'usf la couleur "feuil1"

Bonjour,

Ben, ça va pas être simple....

Parce que sans le mot de passe VBA, on ne va pas pouvoir faire grand chose...

@ te relire

oups j'ai oublier de l'enlevé,ce devrait être bon cette fois ci

désolé

Re-,

Essaie encore!

lol bon bas le code c'est "taistoi"

re-,

Merci!!!!!!

pas de problème n'hésite pas à me poser des questions

Re-,

Bon, pour l'alimentation du ListView, pas de souci, avec ce code :

Sub Alimente_ListView()
' Remplissage
Dim J As Long, Nb As Long
Dim I As Integer

  For I = 1 To 6
    Me.Controls("TextBox" & I) = ""
  Next I

  With Me.ListView1
    .ListItems.Clear
    For J = 3 To Ws.Range("A" & Rows.Count).End(xlUp).Row
      For I = 1 To 6
        If Ws.Cells(J, I) Like "*" & Me.TextBox6 & "*" Then Exit For
      Next I
      If I < 7 Then
        ' On remplit la première colonne de la listview avec la valeur de la variable
        ' Et dans la clé on note l'adresse de la ligne
        .ListItems.Add , Ws.Cells(J, "A").Address, Ws.Cells(J, "A")
        Nb = Nb + 1
        ' On remplit les autres colonnes de la listview
        For I = 2 To 6
          .ListItems(Nb).ListSubItems.Add , , Ws.Cells(J, I)
        Next I
      End If
    Next J
  End With
End Sub

Par contre, je ne pige pas pourquoi tu as un combobox pour l'emplacement?

Vu que tu veux récupérer les éléments dans des TextBox, pourquoi un combobox?

le combobox2 récupère les emplacements qui sont noté sur la page "recherche" lorsque je clique sur une ligne de la listview touts les textbox et les combobox doivent se remplir

tu vois ce que je veux dire ?

Ok, je vois pour modifier le remplissage des TxtBx, car lorsque tu cliques sur le LstVw, et que tu remplis le TxtBx6, tout est remis à zéro...

Re-,

Modifie cette partie de code :

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
'Lecture d'un élément
Dim I As Integer
Dim J As Integer

  I = Me.ListView1.SelectedItem.Index
  Me.TextBox1 = Me.ListView1.ListItems(I).Text

  For J = 1 To Me.ListView1.ColumnHeaders.Count - 3
    Me.Controls("Textbox" & J + 1) = ListView1.ListItems(I).ListSubItems(J).Text
  Next J
  Me.TextBox5 = Me.ListView1.ListItems(I).ListSubItems(5).Text
  Me.ComboBox2 = Me.ListView1.ListItems(I).ListSubItems(4).Text
End Sub

Je n'ai pas plus testé, donc, reviens si souci

re

salut c'est exactement ce dont j'avais besoin merci beaucoup pour le travail

@ plus