Alimenter une Listview

[apdf]

Bonjour,

Voila j'ai un formulaire avec une Listview et textbox j'aimerais alimenter ma Listview ainsi que mes textbox.

Pourriez vous m'aider.

Je vous remercie d'avance

Cordialement

Max

 

[CHALET53]

Re : Alimenter une Listview

c'est ce qui explique ta première colonne avec la première lettre du Nom

J'ai tenté quelque chose
Lorsqu'on modifie sur un existant, les risques sont majeurs (j'ai renommé le fichier)
J'ai fait une modif pour que l'adresse mail soit cliquable

A tester

 

[apdf]

Re : Alimenter une Listview

Re,

C'est pas si mal que sa ! Je pense que pour finaliser le formulaire il manquerai peut être un bouton pour visualiser tous les clients dans la ListView quand pense tu ?
@+
Max

 

[laetitia90]

Re : Alimenter une Listview

bonjour tous🙂🙂🙂🙂🙂🙂🙂🙂🙂🙂
dans ton cas peu de clients 150 pas la peine de passer par un code optimise
tu remplace ta combobox par textbox12 et tu mets ce code apres il faut coder si tu veus de nouveau appeler ta liste complete mais assez simple a faire reinitialiser user

Private Sub TextBox12_Change()
ListView1.ListItems.Clear
N = 0
Recherche = TextBox12.Value
Set Plage = Range("c2", Cells(Rows.Count, "c").End(xlUp))
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
 Do
 If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
 ListView1.ListItems.Add , , C.Offset(0, -2)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, -1)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 0)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 1)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 2)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 3)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 4)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 5)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 6)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 7)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 8)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 9)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 10)
 N = N + 1
 End If
 Set C = .FindNext(C)
 Loop While Not C Is Nothing And C.Address <> Adresse
 End If: End With: Beep
End Sub

avec ucase minuscules & majuscules accepter

attention si tu veus modifier ect...il faut tous revoir


OUPS!!!! NE TIENS PAS COMPTE DE MON POST j'avais pas fait attention qu'il y avait une autre page avec reponse🙁🙁

 

[CHALET53]

Re : Alimenter une Listview

Bonjour,

J'ai intégré la proposition de Laétitia
Si tu saisis a dans la zone , s'affiche Andre Andre Annette
si tu complètes par ann seule Annette reste

Pas eu le temps de faire tous les contrôles, soleil sur les pistes oblige

