Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Erreur TextBox vide

Créer une discussion
  • 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 !

S'inscrire
A

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
Trier par date Trier par votes
 
Vote positif 0 Vote négatif
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:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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ésolu(e)
XL 2010 [RESOLU] Saisie Note via TextBox
2
Réponses
23
Affichages
440
job75
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
266
KRUG WOO
K
A
  • Question Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
859
aurelio.ewane
A
H
  • Question Question
Erreur de formule
Réponses
7
Affichages
272
Haine
H
P
  • Question Question
XL 2019 Bloquer la saisie dans une colonne sous condition
Réponses
1
Affichages
559
sylvanu
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
587
NONO14
N
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
958
ThierryP
T
S
  • Question Question
Microsoft 365 Bug Me.Controls dans mon Userform
Réponses
4
Affichages
477
Jacky67
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
376
AtTheOne
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
69 K
NONO14
N
P
  • Question Question
Microsoft 365 SetFocus sur le premier Texbox vide de la Frame
9 10 11
Réponses
150
Affichages
7 K
Piment
P
D
  • Résolu(e)
Microsoft 365 format grand nombre textbox
Réponses
13
Affichages
947
dadaze
D
A
  • Question Question
Microsoft 365 Erreur TCD
Réponses
5
Affichages
548
merinos-BernardEtang
C
  • Question Question
Autres bug sur une procédure avec textbox contenant un code barre
2
Réponses
15
Affichages
2 K
TooFatBoy
E
  • Résolu(e)
Microsoft 365 ListBox vers TextBox – Impossible de lire la propriété List. Argument non valide
Réponses
10
Affichages
688
ExcLnoob
E
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
416
AtTheOne
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
550
jeff1494
L
  • Question Question
XL 2016 Test si TextBox rempli par date correcte
2 3
Réponses
30
Affichages
2 K
Lorenzini
L
B
  • Question Question
XL pour MAC Erreur de compilation:Instruction incorrecte à l'extérieur d'une procédure
Réponses
7
Affichages
727
bobmusique
B
T
  • Résolu(e)
Microsoft 365 résolution erreur d'exécution 5 (argument ou appel de procédure incorrecte)
Réponses
9
Affichages
974
Hasco
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…