Code pour ListView Dle cliq et Ouvre Usf

[MuscatMimi]

Bonsoir a toutes et a tous

j'ai un Usf dans lequel j'ai placé un ListView

Je cherche a réaliser, avec un Dbl Cliq, d'ouvrir l'Usf "Facture"
la ça va j'y suis arrivé OK

dans ce dernier usf j'ai une Cbx intitulée "NomSociété"
une Tbx intitulée "AdresseSociété"
une Tbx intitulée "VilleSociété"
une Tbx intitulée "CPSociété
La BDD ou ce situe les données est intitulées " List_Fournisseur"
"NomSociété" en Colonne A
"AdresseSociété" en Colonne B
"VilleSociété" en Colonne C
"CPSociété en Colonne F
le but est que ,quand l'Usf "Facture "s'ouvre,aprés le DbleCliq
que les 3Tbx et la Cbx
soit remplie avec les données correspondante a la ligne ou j'ai double cliqué

Merci a tous a l'avance

Cordialement
bonne soirée

 

[MuscatMimi]

Re : Code pour ListView Dle cliq et Ouvre Usf

Hello, bonjour a tous

Et bé !!!!!!!personne pour répondre a mon soucis???,,,

Bonne journée

Cordialement

 

[Paritec]

Re : Code pour ListView Dle cliq et Ouvre Usf

Bonjour Vaucluse, le forum,
Bah cela tient au fait que il faut relire ta demande et le titre de ton post, tu parles d'ouvrir un USF et quand on lis, tu as trouvé, puis après tu parles d'une listview et là dans tes explication tu parles de Textbox et combobox, qui doivent se remplir,
alors moi j'ai lu et pas compris le rapport listview textbox et je suis passé à autre chose.
et le code de la listview il est ou? comment elle s'appelle la listview?
voilà pourquoi t'a pas eu de réponses je pense
a+
Papou

 

[sabzzz]

Re : Code pour ListView Dle cliq et Ouvre Usf

bonjour,

Private Sub UserForm_Initialize()
With Me.ComboBox1
.RowSource = Names("List_Fournisseur").RefersTo
.ListIndex = 1
End With
End Sub

Private Sub ComboBox1_Change()
x = Application.Match(ComboBox1, Range("List_Fournisseur").Columns(1), 0)
Me.TextBox1 = Range("List_Fournisseur").Columns(2).Rows(x)
Me.TextBox2 = Range("List_Fournisseur").Columns(3).Rows(x)
Me.TextBox3 = Range("List_Fournisseur").Columns(4).Rows(x)
End Sub

 

[MuscatMimi]

Re : Code pour ListView Dle cliq et Ouvre Usf

Bonjour Paritec

Le nom de ma ListView est : "ListView1" de mon Usf "ConsultationEchéance"

Son code dans "ConsultationEchéance" dans Initialize est:

Private Sub UserForm_Initialize()

Dim a As Byte 'déclare la variable i
For a = 1 To 14
'rend inaccessible le textbox i
Me.Controls("TextBox" & a).Enabled = False
Next a '--prochaine valeur de la boucle

ToggleButton1.Caption = "Mode Modifier"
Dim i As Long, x As Long, k As Byte, li As Object
With ListView1
'--Entête
With .ColumnHeaders
.Clear
.Add , , "N° Facture ", 40 'titre de la colonne et largeur et alignement
.Add , , "Nom Chantier", 90
.Add , , "Date", 65, lvwColumnCenter
.Add , , "Nom Client", 70
.Add , , "Code Chantier", 60
.Add , , "Facture a Payer", 50
.Add , , "Echéance Le", 60, lvwColumnRight
.Add , , "Mode Réglement", 40, lvwColumnRight
.Add , , "Date Réglement", 60, lvwColumnRight
.Add , , "Acc Versé", 50, lvwColumnRight
.Add , , "Reste Dû", 50, lvwColumnRight
.Add , , "Facture Payées", 50, lvwColumnRight
.Add , , "N° Chéque ou Virement", 40, lvwColumnRight
.Add , , "Facture Pointée", 30, lvwColumnRight

End With

