XL 2010 Choix dans liste déroulante pas pris en compte

romubzh35 · 22 Juin 2017

Bonjour
ceci est un fichier de suivi des réceptions de camion
Dans l'onglet "Saisie", je viens ouvrir une userform en cliquant sur le bouton saisie situé en H4.
Je choisis le camion pour lequel je souhaite indiquer les informations par exemple le 17H30, je clique sur maintenant pour indiquer que le camion vient d'arriver.
Mais lorsque je fais le choix d'indiquer 0 mètre linéaire disponible dans le camion la valeur n'est pas prise en compte.
Si je choisis n'importe quelle autre chiffre de la liste déroulante cela fonctionne, mais pour le zéro rien..

Pour info toutes les saisies vont d'abord dans l'onglet "Récapitulatif mensuel" et sont affichés dans l'onglet "Saisie" via des recherches.
Les mètres linéaires disponibles sont paramétrés dans l'onglet "Variables" à partir de D29.
Pourriez vous m'aider svp.
merci d'avance

Patrice33740 · 22 Juin 2017

Bonjour

Dans Private Sub boutonvalidation_Click, remplaces

VB:

'Dim ml As Integer
'Par :
Dim ml As Variant

'Et :
'        If ml <> 0 Then
'            .Cells(I + 4, Day(Now) + 1) = ml
' Par
        If IsNumeric(ml) Then
            .Cells(I + 4, Day(Now) + 1) = CInt(ml)

fanfan38 · 22 Juin 2017

Bonjour,
Ton problème vient de cette ligne là:
If ml <> 0 Then
donc si ml= 0 la saisie n'a pas lieu...
la saisie dePatrice arangera ton problème:
If IsNumeric(ml)

A+ François

romubzh35 · 22 Juin 2017

Bonjour à vous 2,
un grand merci Patrice pour la solution proposée, Nickel tout fonctionne parfaitement.
Il y en a qui vont etre heureux.
Passez une bonne soirée et merci encore

XL 2010 Choix dans liste déroulante pas pris en compte

romubzh35

XLDnaute Occasionnel

Pièces jointes

Patrice33740

XLDnaute Impliqué

fanfan38

XLDnaute Barbatruc

romubzh35

XLDnaute Occasionnel

Discussions similaires