Bizarrement (j'ai pas contrôlé pourquoi), tu saisis une lettre, tu l'annules et tout s'affiche : CQFD pour ta question complémentaire

a+

 

[apdf]

Re : Alimenter une Listview

Bonjour, Laetitia,Chalet,

Il est vrai que la proposition de Laetitia est pas mal du tout, reste a coder pour appeler toute la liste au complet ?

@+

Max

 

[YANN-56]

Re : Alimenter une Listview

Bonjour Max, aux éminents participants🙂, et à ceux qui passeront par là,

Max:
Je ne sais pas d'où tu as tiré cet USF1, mais il est de mon cru.
Les couleurs particulières des boutons ne trompent pas.
Il en va de même pour la similitude du contenu de la Feuille "Clients"

Dans les codes, je ne retrouve cependant pas de ce que j'aurais pu écrire.

Si tu peux retrouver le nom d'origine du Fichier, peut-être pourrais-je te transmettre
les améliorations que j'y ai apportées. (Il y en a eu une caisse depuis)

Je pense que pas mal de points répondraient à ta recherche.

Amicalement, et à te lire,

Yann

 

[apdf]

Re : Alimenter une Listview

Bonjour Yann,

Je pense que tu a raison car je les trouver sur ce site et j'ai porter avec l'aide de Chalet et Laetitia quelques modifications mais je serais incapable de te dire si l'origine est de ton cru ? si cela est le cas je te remercie car je l'ai trouvé super. Mais comme tu me propose de me transmettre le fichier au complet je serais très heureux de l'avoir.

Bonne journée

Cordialement

Max

 

[YANN-56]

Re : Alimenter une Listview

Re Max,

Je vais faire une recherche de mon coté.

Ce n'est pas de la tarte compte tenu du nombre important de bidouilles que j'ai pu faire sur le sujet.

A plus tard, si je retrouve. (Je suis trop occupé par ailleurs pour tout reconstruire😛)

Amicalement,

Yann

 

[CHALET53]

Re : Alimenter une Listview

Re bonjour APDF

Avec l'intervention du spécialiste en Listview qu'est notre ami Yann, tu es en de bonnes mains.

Bon courage

a+

 

[YANN-56]

Re : Alimenter une Listview

Re Max, et à tous,

Merci CHALET pour le compliment!🙂
C'est malin!!! Maintenant, je vais être obligé de poursuivre...😛😛😛

J'ai retrouvé le Classeur initial (Enfin un qui lui ressemble)

Il manque un point important:
La mise des TextBoxes dans un groupe (Module de Classe).
Ce qui permettra d'imposer leur Format lors de la saisie.
Je l'ai fait, mais toujours pas mis la main dessus!😕

En attendant, tu pourras toujours regarder le processus, et voir si tu peux en tirer aide.

Amicalement, et à plus tard,

Yann

P.S. Il manque aussi l'utilisation des "Tag"
qui permettent de garder en mémoire ne n° de la ligne où a été pompé les coordonnées du client.
(Les codes s'en trouvent grandement simplifiés)

 

[CHALET53]

Re : Alimenter une Listview

Re,

J'ai regardé avec intérêt ton fichier (qui, il est vrai, comporte des similitudes avec le fichier de apdf : bien que, comme dans les films, toute ressemblance avec des personnes ayant existé ......)
Une question :
Dans mes listviews, j'intègre souvent une colonne pour m'indiquer le numéro de ligne dans la feuille EXCEL : ce qui me facilite la mise à jour en Modif ou en suppression dans la feuille.
Y a-t-il un inconvénient à cette approche ?
Dans la méthode que tu utilises, le risque : si deux personnes ont les mêmes nom et prénom, c'est le premier enregistrement qui sera modifié (ou supprimé)

a+

ps : pour rendre l'adresse mail clickable, j'ajoute ceci (à adapter):

With Worksheets("clients")
.Hyperlinks.Add .Range("J" & derligne), _
Address:="mailto:" & Me.TextBox10

 

[YANN-56]

Re : Alimenter une Listview

Re CHALET 🙂,

Dans mes listviews, j'intègre souvent une colonne pour m'indiquer le numéro de ligne dans la feuille EXCEL : ce qui me facilite la mise à jour en Modif ou en suppression dans la feuille.
Y a-t-il un inconvénient à cette approche ?

Absolument pas! Le seul inconvénient un paramétrage supplémentaire.
Comme je boucle souvent sur les entêtes de colonnes, cela risque de fiche le désordre.
Le "Tag" ou "Key"(Avec des réserves sur ce dernier) offre confortablement et simplement le même résultat.

Dans la méthode que tu utilises, le risque : si deux personnes ont les mêmes nom et prénom, c'est le premier enregistrement qui sera modifié (ou supprimé)

Effectivement!
Mais on peut y ajouter autres éléments de comparaison,
comme la date de naissance, un lieu, un numéro de téléphone... Et c.

Je pense que je vais reconstruire la totalité, quand j'en aurai le temps.
Car ce que j'ai découvert depuis apporte une simplification non négligeable des codes.

(Punition, pour manquer d'ordre!!!😡)

Amicalement et à plus tard,

Yann

 

[YANN-56]

Re : Alimenter une Listview

Pour info:
https://www.excel-downloads.com/thr...collones-en-fonction-des-optionbutton.176827/

 

[apdf]

Re : Alimenter une Listview

Bonjour Yann,

Toutes mes excuses j'était persuadé d'avoir répondu c'est pas dans mais habitude.

Je renouvelle mes excuses. Je comprend très bien ta colére et je compatis


Bonne journée

Max

 

[YANN-56]

Re : Alimenter une Listview

Bonjour Max, et à ceux qui passeront par là,

J'accepte...... Rassure-toi; je me suis calmé.🙂

Je suis un peu pris par ailleurs, mais je reviendrai pour cette affaire de gestion des ListView.

Je te ferai signe en M.P. au cas où tu aies oublié de t'abonné à cette discussion.

Finalement, je te dois un "Merci" pour m'avoir amené à mettre un peu d'ordre chez moi.🙂

Amicalement,

Yann