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

[romubzh35]

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]

Bonjour

Dans Private Sub boutonvalidation_Click, remplaces

'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]

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]

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