> 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
219,67 €Lego 76218 Marvel Super Heroes Le Saint des Saints à 219,67 €
249,99 € -12%

Amazon fait une promotion sur le set Lego 76218 Marvel Super Heroes Le Saint des Saints qui passe à 219,67 € au lieu de 249,99 €. Cette maquette LEGO Marvel Avengers de la résidence emblématique du Docteur Strange comprend un bâtiment modulaire de 3 étages avec 4 façades, de nombreux détails du film et 9 minifigurines familières de l'univers cinématographique Marvel. 2708 pièces.


Voir l'offre
32,29 €Mini scie circulaire TECCPO 580W à 32,29 €
59,99 € -46%

Amazon fait une promotion sur la mini scie circulaire TECCPO 580W (profondeur de coupe réglable, max 27 mm) à 32,29 € au lieu de 59,99 €. La scie est livrée avec un adaptateur pour aspirateur, trois lames 85 mm (24 dents pour le bois, 44 dents pour métal et plastique et diamant pour couper du carrelage), un guide parallèle et une clé allen.


Voir l'offre
48,63 €Lego Star wars Casque Luke Skywalker (Red Five) 75327 à 48,63 € livré
54,99 € -12%

Amazon Allemagne fait une promotion sur le Casque Luke Skywalker (Red Five) 75327 qui passe à 42,98 €. Comptez 5,65 € pour la livraison en France soit un total de 48,63 € livré. On le trouve ailleurs à partir de 54,99 €. Cette reproduction du célèbre casque de pilote de Luke est le tout premier casque ouvert de la collection LEGO® Star Wars. Faites appel au Jedi en vous pour recréer ses détails authentiques, dont un micro et un rembourrage en briques, ainsi que sa visière rouge translucide. Le support intégré et la plaque ajoutent la touche finale à cette superbe pièce d’exposition.


Voir l'offre
10,55 €Calculatrice Casio FX92+ spéciale Collège à 10,55 € (via ODR et tickets Leclerc)
16,90 € -38%

Leclerc fait une promotion sur la calculatrice Casio FX92+ spéciale Collège qui passe à 16,55 €. Or le marchant reverse 3 € en tickets Leclerc et Casio rembourse 3 € pour l'achat de cette calculatrice qui vous reviendra au final à 10,55 €. Imbattable ! 


Voir l'offre

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