VBA excel Listview afficher grace a une combobox plusieur partie d'une feuille

Résolu
NeOXi-_Alpha Messages postés 66 Statut Membre -  
NeOXi-_Alpha Messages postés 66 Statut Membre -
Bonjour,
j'ai un petit soucie voilà, j'ai beaucoup de page et page dans mon classeur excel enfin de les réduire j'aimerai que pour une listview elle se passe seulement sur une feuille,
en gros j'aurai une feuille BDD sur cette feuille quand je choisie l'option une j'ai la colonne A/B/C quand je choisie l'option 2 j'ai la colonne E/F/G ... tous sa avec une option modifier avec 3 texte box qui modifie la ligne précise que j'ai choisie, un bouton supprimer qui permet de supprimer une ligne bien précise aussi, un bouton ajouté, et un bouton insérez.
j'ai vraiment besoin d'aide car je suis très mauvais sur les listview.
merci d'avance

1 réponse

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 731
     
    Bonjour,

    Où en es-tu avec ce post?

    https://forums.commentcamarche.net/forum/affich-35856573-enregistrer-sous-avec-nom-du-document-vba

    0
    1. NeOXi-_Alpha Messages postés 66 Statut Membre
       
      Bonjour,
      j'ai pas réussi a la faire, désolé de ne pas avoir répondu j'ai complètement zappé, mais du-coup j'ai garder l'ancienne méthode.
      0
    2. cs_Le Pivert Messages postés 8437 Statut Contributeur 731
       
      voilà un exemple à adapter à ton environnement

      https://www.cjoint.com/c/ICfldiHIgzQ

      @+ Le Pivert
      0
    3. NeOXi-_Alpha Messages postés 66 Statut Membre
       
      sa j'y arrive sans problème se que j'aimerai c'est pour que dans la combobox j'ai par exemple choix1 / choix2/ choix3 et que cela me prenne les colonne A/B/C dans le premier choix, dans le deuxième choix le colonne E/F/G... mais tous sur la même page.
      0
    4. cs_Le Pivert Messages postés 8437 Statut Contributeur 731
       
      Il faut modifier ici: 

      With ListView1              'Nous travaillons avec notre Listview "lvPieces" dans notre userform
' -- Ajout des colonnes
For i = 1 To 3 
'Ajouter une colonne en spécifiant le nom de l'entête seulement, largeur par défaut
'les titres sont sur la même ligne que notre référence (rg)
        .ColumnHeaders.Add , , rg.Offset(0, i - 1), 76
 Next i
    For x = 1 To 3
    Me.Controls("Label" & x) = Cells(1, x)
    Next x


      With ListView1              'Nous travaillons avec notre Listview "lvPieces" dans notre userform
' -- Ajout des colonnes
For i = 4 To 6 
'Ajouter une colonne en spécifiant le nom de l'entête seulement, largeur par défaut
'les titres sont sur la même ligne que notre référence (rg)
        .ColumnHeaders.Add , , rg.Offset(0, i - 1), 76
 Next i
    For x = 4 To 6
    Me.Controls("Label" & x) = Cells(1, x)
    Next x


      etc.
      0