Ou est mon erreur ??

bonjour

je suis en train de realiser un USF biblioteque

le promier temp fonction tres bien mais apres listbox reste vide je ne sais pas pour quoi

merci de votre aide

Bonjour et bonne année !

Je viens d'ouvrir votre fichier...

Je ne saisie pas le fonctionnement du USF...

@ bientôt

LouReeD

Bonjour

explication:

ComboBox1----> payée ou impayée (en choisir si les clients payées ou impayees)

si payée en affiche tous les clients payées sur listbox1 sinon en affiche les clients impayées

TextBox1------> affiche le nombre des clients qui sont payent (avec combobox1 est payée)

sinon affiche le nombre des clients qui sont impaient (avec combobox1 est impaiee)

TextBox2 -----> si ComboBox1= payée donc

= somme total(somme prix des clients = prix clients1+prix clients2+prix clients3 + .........) qui s'affiche au listbox1

si ComboBox1= impayée donc

= somme total des non payée (somme prix des clients = prix clients1+prix clients2+prix clients3 + .........) qui s'affiche au listbox1

merci de votre aide

Re

L'erreur vient de votre test de valeur sur la colonne 8.

Le plus simple est de ne pas passer par un offset, en effet vous savez que vous testez la cellule, ligne 1 colonne 8 donc faites le test directement sur :

Feuil1.Cells(i, 8).Value = ComboBox1.Value

à noter que les .value ne sont pas nécessaire, enfin je crois, car VBA en l'absence de précision prend Value par défaut.

@ bientôt

LouReeD

bonjour

il y a un decalage des collones

tu peux m'aidez svp

merci

Oups... le 8 ) c'est transformé en 8) !!!!!

Le fichier joint fonctionne , non ?

Parce que sinon je ne comprend pas chez moi ça fonctionne !

Ha oui OK , il vous manque une colonne sur votre feuille1, la première, la date !!!!!

Donc rajoutez une colonne date, puis dans le code modifiez le 8 en 9 !

@ bientôt

LouReeD

bonjour

exactement mr

merci de votre aide

et n'oubliez pas :

@ bientôt

LouReeD

BONJOUR

Dim v As Integer, Lr
ListBox1.Clear
Lr = Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To Lr
If Feuil1.Cells(i, 8).Value = ComboBox1.Value Then 'Feuil1.Cells(i, 1).Offset(0, 8) = ComboBox1.Text Then
ListBox1.AddItem Feuil1.Cells(i, 1).Value
ListBox1.List(v, 2) = Feuil1.Cells(i, 1).Offset(0, 1).Value
ListBox1.List(v, 3) = Feuil1.Cells(i, 1).Offset(0, 2).Value
ListBox1.List(v, 4) = Feuil1.Cells(i, 1).Offset(0, 3).Value
ListBox1.List(v, 5) = Feuil1.Cells(i, 1).Offset(0, 4).Value
ListBox1.List(v, 6) = Feuil1.Cells(i, 1).Offset(0, 5).Value
ListBox1.List(v, 7) = Feuil1.Cells(i, 1).Offset(0, 6).Value
ListBox1.List(v, 8) = Feuil1.Cells(i, 1).Offset(0, 7).Value
ListBox1.List(v, 9) = Feuil1.Cells(i, 1).Offset(0, 8).Value
'ListBox1.List(v, 10) = Feuil1.Cells(i, 1).Offset(0, 9).Value
v = v + 1
End If
Next
TextBox1.Value = v
TextBox2.Text = ""
For s = 0 To ListBox1.ListCount - 1
TextBox2.Text = Val(TextBox2) + Val(ListBox1.Column(7, s))
TextBox2.Value = Format(TextBox2.Value, "#0.00")
Next s
 End Sub

Toujours reste un collone vide

avec

Feuil1.Cells(i, 8).Value = ComboBox1.Value

ca marche pas

merci de votre aide

Humm ?

Voici le fichier joint corrigé

Il y a bien une colonne de plus sur la feuille "Feuil1" de votre classeur excel.

Du coup la colonne Payé/Impayé est passée en colonne 9.

Du coup dans le code, le test ce fait sur la cellule Feuil1.Cells(i,9).value

@ bientôt

LouReeD

bonjour

merci bien

j'aime bien les éléments de ce cite excel-pratique

Bonne Année sur Excel-Pratique !!