.View = lvwReport
.FullRowSelect = True
.Gridlines = True
' Chargement des données
On Error Resume Next
For i = 10 To Sheets("Réglement").Range("A65536").End(xlUp).Row
Set li = .ListItems.Add(, "K" & i, Sheets("Réglement").Cells(i, 1)) '1ère Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 2) '2ème Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 3) '3ème Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 4) '4ème Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 5) ' '5ème Colonne
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 6), "# ##0.00 €") '3ème Colonne
'For k = 3 To 5
'li.ListSubItems.Add , , Format(Sheets("Data").Cells(i, k + 1), "# ##0.00 €") 'Colonne 4 à 6
'Next
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 7), "dd/mm/yyyy") 'date '7èmè Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 8) ', "# ##0.00 €") '8èmè Colonne
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 9), "dd/mm/yyyy") 'Date '9 èmè Colonne
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 10), "# ##0.00 €") '10 èmè Colonne
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 11), "# ##0.00 €") '11 èmè Colonne
li.ListSubItems.Add , , Format(Sheets("Réglement").Cells(i, 12), "# ##0.00 €") '12 èmè Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 13) '13 èmè Colonne
li.ListSubItems.Add , , Sheets("Réglement").Cells(i, 14) '13 èmè Colonne

MiseEnForme

Label26.Caption = .ListItems.Count
Next
' Boucle pour Nom des Labels
For k = 1 To 14
Controls("Label" & k).Caption = ListView1.ColumnHeaders(k)
Next
.ListItems(1).Selected = False
End With

'TTotal 5, 1 'ou premier chiffre c'est N° de la >Colonne et le Deuxiéme N° celui du N° du Label
'TTotal 9, 2
TTotal 11, 3
Alim_Combo
CommandButton2.Enabled = False 'Btn Modifier
CommandButton9.Enabled = False 'Btn Valider Réglement Facture
CommandButton10.Enabled = False 'Btn Ok
CommandButton11.Enabled = False
'Label29 = CDbl(Lbl3) 'Lbl1 - Lbl2 -
'Label29 = Format(Label29, "# ##0.00 €")

End Sub

Ce que je désire faire c'est de Double cliquer sur une ligne,dans la ListView1 de mon Usf "ConsultatationEchéance"
et que les données de cette Ligne Colonne 1,Colonne 2,Colonne 3,Colonne 6
de la ListView,S'affiche dans les
Cbx "NomFournisseur" pour la Colonne 1
Tbx "AdresseSociété" pour la Colonne 2
Tbx "VilleSociété" pour la Colonne 3
Tbx "CPSociété" pour la Colonne 6

située dans mon autre Usf dont le nom est :"Facture"

J'espére avoir été clair cette ci

A bientôt

 

[MuscatMimi]

Re : Code pour ListView Dle cliq et Ouvre Usf,,Aucune réponse???

Bonjour a tout le Forum

!!!!!!!! Aucune réponse a mon probléme????,
Bonne journée

 

[sabzzz]

Re : Code pour ListView Dle cliq et Ouvre Usf

bonjour christian,

peut-tu mettre ton fichier à disposition ? sur cijoint par exemple

 

[MuscatMimi]

Re : Code pour ListView Dle cliq et Ouvre Usf

Bonjour Sabzzz

Voila je te met mon fichier sur Ci-joint

Cijoint.fr - Service gratuit de dépôt de fichiers

Merci de ta réponse,et j'attends ta réponse

Cordialement

 

[sabzzz]

Re : Code pour ListView Dle cliq et Ouvre Usf

bonjour Christian,

dans la macro Private Sub UserForm_Initialize() '(Facture)
j'ai ajouté à la fin

Me.NomFournisseurs = ConsultationEchéancier.ListView1.SelectedItem.ListSubItems(3)
Me.AdresseSociété = ConsultationEchéancier.ListView1.SelectedItem.ListSubItems(1)

le numéro de ListSubItems est à adapter

et dans la macro

Private Sub ListView1_DblClick() 'Pointe ou Dépointe les Ecritures
j'ai ajouté à la fin

Me.Hide
Load UserForm1
UserForm1.Show

quant j'ai fait le test j'ai répodu non à la question le premier userform se cache,
le deuxème s'affiche avec la bonne valeur sur les textbox

a+

 

[MuscatMimi]

Re : Code pour ListView Dle cliq et Ouvre Usf

Désolé sabzzz ,mais tu n'a pas bien lu ce que je demandais

Relit, ma demande, tu comprendra mieux

mais je pense que pour trouver le code pour arriver a faire ce que je désire , cela doit être pas facile
Peut-être qu'un barbantruc, trouvera la solution
Le défis est lancé

Bonne fin de journée