Manque une procédure dans ce code

[MuscatMimi]

Bonjour a tout les forum

Ci-dessous Code d'un Module

Code USF_MOD ,,sert a afficher les données de la ListBox de cet Usf dans
les TextBox de mon Usf "creation"

Code Usf_Echeancier,,sert a afficher les données de la ListBox de cet Usf dans les textBox de mon Usf " creation"

Seule les données de ma ListBox "Usf_Echeancier s'affichent
mais pas celle de ma ListBox l'USF_MOD"
Je dois m'être planté dans la procédure du code ci-dessous


- - - - - - - - - - - -
Public Sub licreation()

'--Usf Mod
With Creation.NomCompte = USF_MOD.TextBox2 'nom compte
Creation.La_Date = USF_MOD.TextBox3 'date
Creation.TypeOperation = USF_MOD.TextBox5 'type opération
Creation.Libelle = USF_MOD.TextBox6 'libelle
Creation.Credit = USF_MOD.TextBox8 'crédit
Creation.Debit = USF_MOD.TextBox7 'débit
Creation.NomBanque = USF_MOD.TextBox4 'nom compte
' End With
'--Usf Echéancier
With Creation.NomCompte = Usf_Echeancier.TextBox2 'nom compte
Creation.La_Date = Usf_Echeancier.TextBox3 'date
Creation.TypeOperation = Usf_Echeancier.TextBox5 'type opération
Creation.Libelle = Usf_Echeancier.TextBox6 'libelle
Creation.Credit = Usf_Echeancier.TextBox8 'crédit
Creation.Debit = Usf_Echeancier.TextBox7 'débit
Creation.NomBanque = Usf_Echeancier.TextBox4 'nom compte
End With
End With
End Sub

Merci beaucoup a l'avance

 

[Luki]

Re : Manque une procédure dans ce code

Bonjour Christian,

Si le code que tu nous montres est complet, ça me paraît normal:

Si je prends le cas creation.date par exemple.
Etape 1, tu la remplis avec la date de ton USF_MOD
Etape 2, plus loin dans ton code, tu la remplis avec la date de ton Usf_Echeancier, ça revient à écraser la valeur que tu avais fourni ci-dessus.

D'autre part, tu parles de listbox. Je n'en vois aucune dans ton code..
Concernant le groupe With : Il sert à accélerer le code en évitant à vba de rechercher l'objet à chaque instruction. La manière dont tu l'utilises est inutile. Il faudrait l'écrire, sans oublier les points :
With Creation
.nomcompte = blalbla
.ladate= bla
.debit= blibli
end with

Voilà, A +

 

[MuscatMimi]

Re : Manque une procédure dans ce code

Voici le code de ma ListBox1 de mon de Usf_Echeancier

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Usf_Echeancier.Hide
Creation.CommandButton4.Visible = True 'Caption = "Modifier"
Creation.Credit.Visible = True
Creation.Label2.Visible = True
Creation.Debit.Visible = True
Creation.Label9.Visible = False
Creation.Label14.Visible = True
Creation.CommandButton1.Visible = False
Creation.OptionButton1.Visible = False
Creation.OptionButton2.Visible = False
Creation.OptionButton3.Visible = False
LigModif = ListBox1.ListIndex + 2
Creation.Show
End Sub
Private Sub ListBox1_Click() 'au clic dans la ListBox
For Y = 1 To 8
Me.Controls("TextBox" & Y).Value = ListBox1.List(ListBox1.ListIndex, Y - 1)
Next Y
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)
End Sub

Voici le code de mon USF_MOD

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
USF_MOD.Hide
Creation.CommandButton4.Visible = True 'Caption = "Modifier"
Creation.Credit.Visible = True
Creation.Label2.Visible = True
Creation.Debit.Visible = True
Creation.Label9.Visible = True
Creation.CommandButton1.Visible = False
LigModif = ListBox1.ListIndex + 2
Creation.Show

Merci de ta réponse et j'ai pigé pour éviter de noter a chaque fois creation

End Sub

Private Sub ListBox1_Click() 'au clic dans la ListBox
For Y = 1 To 8
Me.Controls("TextBox" & Y).Value = ListBox1.List(ListBox1.ListIndex, Y - 1)
Next Y
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)
End Sub

 

[Luki]

Re : Manque une procédure dans ce code

Re,

Un bout de fichier serait le bienvenu, je ne vois pas ce que tu veux faire 😱

 

[MuscatMimi]

Re : Manque une procédure dans ce code

salut Luky et bonjour a tout le forum

je te passe le fichier entier, ne regarde pas le zouk dans le code
c'est un fichier pris sur ce site et que je modifie
Tu verra quand tu ouvre USF_MOD et que tu double clique sur une ligne dans la ListBox ça ouvre l'usf creation mais rien ne s'affiche dans les texTBox
Par contre quand tu ouvre Usf_Echeance les TextBox de creation sont remplie
Je vois pas ce qu'il peu y avoir ,,,,un pro comme toi le verra surement
Bien sur une fois fini, je re-travaillerais le code en conséquence afin qu'il soit propre

bonne fin de journée Luky, au fait ;;;pas trop de pluie sur la capital??,

Ciaoooo

 

[Luki]

Re : Manque une procédure dans ce code

Salut Christian

Le problème
Tu ouvres et remplis un usf(creation) à partir de 2 sources distinctes : usf_mod ou usf_echeancier.
Il faut donc avoir soit 2 procédures distinctes,soit une procédure commune, mais capable de détecter quel usf l'appelle pour choisir les données à afficher dans "creation".
La situation actuelle
Dans ton code, tu as un mélange des 2: une procédure pour chacune de tes 2 listbox ( dbleclic) dans lesquelles tu traites une partie du problème. Puis tu appelle la procédure commune "licreation" pour remplir les données.
Comme expliqué auparavant, ce code ne peut affecter que les données provenant de usf_echeancier. Si ce usf n'a pas été ouvert, l'appel de "creation" par usf_mod se traduit par une absence de données. Mais si usf_echeancier est ouvert lors de ce même appel, "creation" contient les données de usf_echeancier!
La solution adoptée
J'ai mis à jour chacune des 2 procédures listbox_dblclic et supprimé la procédure "licreation" devenue inutile.
Je pense que ce sera plus simple à comprendre pour toi qu'une procédure commune.

Vois si ça te convient. 🙂


PS: Pro, non, je ne le suis vraiment pas !
PS2 😛luie : perdu! il fait grand beau!

 

[MuscatMimi]

Re : Manque une procédure dans ce code

salut Luky et a tous ,sur ce forum

Un grand merci a toi, j'ai tout compris ton expliq
Le fichier modifié me convient parfaitement faudrait être difficile pour ne
pas être satifait, et en plus tu donne des explications , génial
Grace a des personnes comme toi et bien d'autre sur ce forum, je progresse lentement
mais a un certain âge on assimile moins facilement

Tiens ,,,au fait,,,que pense tu du travail que j'ai fais ???
j'aimerais bien avoir l'avis d'un pro,
mais tu n'est pas obligé de répondre

La Pub Perso ,,c'est ta société?????
Merci encore et
A bientôt sur ce site

Passe une agéable journée

Ciaooooooo

 

[MuscatMimi]

Re : Manque une procédure dans ce code

salut Luky

encore moi
dis-moi,
dans mon Usf Mod j'ai une zone de recherche avec des ComboBox
N'y a t'il pas un code plus simple ????,pour en arriver au même résultat
et qui plus ai , j'arriverais peut-être mieux a comprendre

Merci a l'avance
Cordialement