LISTVIEW Ajouter Modifier Supprimer

CHALET53

XLDnaute Barbatruc
Re : LISTVIEW Ajouter Modifier Supprimer

Bon ok, je vais d'abord regarder le match de rugby et je trouverai un moment dans la journée pour reprendre le dossier

a+
 

Bebere

XLDnaute Barbatruc
Re : LISTVIEW Ajouter Modifier Supprimer

bonjour Terpick,Chalet,Yann
ce que te proposait Yann tu as la propriété Key de listview qui le fait
c'est dans le code
dans l'userform les possibilités de tris sont
par type,par ville,par type et nom, par ville et noms(optiobutton)
pour moi taper quelque chose qui n'existe peut être pas n'a aucun intéret
et apprend à régler tes problèmes un par un
un problème réglé,passe au suivant,etc
tu as la touche F8(pas à pas) pour exécuter le code et la fenêtre variables locales
pour visualiser leurs valeurs,la touche F1(aide),etc
les employer est d'une grande aide pour apprendre et corriger
qu'on se le dise
à bientôt
 

Fichiers joints

terpick

XLDnaute Occasionnel
Re : LISTVIEW Ajouter Modifier Supprimer

Bonsoir tout le monde,

Bébère, j’adore cette solution. Je vais la mettre au propre et bien tester.

Au premier rapport avec la sélection "Par type" ou "Par ville" en clickant sur une des ligne ça bugge à cette endroit :

With ListView1
.ListItems.Clear
For L = 3 To Cells(65535, Col).End(xlUp).Row
If Cells(L, Col) = Quoi And Cells(L, ColNom) = Nom Then
.ListItems.Add , LettreCol & L, Cells(L, 1)
Compteur = .ListItems.Count
For C = 2 To 18
Cle = Chr(64 + C)
.ListItems(Compteur).ListSubItems.Add , Cle & L, Cells(L, C).Text
Next
End If
Et la question primordiale, qui revient toujours: est-il possible d'afficher les nom et les villes dans l'ordre alphabétique? Il y en aura vraiment beaucoup même si or réduit le nombre de noms par les "Nom et Type" et "Nom et ville". La méthode de Chalet de tri des noms dans la combobox je n'ai pas réussi à adapter dans cette solution du fichier.
PS et je n'arrive pas non plus de faire la mise en forme de la ligne ajoutée.

Merci beaucoup pour votre aide et temps consacré , A+
 
Dernière édition:

Bebere

XLDnaute Barbatruc
Re : LISTVIEW Ajouter Modifier Supprimer

Terpick
erreur corrigée et ajout d'un tri pour type,ville,nom
code tri module1
je regarde pour amélioré
à bientôt
 

Fichiers joints

terpick

XLDnaute Occasionnel
Re : LISTVIEW Ajouter Modifier Supprimer

Salut tout le monde,

Bébère, cette dernière version répond à tous mes souhaits, merci encore.

Un petit défaut: dans les combobox, si on tape une lettre et dans la liste déroulante il n y a pas de mots qui commencent par cette même lettre, le logiciel bugge dans la Macro

HTML:
Sub Remplir_Liste(Quoi As String, Optional Nom As String)
la ligne

HTML:
 .ListItems(1).Selected = False
.

Et comment affecter une combobox dans la frame1, notamment pour la colonne M, comme j'ai fais dans le fichier ci-dessus?

Merci, bon lundi et à +
 
Dernière édition:

terpick

XLDnaute Occasionnel
Re : LISTVIEW Ajouter Modifier Supprimer

Bonjour,

Cela fait la deuxième journée que j'essaie de faire le ménage dans votre fichier. Mais j'ai pas réussi grand chose.

Par exemple, si on affiche Combobox "Choix par type", dans Listview la première colonne affiche "type" mais pas les noms. Même problème quand on séléctionne combobox "choix par ville", dans Listview la première colonne affiche "ville" mais pas les noms. En sélectionnant "Ville et nom", "Type et nom" la même chose: dans Listview la première colonne affiche "ville" mais pas les noms. De plus, dans ces deux dernières combobox je n'ais pas "TOUS".
Et toujours ce défaut lors de la saisie dans les combobox les lettres pour afficher les enrégistrement, il suffit que la lettre n'existe pas, tout bugge.

C'est dommage, parce que le fichier est très bien...

A l'aide svp

A+
 

terpick

XLDnaute Occasionnel
Re : LISTVIEW Ajouter Modifier Supprimer

RE:

Merci Bébère, je me plonge pour comprendre.

A+

P.S C'est bien la partie
HTML:
Set MonDico = CreateObject("Scripting.Dictionary")
    For Each Cel In Range(Cells(3, 13), Cells(Cells(65535, 13).End(xlUp).Row, 13))
        If Not MonDico.Exists(Cel.Value) Then MonDico.Add Cel.Value, Cel.Value
    Next Cel
qui est responsable pour le transfère des données de la ComboBox4 dans la colonne M?
 
Dernière édition:

Bebere

XLDnaute Barbatruc
Re : LISTVIEW Ajouter Modifier Supprimer

oui c'est cela
employe la recherche(menu édition, choisir rechercher) et tu auras la réponse
 

terpick

XLDnaute Occasionnel
Re : LISTVIEW Ajouter Modifier Supprimer

Bonjour Bébère, le Forum,

HTML:
employe la recherche(menu édition, choisir rechercher) et tu auras la réponse
ce mode de recherche existe pour trouver tous les mots ou les lignes entières souhaités?

Le problème, c'est que je n'arrive pas à faire fonctionner cette combobox, c'est-à-dire que la colonne M reste non remplie après avoir effectué l'action "ajouter" à l'aide du bouton correspondant. Pourquoi? J'oublie qqchose?

