Soucis Affichage de Somme dans Labels

[MuscatMimi]

Bonsoir a tous le Forum

j'ai un Usf, avec une ListView

J'ai ce bout de code qui me permet d'éffectuer
un calcul dans Label1429

With ListView1.SelectedItem
Label1426.Caption = .ListSubItems(5)'Col F Bdd
Label1427.Caption = .ListSubItems(9)'Col J Bdd
Label1428.Caption = .ListSubItems(11)'Col L Bdd

'On Error Resume Next
Label1429 = Val(Label1426 - Label1427 - Label1428)
Me.Label1429 = Format(Me.Label1429, "# ##0.00 €")
End With

Il arrive que dans ma Bdd ,la Colonne L (en l'occurence)

n'es pas renseignées dans ceratines lignes
et donc dans le Label1428 il n'y a aucune Somme qui s'affiche, et cela
me met une erreur

Que faut-il modifier afin de remédier a ce soucis

Cordialement

 

[Excel-lent]

Re : Soucis Affichage de Somme dans Labels

Bonsoir Vaucluse immo,

La correction la moins académique mais la plus simple et la plus rapide :

With ListView1.SelectedItem
Label1426.Caption = .ListSubItems(5)'Col F Bdd
Label1427.Caption = .ListSubItems(9)'Col J Bdd
Label1428.Caption = .ListSubItems(11)'Col L Bdd

'On Error Resume Next

[COLOR="Blue"]If Label1428.value = "" Then
   Label1429 = Val(Label1426 - Label1427)
   Else: [/COLOR]Label1429 = Val(Label1426 - Label1427 - Label1428)
[COLOR="Blue"]End If[/COLOR]

Me.Label1429 = Format(Me.Label1429, "# ##0.00 €")
End With

Partie rajouté

Je ne sais plus si après le Else il faut mettre ou non les deux points! A tester.

Bonne fin de soirée

 

[MuscatMimi]

Re : Soucis Affichage de Somme dans Labels

Bonsoir Exel-Lent

Super merci de ton aide

J'ai juste supprimé le ".Value" qui me mettait une erreur
Sinon ça fonctionne bien

a plus sur ce site

Bonne nuit