Simplifier le code SI POSSIBLE

richi2casa · 9 Janvier 2015

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 · 10 Janvier 2015

richi2casa · 11 Janvier 2015

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 · 12 Janvier 2015

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 · 15 Janvier 2015

Re : Simplifier le code SI POSSIBLE

bonsoir Richi2casa
essai ton code comme ceci

Code:

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 · 15 Janvier 2015

Re : Simplifier le code SI POSSIBLE

merci bien pascal

richi2casa · 15 Janvier 2015

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 · 16 Janvier 2015

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 · 16 Janvier 2015

Re : Simplifier le code SI POSSIBLE

bonjour
merci laetitia90

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

cdt

Simplifier le code SI POSSIBLE

richi2casa

XLDnaute Nouveau

richi2casa

XLDnaute Nouveau

Pièces jointes

richi2casa

XLDnaute Nouveau

Pièces jointes

richi2casa

XLDnaute Nouveau

grisan29

XLDnaute Accro

richi2casa

XLDnaute Nouveau

richi2casa

XLDnaute Nouveau

Pièces jointes

laetitia90

XLDnaute Barbatruc

richi2casa

XLDnaute Nouveau

Discussions similaires