XL 2010 Erreur TextBox vide

Appo1985 · 8 Août 2021

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 · 9 Août 2021

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

VB:

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

Code:

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

ChTi160 · 8 Août 2021

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

Appo1985 · 8 Août 2021

Appo1985 à dit:
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

ChTi160 à dit:

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

Cliquez pour agrandir...

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

Appo1985 · 9 Août 2021

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

ChTi160 · 9 Août 2021

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

VB:

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

Code:

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

XL 2010 Erreur TextBox vide

Appo1985

XLDnaute Occasionnel

ChTi160

ChTi160

XLDnaute Barbatruc

Appo1985

XLDnaute Occasionnel

Appo1985

XLDnaute Occasionnel

Pièces jointes

ChTi160

XLDnaute Barbatruc

Discussions similaires