> Tous les forums > Forum Bureautique
 Eviter message d'erreur si textbox videSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Lui
  Posté le 01/11/2014 @ 14:31 
Aller en bas de la page 
Astucien

Bonjour,

Mes textbox contiennent des nombres
Mais quand ils sont copiés dans les cellules de la feuille, il sont au format texte, même en formatant les cellules
J'ai donc ajouté Clng ---> Range("A" & L).Value = CLng(TextBox1)

Et là ça marche, les valeurs sont bien au format nombre.

Mais cela m'a créé un nouveau problème, si la textbox est vide, j'ai un message d'erreur
et je ne sait pas comment faire pour l'éviter

Merci pour votre aide

Je joins le fichier
http://www.cjoint.com/14nv/DKboJTSt0jN.htm

Publicité
gilbert_rgi
 Posté le 01/11/2014 à 16:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir,

Private Sub CommandButton1_Click()
On Error Resume Next
etc.....

doit faire la demande

ou faites un contrôle des textbox au moment du click



Modifié par gilbert_rgi le 01/11/2014 16:49
Lui
 Posté le 01/11/2014 à 19:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

gilbert_rgi a écrit :

Bonsoir,

Private Sub CommandButton1_Click()
On Error Resume Next
etc.....

doit faire la demande

ou faites un contrôle des textbox au moment du click

Merci beaucoup !

Ça marche avec on error resume next !

@+

Mytå
 Posté le 02/11/2014 à 16:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut le Forum

Il est préférable de contrôler la saisie que d'utiliser le On Error Resume Next

If IsNumeric(TextBox1.Value) Then Range("A" & L).Value = CLng(TextBox1)

If IsNumeric(TextBox2.Value) Then Range("B" & L).Value = CLng(TextBox2)

Mytå

Lui
 Posté le 03/11/2014 à 12:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Mytå a écrit :

Salut le Forum

Il est préférable de contrôler la saisie que d'utiliser le On Error Resume Next

If IsNumeric(TextBox1.Value) Then Range("A" & L).Value = CLng(TextBox1)

If IsNumeric(TextBox2.Value) Then Range("B" & L).Value = CLng(TextBox2)

Mytå

Hello,

ça marche bien aussi, bonne journée !

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Les soldes d'été 2025
-1 -%
@Amazon
Amazon Prime Day : 200 000 articles en promotion. Dernier jour !
-1 -%
@Amazon
Volant Logitech G29 Driving Force + levier de vitesse pour PC, PS3, PS4, PS5
194,99 € 259 € -25%
@Cdiscount
Disque dur Seagate NAS Iron Wolf 12 To + 3 ans Service Rescue
250,99 € 320 € -22%
@Cdiscount
Ecran PC incurvé 49 pouces Titan Army C49SHC (DFHD, PiP, USB C, 144 Hz)
549,99 € 750 € -27%
@Geekbuying
Souris filaire Logitech G203 LightSync
22,95 € 30,50 € -25%
@Amazon

Sujets relatifs
freefilesync : message d'erreur
message d'erreur au secours
message d'erreur C:WindowsTempVAIO Care Rescue Tool.vbs
Message d'erreur dans Outlook 2007
Message d'erreur windows dans office 2003
Créer un message d'erreur sous excel 2007
Message erreur à l'ouverture de Flash Player
Word, message d'erreur étrange à l'ouverture d'un document
comment retrouver le nom originel des feuilles suite à un message d'erreur
Message d'erreur sécurisée, WLM
Plus de sujets relatifs à Eviter message d''erreur si textbox vide
 > Tous les forums > Forum Bureautique