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
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

Où en es-tu avec ce post?


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

0
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
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
voilà un exemple à adapter à ton environnement

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

@+ Le Pivert
0
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
cs_Le Pivert Messages postés 8437 Statut Contributeur 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 8437 Statut Contributeur 729 > NeOXi-_Alpha Messages postés 66 Statut Membre
 
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