Frame SI(ET(OU))) avec Listview

[Le_Troll_Du_27]

Bonjour le forum,

Je voudrais créer une listview1 sur l'userform afin de sélectionner une ligne spécifique pour valider une donnée

j'ai essayer plusieurs système différent mais je ne comprends pas pourquoi ma listview me donne un résultat différent de ce que je voudrais.

Il y a déjà les module de Dranreb

Cordialement Laurent

 

[Le_Troll_Du_27]

Re : Frame SI(ET(OU))) avec Listview

Bonjour le forum,

j'ai remis à jour mon fichier et comment alimenter les textbox avec la listview
cordialement
Laurent

 

[Le_Troll_Du_27]

Re : Frame SI(ET(OU))) avec Listview

Private Sub ListView1_DblClick()
    Dim x As Byte
    Dim Nb As Integer
    
    Nb = ListView1.SelectedItem.Index + 1
    
    With ListView1

        For x = 1 To 17
            Controls("TextBox" & x) = ""
        Next

    End With

End Sub

merci de me donner suite

 

[Dranreb]

Re : Listview sur P_Paiement

Bonsoir.
Ma fois ça ça a déjà l'air de donner quelque chose :

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim C&
For C = 1 To 9
   Controls("TextBox" & C) = Item.ListSubItems(C)
   Next
End Sub

Mais bon ça n'a pas l'air d'être dans l'ordre. Alors on ne peut peut être pas le faire avec une boucle…

 

[Le_Troll_Du_27]

Re : Frame SI(ET(OU))) avec Listview

bonjour Dranreb

je voudrais alimenter les textbox de 1 à 15 par un double click de la listview.
Une fois les textbox alimenter, choisir un mode de paiement par la comboBox1
et selon la combobox1 la Frame s'affiche pour le paiement

Cordialement

Laurent

 

[ChTi160]

Re : Listview sur P_Paiement

Bonjour Laurent
Bonjour Dranred,le fil, Le Forum

Ce pose aussi le nombre de Colonnes de ta ListView1 (<15) donc le Click ne peut déjà pas transférer des Données , qui ne sont pas dans la ListView1 (sauf erreur de ma part)
Bonne Journée
Amicalement
Jean Marie

 

[Le_Troll_Du_27]

Re : Frame SI(ET(OU))) avec Listview

bonjour le ChTi160

Ok, si je comprends pour contourner ce problème il faudrait que la listview devra avoir les mêmes références que les textboxs.
Si il n'y a aucun moyen de contourner ce problème. Je vais juste attendre d'autre avis Xlnaute, on ne sait jamais, peut-être l'un d'entre eux à cette solution ou un système pour pallier au problème.

Cordialement

Laurent

 

[ChTi160]

Re : Listview sur P_Paiement

RE
ce que je veux dire c'est que tu as 9 colonnes dans ta ListView1 et 15 ou 17 TextBox a remplir .
ça peut poser problème
Bonne Journée
Amicalement
Jean Marie

 

[ChTi160]

Re : Listview sur P_Paiement

Re

Une approche d’après ce que j'ai compris .

Le Fichier : Regarde la pièce jointe date lettre de relance 3 Chti160.xlsm

Bonne Journée
Amicalement
Jean Marie

 

[Bebere]

Re : Listview sur P_Paiement

bonjour
du changé la listview, les entêtes ne s'affichait pas,peut être devras tu aussi changer
mis les données de A à Y dans listview,
rmq les textbox ne correspondent pas
mis un code dans combobox1 et dans item click de listview pour les textbox
tu y verras cle=....(propriété key de la listview)
cela te permet de remettre les données dans la feuille sans problème

 

[Le_Troll_Du_27]

Re : Frame SI(ET(OU))) avec Listview

je vous remercie, Bebere et CHti160 j'étais en train de modifié les textbox et ChTi160 a trouvé la solution. Donc je vais repartir avec la compo du ChTi160 avec le code source de la combo de Bebere pour les frames.

Cordialement

Laurent

 

[Le_Troll_Du_27]

Re : Listview sur P_Paiement

bonjour le forum

J'ai joins les 2 fichiers. Il ne reste plus qu'alimenté les frames surtout les montant TTC
Par contre les 2 textboxs "Date d'échéance" & "Reste dû" ne sont pas alimenter?


Cordialement

Laurent

 

[grisan29]

Re : Listview sur P_Paiement

bonjour le_troll_du_27, chti60, bebere et le forum

dans le dernier fichier de bebere je n'ai pas de bug a l'ouverture du classeur, par contre avec celui du troll_du_27 oui et c'est a "chr" dans ce code

MsgBox ("Bonne journée !" & Chr(10) & "Nous sommes le " & Format(Date, "dddd d mmmm yyyy"))

Pascal

 

[Le_Troll_Du_27]

Re : Frame SI(ET(OU))) avec Listview

Bonjour Grisan29
je ne comprends pas le soucis surtout que ce n''est pas cela que je demande.

Private Sub Workbook_Open()
   
    ' Mettre en plein écran à l'ouverture
    On Error Resume Next
    MsgBox ("Bonne journée !" & Chr(10) & "Nous sommes le " & Format(Date, "dddd d mmmm yyyy"))
   
    On Error GoTo 0
   
End Sub

Ce code n'est pas une obligation dans le classeur. Ce format fonctionne très bien sachant que les deux classeurs sont les mêmes.

bonjour le_troll_du_27, chti60, bebere et le forum

dans le dernier fichier de bebere je n'ai pas de bug a l'ouverture du classeur, par contre avec celui du troll_du_27 oui et c'est a "chr" dans ce code

Cordialement

laurent

 

[ChTi160]

Re : Listview sur P_Paiement

Bonjour Laurent
Bonjour le Fil
Bonjour le forum

une autre version

Le Fichier : En Attente

Bonne fin de Journée
Amicalement
Jean Marie