resultat ListView

Re : resultat ListView

Bonjour Bruce,

J'ai refondu ton projet.

Tu verras si cela peut te convenir,
et répondre un peu à ton attente.

1) On dresse la liste des Clients.
2) Par un double click sur celle-ci
l'on peut voir l'état des soldes.

Il y a encore plein de possibilités comme:
l'addition des encours, l'écriture en rouge
des dates d'échéance dépassées... Et c.

Je n'ai pas géré les mois; car cela implique
la mise en forme des dates un peu lourde et
risquant de rendre pas trop facile à lire
mon, p'tit truc.

Bonne fin de journée à toi et à ceux qui passeront par ici.

YANN-56

P.S. J'avais oublié:
Clique sur le bouton Rouge de ta page "Factures"

Re : resultat ListView

Bonjour Bruce,yann
avec quelques plus
à bientôt

Re : resultat ListView

Bebere à dit:

Bonjour Bruce,yann
avec quelques plus
à bientôt

Cliquez pour agrandir...

Bonsoir Bebere, Bruce s'il passe par là.

Bebere, je ne pige pas pourquoi j'ai ce message à
ma tentative d'ouverture de l'USF:

For l = 1 To UBound(Tbl, 1)

"Projet ou Bibiothèque introuvable"
Pourtant je n'ai pas vu d'Option explicite ou autre.
Il en a été de même pour son Classeur initial.
J'ai été obligé de déclarer la variable "i"

J'ai tenté d'aider, mais je ne doute pas que ta solution est meilleure.
Aussi je cherche à apprendre.

Bonne soirée à toi.

YANN-56

Re : resultat ListView

Yann
sous vbe outils,références vois si MANQUANT: est présent
si oui décoche la case
bonne soirée

Re : resultat ListView

Bonsoir à tous

Merci YANN-56 pour ton fichier super sympa , est il possible d'avoir quelques informations dans le fichier pour pouvoir le decortiquer plus facilement.

Merci Bebere

Merci pour ton fichier il est aussi tres sympa un peut plus complet mais il y a un petit prb quand je choisi le mois dans le resultat de la ListView à la place du client se trouve le N° du mois en double avec le mois .

dans les 2 fichiers j'aimerais recuperer le N° de ligne quans je doubble clic sur une ligne de la ListView pour ouvrir un UserForm et pouvoir faire un paiement sur un client et verifier si le client à déjà honoré sa facture (Facture Payée) et controler la date de paiement si celle ci est correcte (Date non Valide ).

Merci pour toute votre aide

Re : resultat ListView

Bonsoir Bebere et Bruce ainsi qu'à ceux qui passeront pat là.

Bebere: Merci de me rappeler de toujours,
en cas de Bug, de vérifier les références.
Ce n'est pas la première fois que je me fais pièger...!
Je vais pouvoir regarder avec intérêt ce que tu proposes.

Quant à toi Bruce:

