XL 2010 Erreur TextBox vide

[Appo1985]

Bonsoir à tous. Je vous remercie car grâce à vos soutiens je suis presque à bout de mon classeur pour la gestion de notes.
Seulement j'ai découvert un problème.
Au niveau du saisie des notes, en validant, il y a une erreur qui s'affiche lorsque un TextBox est vide. Alors que je voulais laisser certains TextBox vide car l'évaluation peut être faite sur quelques matières seulement. Si vous pouviez m'aider à corriger ce problème.
Le fichier ci-joint.
Merci d'avance.

 

[ChTi160]

Bonsoir Appo
Il te faut testé avant de traiter chaque textBox S'il est vide!
Mais sans fichier rien de concret.
Jean marie

 

[Appo1985]

Bonsoir à tous. Je vous remercie car grâce à vos soutiens je suis presque à bout de mon classeur pour la gestion de notes.
Seulement j'ai découvert un problème.
Au niveau du saisie des notes, en validant, il y a une erreur qui s'affiche lorsque un TextBox est vide. Alors que je voulais laisser certains TextBox vide car l'évaluation peut être faite sur quelques matières seulement. Si vous pouviez m'aider à corriger ce problème.
Le fichier ci-joint.
Merci d'a

Bonsoir Appo
Il te faut testé avant de traiter chaque textBox S'il est vide!
Mais sans fichier rien de concret.
Jean marie

Bonsoir. Merci. Je n'avais pas pu joindre le fichier.

 

[Appo1985]

Bonjour à tous. Bonjour @ChTi160 . Voici le fichier ci joint. C'était tros volumineux.

 

[ChTi160]

Bonjour Appo
En mettant ceux ci !
il y a d'autre façon de faire .

For k = 1 To 12
      Select Case Len(ufnote.Controls("TextBox" & k))
           Case Is = 0  'Si control Vide
                .Cells(lig, k + 5) = ""
           Case Else 'autres cas
                .Cells(lig, k + 5) = CDbl(ufnote.Controls("TextBox" & k))
      End Select
Next

ou

For k = 1 To 12
  If IsNumeric(ufnote.Controls("TextBox" & k)) Then
      .Cells(lig, k + 5) = CDbl(ufnote.Controls("TextBox" & k))
    Else
      .Cells(lig, k + 5) = ""
  End If
Next

jean marie