Probleme code lisview double click

[cpeens]

Bonjour à tous

je viens vers vous pour 2 probleme lors de la création de mon code pour une listview.


je souhaiterais faisre un double click sur une de mes items de la listview 1 et que elle ci affiche une textbox pour me demander la quantité de produit puis que le tous s'affiche dans la listview2.

evidement si je clic sur différent items elle se mettra sur la ligne suivante de ma listviews 2

un peut s'impliste j'ai essayer ceci pour code

With ListView1.SelectedItem
   'On Error Resume Next
        Me.ListView2.ListItems.Text = Me.ListView1.ListItems.Text
         Me.ListView2.ListItems(1).Text = Me.Textbox1.value       
End With

mais sa beug

j'ai tout de même mis une PJ pour mieux visualisé mon probleme

merci d'avance de votre aide

 

[jp14]

Re : Probleme code lisview double click

Bonsoir

Une procédure a tester et à modifier

Dim nulist As Long
Private Sub CommandButton1_Click()
If Not IsNumeric(Me.TextBox1) Then
Call MsgBox("Vous devez inscrire une valeur numérique", vbCritical, Application.Name)

Exit Sub
End If
With ListView2
          .ListItems.Add , , ListView1.ListItems(nulist).Text
          .ListItems(.ListItems.Count).ListSubItems.Add , , ListView1.ListItems(nulist).ListSubItems(1).Text
          .ListItems(.ListItems.Count).ListSubItems.Add , , CCur(ListView1.ListItems(nulist).ListSubItems(2).Text) + CCur(Me.TextBox1)
 Me.TextBox1.Visible = false
Me.CommandButton1.Visible = false
   Me.TextBox1 = ""
End With
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub


Private Sub Listview1_DblClick()
Me.TextBox1.Visible = True
Me.CommandButton1.Visible = True
nulist = ListView1.SelectedItem.Index
End Sub
Private Sub TextBox1_Change()
Me.TextBox1.Value = Replace(Me.TextBox1, ".", ",")
End Sub

Private Sub UserForm_Initialize()
Sheets("Feuil1").Select
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Produit", 40
       .Add , , "Nb de Boite Restante", 40, 2
       .Add , , "Etat", 40, 2

    End With
 .View = lvwReport
 .FullRowSelect = False
 '.Gridlines = True
        For i = 2 To Feuil1.Range("A65536").End(xlUp).Row
          .ListItems.Add , , Feuil1.Cells(i, 1)
          .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(i, 2)
          .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(i, 3)
          Next
          End With

With ListView2
    With .ColumnHeaders
       .Clear
       .Add , , "Produit", 40
       .Add , , "Nb de Boite Restante", 40, 2
       .Add , , "Etat", 40, 2

    End With
 .View = lvwReport
 .FullRowSelect = False
 End With
End Sub

JP

 

[Fo_rum]

Re : Probleme code lisview double click

salut

autre exemple.
A noter qu'on peut définir les propriétés d'une ListView sans macro.
Il suffit de sélectionner (Personnalisé) dans la liste de ses propriétés.
Ici, les nombres sont entiers.

 

[cpeens]

Re : Probleme code lisview double click

Bonjour JP14 bonjour Forum merci à tous les deux pour votre aide pour la solution Jp14 j'ai tester et sa fais ce que je demandais mais la solution proposer par forum es encore meilleur je vais approfondire donc celui de forum car sa ma de donnée des nouvelle idée merci en tous cas a vous deux vous enlever une belle epigne du pied à trés bientot

 

[cpeens]

Re : Probleme code lisview double click

Re bonjour a tous je viens pour un complement d'aide sur ce même sujet

Es ce possible avec la solution de forum quand ont valide un item sélectionner cette item se colorie en rouge pour qu'on vois ce qui à été déja utilisé.

et je voudrais mettre un bouton retiré en cas erreur pour enlever l'item

sélectionné dans la listview 2 svp

 With ListView2
    .ListItems.Add , , ListView2.ListItems(Li - 1)
    .ListItems(.ListItems.Count).ListSubItems.Remove , , Cells(Li, 2)
    .ListItems(.ListItems.Count).ListSubItems.Remove , , Cells(Li, 3) + TextBox1.Value
  End With
  TextBox1 = ""
  TextBox1.Enabled = False

merci d'avance je continue a tester certain truc pour y parvenir merci d'avance.

 

[cpeens]

Re : Probleme code lisview double click

bonjour
un petit up a mon probleme svp
merci

 

[jp14]

Re : Probleme code lisview double click

Bonjour

Ci dessous un exemple
Sélection de la ligne par un double click
Un bouton pour supprimer

Dim Lis As Long
Private Sub CommandButton3_Click() ' bouton supprimer
If Lis <> 0 Then
    ListView1.ListItems.Remove Lis
    Lis = 0
End If
End Sub

Private Sub ListView1_DblClick()' selection d'une ligne avec un double click
  Lis = ListView1.SelectedItem.Index
End Sub

A tester

JP

 

[Fo_rum]

Re : Probleme code lisview double click

Salut

Pour la mise en évidence tu peux essayer d'ajouter quelques lignes :

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
  Dim L As Long
  Li = Item.Index
  With ListView1
    For L = 1 To .ListItems.Count
      .ListItems.Item(L).Checked = False
    Next
    .ListItems.Item(Li).Checked = True
    [B].ListItems(Li).[COLOR="Red"]ForeColor = &HFF&[/COLOR]
    .ListItems(Li).Bold = True
    For col = 1 To 2
      .ListItems(Li).ListSubItems(col).ForeColor = &HFF&
      .ListItems(Li).ListSubItems(col).Bold = True
    Next[/B]
    Li = Li + 1
    TextBox1.SetFocus
  End With
End Sub

Pour la suppression, tu peux utiliser la proposition de jp14 😉 mais il y a tellement de choses en jeu que cela va compliquer la situation. Par exemple, à la sélection, la ligne écrase celle inscrite sur la feuille. Que faire quand la dite ligne est supprimée ?

De façon générale, je réponds ponctuellement, mais quand le projet prend de l’ampleur je n’interviens plus.

 

[cpeens]

Re : Probleme code lisview double click

Bonjour à tous les deux et merci de votre aide je vais essayer vos 2 solutions et vous tiens informée

cordialement