XL 2010 Erreur TextBox vide

  • Initiateur de la discussion Initiateur de la discussion Appo1985
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Appo1985

XLDnaute Occasionnel
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.
 
Solution
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
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.
 
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
272
Réponses
13
Affichages
946
  • Question Question
Microsoft 365 Erreur TCD
Réponses
5
Affichages
548
Retour