J'ust'un p'tit conseil d'un pépé (Pas en VBA, mais par l'age!)
Quand je démarre une application, je me fais toujours un
cahier des charges.

C.à.d. Là où je veux en venir. Le résultat que je veux.
Ce que l'utilisateur souhaiterait voir comme outils dans
ses boites de dialogue.

Je peux détailler mon exemple.
Mais encore, si tu en as envie et si tu en trouves le temps,
fais-moi un plan de ce que tu cherches à faire.

Promis, avec mes modestes moyens,
je tenterai de t'aider.

Bonne fin de soirée à tous.

YANN

Re : resultat ListView

bonjour
corrigé et fait ta demande
à bientôt

Re : resultat ListView

Bonsoir à tous
Avec Toute l'aide du forum je suis arrivé à faire ce fichier pour le finaliser il me faudrait le N° ligne se trouvant dans "(.SelectedItem.Index)" partie de la macro ci dessous
L'userForm4 recupere les bonnes données quand on fait un double clic dans la ListView mais impossible d'enregistrer le paiement, manque la variable de la ligne ;

Private Sub UserForm_Initialize() 'Initialise UserForm4

With UserForm2.ListView1
' Nom
lblNom.Caption = .ListItems(.SelectedItem.Index).Text 'Client
Label11.Caption = .ListItems(.SelectedItem.Index).SubItems(2) 'N° Facture
Label12.Caption = .ListItems(.SelectedItem.Index).SubItems(5) 'Montant Fact
Label16.Caption = .ListItems(.SelectedItem.Index).SubItems(3) ' Date Fact
Label14.Caption = .ListItems(.SelectedItem.Index).SubItems(4) ' Echeance
ComboBox4 = .ListItems(.SelectedItem.Index).SubItems(6)
DatPaie = .ListItems(.SelectedItem.Index).SubItems(7)

End With
Le fichier est en piece jointe
Je vous remercie de votre aide

Re : resultat ListView

bonjour

Bruce ce n'est qu'une sélection de la base dans la listview,la ligne ne correspond pas
je t'avais mis des clés,pour écrire dans la base,je les ai remises
j'ai ajouté un réini de la listview
ce que j'ai fait comme code pour la listview c'est mieux,crois moi(méthode Thierry)
à bientôt

le fichier est là
http://cjoint.com/?kFjdBjnG4t

Re : resultat ListView

Bonjour Bebere bonjour à tous

Merci Bebere pour la modif de mon fichier
Pourquoi récuperer la position de la ligne et de la colonne pour enregisterer le paiement cela oblige à déclarer autant de variable que de modif, ici il y en a 2 il pourrait y en avoir 20, le N° de ligne suffirait et la declaration de variable serait egalement de 1.
Je fais mes macros avec des macros existante ou que je trouve sur le net et je les adapte en fonction de mon fichier , car les macros que je construis ou modifie j''arrive à mieux les comprendre ou quand je demande de l'aide j'aime bien avoir quelques explications pour une meilleur compréhention
Dans le fichier V3 je recupere les clients dans factures il y en a moins mais ,il y a des doublons donc j'ai adapté le ComboBox en consequence cela oblige également au départ de trier les clients ce que j'aimerais (mais pour moi ce n'est pas gagné) c'est de trier la ListView de l' UserForm2 en ordre croissant sur les mois.
J"aimerais des explications la différence entre ces 2 Lignes ?
ListView1.ListItems(LigList).listSubItems.Add , , wsFactures.Range("F" & Lig).Value 'Montant
ListView1.ListItems(LigList).listSubItems.Add , "G" & Lig, wsFactures.Range("G" & Lig).Value 'Mode
Merci pour l'aide , bonne journée à tous

Re : resultat ListView

Bruce
"G" & Lig
c'est une clé, tu peux en mettre à toutes les lignes de la listview
dans usf4 bouton valider tu as l'usage
et si tu tries la listview,les données iront tjrs à la bonne place

' Tri lors de la sélection d'une colonne
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.Sorted = False
ListView1.SortKey = ColumnHeader.Index - 1

If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If

ListView1.Sorted = True
End Sub




' Tri d'une colonne contenant des Dates -------
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim i As Integer, j As Integer

ListView1.Sorted = False
ListView1.SortKey = ColumnHeader.Index - 1

'Boucle sur toutes les lignes
For i = 1 To ListView1.ListItems.Count

'Passage des données au format décimal
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
CDec(CDate(ListView1.ListItems(i). _
ListSubItems(ColumnHeader.Index - 1).Text))
Next i

' ------ Application du tri -----------
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If

ListView1.Sorted = True

'Boucle sur toutes les lignes
For i = 1 To ListView1.ListItems.Count
'Ensuite on revient au format DD/MM/YYYY
ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
Format(CDate(ListView1.ListItems(i).ListSubItems _
(ColumnHeader.Index - 1).Text), "DD/MM/YYYY")
Next i

End Sub

à bientôt

Re : resultat ListView

Re bonjour Bebere
Je te remercie pour ton aide mais là je ne vois pas exactement ou tout cela doit se mettre dans une macro pour que tout fonctionne bien, je souhaiterais un petit exemple avec quelques explications dans la macros si cela ne te dérange pas trop suis peut etre exigeant mais j'aime bien comprendre ce que je fais pour arriver à le reproduire.
Avec tous mes remerciements

Re : resultat ListView

Bruce
pour le tri listview
il te manque microsoft common control dans ton office
quelle version
bonne soirée

Re : resultat ListView

bonjour Bruce
ajout du contrôle
à bientôt