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

Résolu
NeOXi-_Alpha Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   -  
NeOXi-_Alpha Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
0
NeOXi-_Alpha Messages postés 65 Date d'inscription   Statut Membre Dernière intervention  
 
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
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
voilà un exemple à adapter à ton environnement

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

@+ Le Pivert
0
NeOXi-_Alpha Messages postés 65 Date d'inscription   Statut Membre Dernière intervention  
 
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
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > NeOXi-_Alpha Messages postés 65 Date d'inscription   Statut Membre Dernière intervention  
 
tu trouveras la réponse à ton post sur l'enregistrement en PDF ici:

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

@+ Le Pivert
0