Erreur Affichage dans ListView

[MuscatMimi]

Bonjour a tous

J'ai:
une feuille BDD de 13 Colonnes
Une ListBox dans un Usf, qui affiche les données de ces 13 Colonnes
Hors , si dans une ,ou plusieurs colonnes il y a des cellules qui sont vide
cela génére une erreur 13

Il y a t'il une solution????

Voici le Code

Private Sub ListBox1_Click()
Dim LaDate As Date, C As Byte

If ListBox1.ListIndex = -1 Then Exit Sub

LaDate = CDbl(ListBox1.List(ListBox1.ListIndex, 13) + 30)
If CDate(TextBox1) > LaDate Then
TextBox1.BackColor = RGB(255, 0, 255) 'blanc
CommandButton1.Visible = True 'False
Label1.Visible = True 'False
Else
TextBox1.BackColor = RGB(255, 255, 255) 'rose
CommandButton1.Visible = False 'True
Label1.Visible = False 'True
End If
X = Date - ListBox1.List(ListBox1.ListIndex, 13)
If X > 30 Then Me.Frame1.BackColor = &HFFFF& Else Me.Frame1.BackColor = &H8000000F
If X > 45 Then Me.Frame2.BackColor = &H80FF& Else Me.Frame2.BackColor = &H8000000F
If X > 60 Then Me.Frame3.BackColor = &HFF& Else Me.Frame3.BackColor = &H8000000F



'afficher la ligne de la listbox sélectionnée dans les textbox
'içi les 6 1ères colonnes,index 0 à 5
For C = 2 To 30
Controls("TextBox" & C) = ListBox1.List(ListBox1.ListIndex, C - 2)
Next C

End Sub

 

[skoobi]

Re : Erreur Affichage dans ListView

Bonjour Christian,

si j'ai bien compris, tu vérifies que la donnée de la listbox n'est pas vide:

If ListBox1.ListIndex = -1 Or ListBox1.List(ListBox1.ListIndex, 13) = "" Then Exit Sub

 

[kjin]

Re : Erreur Affichage dans ListView

Bonjour,

Private Sub ListBox1_Click()
[COLOR="Red"]Dim LaDate As Date[/COLOR]
LaDate = [COLOR="Red"]CDbl[/COLOR](ListBox1.List(ListBox1.ListIndex, 13) + 30)
If [COLOR="Red"]CDate[/COLOR](TextBox1) > [COLOR="Red"]LaDate[/COLOR] Then

Pourquoi Cdbl(Listbox...) et non pas Cdate(Listbox...
A+
kjin

 

[MuscatMimi]

Re : Erreur Affichage dans ListView

Bonjour Skoobi,et Kjin

Skoobi
Déja merci de ta derniére réponse ,hier soir pour "Val" a ajouter

Et pour aujourd'hui
Je viens de voir, apparament, c'était le format de la Date dans
mes cellules qui n'était pas bon
j'ai mis le format suivant 13 mars 2009
et pour l'instant ça fonctionne
j'avoue pas trop avoir compris

Kjin
Merci aussi a toi Kjin,mon voisin de l'Hérault

Si ça ce remet a ne plus fonctionner, je met un nouveau fil

Bonne journée

 

[MuscatMimi]

Re : Erreur Affichage dans ListView

Bonjour Kjin et Skoobi

Je reviens vers vous , juste pour vous dire que j'ai ciblé
le soucis que j'avais

Cela ne venait pas du format de mes Cellules, mais du format que j'ai indiqué dans le code dans la Validation de mon DTPicker

J'avais écrit

Sheets("Data").Cells(Lignes, 14) = Format(Me.DTPicker3 , "dd/mm/yyyy") 'date echéance

alors qu'il fallait écrire

Sheets("Data").Cells(Lignes, 14) = Me.DTPicker3 'date echéance

tout simplement

Je tenais a préciser , afin que cela puisse servir a d'autres

Merci encore a vous deux
Bon week-end

Cordialement

 

[Bebere]

Re : Erreur Affichage dans ListView

bonjour Kjin,Skoobi,Vaucluse
normalement
Sheets("Data").Cells(Lignes, 14) = Cdate(Me.DTPicker3)'date echéance
si tu des ennuis
Sheets("Data").Cells(Lignes, 14) = Cdbl(Me.DTPicker3)'date echéance
ensuite
Sheets("Data").Cells(Lignes, 14).NumberFormat="dd/mm/yyyy"
à bientôt

 

[MuscatMimi]

Re : Erreur Affichage dans ListView

Salut bébére

Je vais essayer le code que tu me propose,
Je te tiendrais au courant

Bon Week-end

Cordialement