Simplifier le code SI POSSIBLE

[richi2casa]

Bonjour

Je suis presque terminé l'application
il reste le calcule quantité en stock ; quantité vendue, quantité entrée et quantité commander

et Simplifier le code (diminuer le temps de calcul)


qlqun peux m'aidez svp

cdt

GESTION BIBLIOTHEQUE

 

[richi2casa]

Re : Simplifier le code SI POSSIBLE

bonjour
je rectif les erreurS
je ne sais pas comment faire le calcule du stock
- si emprunteur prend le (ou les ) livre a titre de prêts ,en calcule le stock = ???
Auteur | Titre | Emprunteur | quantite prêtés | Date de préts | quantite Entrée | Date de retour | Quantitée en Stock


merci de votre aide

 

[richi2casa]

Re : Simplifier le code SI POSSIBLE

bonjour forum

Qui peut me corriger mon code ,je n'arrive pas a afficher le premier collone au textbox

merci bien

Private Sub ListView4_Click()
'Dim maLigne As Long
'Dim index1 As Integer
Dim i As Long
For i = 1 To ListView4.ListItems.Count
'Affiche le contenu de la 1ere colonne pour chaque ligne sélectionnée
If ListView4.ListItems(i).Selected = True Then MsgBox ListView4.ListItems(i).Text


With ListView4.ListItems(ListView4.SelectedItem.Index)
' TextBox26.Value = .ListSubItems(0)
TextBox27.Value = .ListSubItems(1)
TextBox28.Value = .ListSubItems(2)
TextBox29.Value = .ListSubItems(3)
TextBox30.Value = .ListSubItems(4)
TextBox31.Value = .ListSubItems(5)
TextBox32.Value = .ListSubItems(6)
TextBox33.Value = .ListSubItems(7)
TextBox45.Value = .ListSubItems(8)
TextBox46.Value = .ListSubItems(9)
'Lbl_dureeOperation.Caption = .ListSubItems(8)
End With
Next
End Sub

 

[richi2casa]

Re : Simplifier le code SI POSSIBLE

bonjour forum
svp je n'arrive pas a afficher le premier collone au textbox26

merci bien de votre aide

 

[grisan29]

Re : Simplifier le code SI POSSIBLE

bonsoir Richi2casa
essai ton code comme ceci

With ListView4.ListItems(ListView4.SelectedItem.Index)
    TextBox26.Value = .Text
     TextBox27.Value = .ListSubItems(1)
     TextBox28.Value = .ListSubItems(2)
     TextBox29.Value = .ListSubItems(3)
     TextBox30.Value = .ListSubItems(4)
    TextBox31.Value = .ListSubItems(5)
    TextBox32.Value = .ListSubItems(6)
    TextBox33.Value = .ListSubItems(7)
    TextBox45.Value = .ListSubItems(8)
    TextBox46.Value = .ListSubItems(9)

pascal

 

[richi2casa]

Re : Simplifier le code SI POSSIBLE

merci bien pascal

 

[richi2casa]

Re : Simplifier le code SI POSSIBLE

bonjour
j'ai un problème qui concerne USF Multipage .
quand j' ouvre usf multipage la page active s'affiche complètement aucune problème ,mais quand je déplace a une autre page. page suivante ou page precedante la page ne s'affiche pas complètement mais apres le passage et le retoure elle s'affiche completment
pouvez-vous m'aider à résoudre mon problème de ...

cdt

 

[laetitia90]

Re : Simplifier le code SI POSSIBLE

bonjour richi2casa grisan29

normal

Private Sub UserForm_Initialize()

ton code

MultiPage1.Value = 1: MultiPage1.Value = 0

end sub

 

[richi2casa]

Re : Simplifier le code SI POSSIBLE

bonjour
merci laetitia90

tu veux dire que pas de solution pour l'USF multipage = c normal

cdt