suppression ligne dans listview

Anonyme
2013-02-08T09:02:28+00:00

bonjour a vous tous

suite au post que danielco a tres bien animé de tout son énergie, mais dont je ne peux pas copier le lien désolé

je voudrais pouvoir supprimer une ligne dans la listview sans déranger le calcul quise créer lorsqu'il n'y a pas de suppression

engros les textbox HT,TVA,TTC ne se rectifie pas lors de la suppression

http://cjoint.com/?CBij05lzni3 

j'y ai rajouter cette ligne de code derière le bouton "supprimer ligne'

'Supprime la ligne active

ListView1.ListItems.Remove (ListView1.SelectedItem.Index)

cordialement

Pascal

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
Anonyme
2013-02-20T13:41:14+00:00

Toutes mes excuses. Après vérification, je t'ai envoyé le même fichier
que précédemment que j'avais conservé et non celui que j'ai modifié.

Voici cette fois le bon fichier : http://cjoint.com/?CBuoNKaJZo8  MichD

Cette réponse a-t-elle été utile ?

0 commentaires

34 réponses supplémentaires

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. DanielCo 107.1K Points de réputation
    2013-02-08T17:56:02+00:00

    Private Sub CommandButton5_Click()

    Dim Var

    With Me.ListView1

    If .SelectedItem.Index > 1 Then

    .SelectedItem = .ListItems(.SelectedItem.Index - 1)

    .HideSelection = False

    End If

    End With

    End Sub

    Private Sub CommandButton6_Click()

    Dim Var

    With Me.ListView1

    If .SelectedItem.Index < .ListItems.Count Then

    .SelectedItem = .ListItems(.SelectedItem.Index + 1)

    .HideSelection = False

    End If

    End With

    End Sub

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2013-02-08T15:37:28+00:00

    bonjour MichD et Daniel Co

    après essai les 2 solutions sont parfaites , juste pour MichD il a 2 fois la variable nb

    merci beaucoup a vous 2 tous mes respects,

    pour évité de relancer un autre post avec le meme fichier quel code peut'on mettre derriere les boutons remonte et descendre afin que la ligne qui est sélectionnée puis obéir au clic sur le bouton adéquat

    Merci beaucoup par avance

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. Anonyme
    2013-02-08T14:09:06+00:00

    Bonjour,

    Une petite variante attachée au bouton "supprimer ligne"
    '--------------------------------
    Private Sub CommandButton7_Click()
    Dim Nb As Long, A As Long

    Dim Nb As Integer With ListView1    Nb = .ListItems.Count    For A = Nb To 1 Step -1        If .ListItems(A).Selected = True Then            Me.TextBox10 = CDbl(Me.TextBox10) - CDbl(.ListItems(A).ListSubItems(9).Text)            If .ListItems(A).ListSubItems(6).Text <> "" Then                Me.TOTTVA = CDbl(Me.TOTTVA - (CDbl(.ListItems(A).ListSubItems(6).Text)))            ElseIf .ListItems(A).ListSubItems(7).Text <> "" Then                Me.TOTTVA = CDbl(Me.TOTTVA - (CDbl(.ListItems(A).ListSubItems(7).Text)))            End If            Me.TextBox12 = CDbl(Me.TextBox12) - CDbl(.ListItems(A).ListSubItems(10).Text)            .ListItems.Remove .ListItems(A).Index        End If    Next End With End Sub '--------------------------------  MichD

    "PASCAL prigent" a écrit dans le message de groupe de discussion : ******@communitybridge2.codeplex.com.excel...

    bonjour a vous tous

    suite au post que danielco a tres bien animé de tout son énergie, mais dont je ne peux pas copier le lien désolé

    je voudrais pouvoir supprimer une ligne dans la listview sans déranger le calcul quise créer lorsqu'il n'y a pas de suppression

    engros les textbox HT,TVA,TTC ne se rectifie pas lors de la suppression

    http://cjoint.com/?CBij05lzni3

    j'y ai rajouter cette ligne de code derière le bouton "supprimer ligne'

    'Supprime la ligne active
    ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
     cordialement

    Pascal

    http://answers.microsoft.com/message/f0ab1b4c-8326-445f-8e81-5d90039615d0
    Meta tags: office_2007; excel; 76e8586e-4096-4b6a-ab00-a22dcdbf4e53

    Fri, 8 Feb 2013 09:02:29  +0000: CreateMessage  PASCAL prigent

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. DanielCo 107.1K Points de réputation
    2013-02-08T13:53:50+00:00

    Bonjour,

    Remplace la macro du bouton "Supprimer" par celle-ci :

    Private Sub CommandButton7_Click()

    'Supprime la ligne active

    With ListView1.SelectedItem

    If IsNumeric(.ListSubItems(6)) Then Me.TextBox17 = Me.TextBox17 - CDbl(.ListSubItems(6))

    If IsNumeric(.ListSubItems(7)) Then Me.TextBox18 = Me.TextBox18 - CDbl(.ListSubItems(7)) '***

    If IsNumeric(.ListSubItems(9)) Then Me.TextBox10 = Me.TextBox10 - CDbl(.ListSubItems(9))

    Me.TOTTVA = Me.TextBox17 + Me.TextBox18

    Me.TextBox12 = Me.TextBox12 - CDbl(.ListSubItems(10))

    ListView1.ListItems.Remove (ListView1.SelectedItem.Index)

    End With

    End Sub

    Cordialement.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires