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. Anonyme
    2013-02-11T10:32:24+00:00

    bonjour a vous

    poursuite du fichier,

    j'ai mis un bouton modifier derriere le bouton ajouter article
    qui est activé par le clic sur la ligne dans la listview mais après je suis bloqué
    sur la procédure afin de modifier la ligne sur la listeview mais aussi sur la feuille
    a l'endroit adéquate
    autrement je ne sais comment readapter le code des bordures qui vient du fichier
    qui a un problème de sauvegarde et que j'ai mis en post
    et dans le meme temps reprendre le code qui est dans workbook et qui n'est plus
    adapter pour l'envoi de données sur la feuille en paquet afin de pouvoir faire un aperçu et lancer une impression<br><br><br>ci dessous nouveau fichier
    http://cjoint.com/CBllCZREhTs
    Pascal

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

    0 commentaires
  2. Supprimé

    Cette réponse a été supprimée en raison d’une violation de notre Code de conduite. La réponse a été signalée manuellement ou identifiée via la détection automatisée avant que l’action ne soit entreprise. Pour obtenir plus d’informations, veuillez consulter notre Code de conduite.

    Les commentaires ont été désactivés. En savoir plus

  3. Anonyme
    2013-02-09T14:56:22+00:00

    bonjour a vous 2 MichD et DanielCo

    DanielCo il y a un bug a la ligne avec une erreur 35600

    .ListItems.Add .ListItems(.SelectedItem.Index - 1), , .ListItems(.SelectedItem.Index).Text

    MichD parfait

    c'est tout ce que j'attendais de la part de votre professionnalisme et aide généreuse

    je joint le bon fichier pour rectifier celui que j'avais joint dans le post et qui est garni de vos codes et il est aussi libre d'utilisation

    ceci clos ce post sans savoir ou cocher répondu

    http://cjoint.com/?CBjpVmz9ZvK

    cordialement

    Pascal

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

    0 commentaires
  4. DanielCo 107.1K Points de réputation
    2013-02-09T14:38:46+00:00

    Voici le code pour remonter une ligne :

    Private Sub CommandButton5_Click()

    'remonter la ligne

    With Me.ListView1

    .ListItems.Add .ListItems(.SelectedItem.Index - 1), , .ListItems(.SelectedItem.Index).Text

    For i = 1 To .ListItems(.SelectedItem.Index).ListSubItems.Count

    .ListItems(.SelectedItem.Index - 2).ListSubItems.Add , , .ListItems(.SelectedItem.Index).ListSubItems(i)

    Next

    .ListItems.Remove .SelectedItem.Index

    End With

    End Sub

    Regarde si tu peux l'adapter pour la baisser.

    Daniel

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

    0 commentaires