Et en plus, si j'alimente cette combobox avec une plage nommée et attribue cette plage dans RowSource, comme d'habitude, tout UserForm1 se met en défaut, après son appel par bouton sur la Feuil1.

A+
 
Dernière édition:

Bebere

XLDnaute Barbatruc
Re : LISTVIEW Ajouter Modifier Supprimer

Terpick je parlais de la recherche vbe (visual basic editor)
et explique clairement ce que tu veux avec la colonne M
pourquoi as tu mis une combobox pour un élément,elle serait utile si tu avais une liste dans une feuille
en plus tu ne parles pas du reste c'est très valorisant
à bientôt
 

terpick

XLDnaute Occasionnel
Re : LISTVIEW Ajouter Modifier Supprimer

Salut Bébère,

J'ai bien compris qu'il s'agissait du VBE. Je n'ai pas trop compris l'utilité?

La liste pour la combobox est existe dans un autre fichier dans ce fil, notamment dans le message #20. Je ne l'ai pas ajouté ici tout simplement, parce que j'étais percuadé, qu'il n y aura pas trop de souci de l'insérer après. De plus, je voulais ajouter encore des autres, mais bon je vois que ce n'est pas si simple.

Leurs utilité... Et bien, comme d'habitude, en ajoutant une nouvelle ligne, j'ai les données fixes pour lesquelles est judiciable de créer une liste au lieu de saisir à chaque fois, notamment la colonne Accès, ou encore Type.

Pourquoi je ne parle pas de reste? Je n'ose pas le faire, tout simplement. Déjà je donne un fichier à fabriquer et encore je vais vous poursuivre avec mes petits détails. Surtout, qu'au départ il y avait un fichier, mais après il s'est transformé en plusieurs sur ce même fil. J'essaie juste de les ajuster, mais je commence à comprendre, que mes forces sont pas suffisantes, prenant en compte mes maigres connaissances de ce domaine du VBA. Même pour ajouter 2-3 colonnes dans tableau j'avais du mal avec Listview.

A+
 
Dernière édition:

Si...

XLDnaute Barbatruc
Re : LISTVIEW Ajouter Modifier Supprimer

Salut,

et Si... tu te contentais, sans VBA, de "FILTRER" (surtout avec un nombre important de lignes) ? Tu pourrais alors travailler (sélectionner, trier ...) à partir d'une colonne quelconque.
 

terpick

XLDnaute Occasionnel
Re : LISTVIEW Ajouter Modifier Supprimer

Salut Si,

Justement, il faut que ça soit plus compliqué, sinon ce n'est pas intéressant.

Jusqu'ici je me suis débrouillé pas trop mal avec l'aide du forum, et a commencé déjà à me bien familiariser avec VBA, mes là, avec la ListView j'ai vraiment du mal, pour l'instant en tout cas :) .

La réponse plus courte : j'aime ça
 
Dernière édition:

Bebere

XLDnaute Barbatruc
Re : LISTVIEW Ajouter Modifier Supprimer

Terpick
cela va venir
fait quelques changements
ajout feuille listes pour accès et type
ds usf remis les textbox 1 à 18,autrement complique le code inutilement
pour ajout 2 combobox pour type et accès qui alimente textbox 1 et 12
 

Fichiers joints

terpick

XLDnaute Occasionnel
Re : LISTVIEW Ajouter Modifier Supprimer

Ah, Bébère,
BRAVO!

Je n'ai même pas eu cette idée, tout ce qui est génial est simple. J'ai qques idées pour mettre tout cela en forme. Dès que ça soit fini, je vais le montrer.

Merci beaucoup !

Bonne soirée
 

terpick

XLDnaute Occasionnel
Re : LISTVIEW Ajouter Modifier Supprimer

Bonjour Bébère, tout le monde,

je veux revenir sur un souci, que j'ai déjà évoqué, mais qui reste toujours non résolu. En faisant le tri à l'aide des Combobox1 et 3, si on tape une lettre qui n'existe pas dans les listes, le VBA bug dans la Macro:
HTML:
Sub Remplir_Liste(TypeouVille As String, Optional Nom As String)
La ligne qui bug:

HTML:
 .ListItems(1).Selected = False
Par exemple, si je choisie Optionbutton "Ville" et dans combobox tape la lettre "A", la ville Anger apparait. Tout va bien. Mais si je saisie la lettre "G", le logiciel bug, puis qu'il n y a pas de villes qui commencent par G.

Ce qui est intéressant, c'est qu'en sélectionnant des optionbutton "Type et nom" et "Ville et nom", ce problème ne se produit pas. Si on saisie la même lettre G rien n'apparaît et la macro ne bug pas.

Pourriez-vous m'aider encor avec ça?

Merci par avance,

A+
 

Bebere

XLDnaute Barbatruc
Re : LISTVIEW Ajouter Modifier Supprimer

bonjour Terpick
dans le code ComboBox1_Change
tu changes
If Me.ComboBox1<>"" Then
par
If Me.ComboBox1.ListIndex >= 0 Then
mettre la propriété matchentry sur 0 ou 1
à bientôt
 

terpick

XLDnaute Occasionnel
Re : LISTVIEW Ajouter Modifier Supprimer

Salut le Forum,

Bonjour, Bébère, merci pour l'astuce, ça fonctionne.

J'ai trouvé encore un détail:

le Bouton Ini listview Tout marche à moitié. Par exemple, si on fait un tri dans une des combobox et après on utilise
lvwDescending
le RAZ se fait dans désordre.

Il faut peut être ajouter dans la macro le RAZ?
 

Discussions similaires


Haut Bas