Discussion :

[moi_218]

Bonjour à tous !

J'ai un problème avec une variable Integer.

Mon code déclaration de variable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'Stock réel
Dim stk_reel As Integer
    stk_reel = TextBox_stk_reel.Value

Le problème est quand je remplie pas le textbox le code erreur 13 "Incompatibilité de type) apparait.

Quand j'utilise la variable dans un msgbox avec le champ remplie la ligne du msgbox se met en erreur.

J'ai tester les Fonction NZ(textbox_stk_reel, 0) ou le SIERREUR ou IFERROR mais rien a faire.

Mais mes variables en String fonctionne parfaitement marche bien.

La valeur de la variable est rentrée dans une cellules excel et cette partie marche bien la valeur est bien rentrée si je remplie le champ si je laisse le champ l'erreur apparait.

Donc si toute fois vous avez des idées pour m'aider je suis chaud

Merci d'avance !

[ARTURO83]

Bonjour,

Essayez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

stk_reel = TextBox_stk_reel.Value * 1

Cdlt

[moi_218]

Merci pour ta réponse mais sa ne marche pas :/ Toujours le même message d'erreur

[galopin01]

bonjour,
une possibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

stk_reel = iif(TextBox_stk_reel <> "", Val(TextBox_stk_reel), 0)

A+

[moi_218]

Merci pour ta réponse !

On avance maintenant quand le champ est vide il n'y a plus de message d'erreur !

Mais bon sa aurais trop simple si c'était déjà fini !

Maintenant le message d'erreur ce met dans l'affichage de mon MsgBox qui utilise les variables.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

reponse = MsgBox("Voulez vous créer la référence suivante :" & Chr(13) & Chr(10) & "Référence diapason : " + ref_diap & Chr(13) & Chr(10) & "Référence fournisseur : " + ref_four & Chr(13) & Chr(10) & "Stock minimum : " + stk_mini & Chr(13) & Chr(10) & "Stock réel : " + stk_reel & Chr(13) & Chr(10) & "Prix : " + prix & Chr(13) & Chr(10) & "Catégorie : " + categorie & Chr(13) & Chr(10) & "Emplacement : " + emp & Chr(13) & Chr(10) & "Fournisseur : " + fourni, vbYesNo + vbQuestion + vbApplicationModal, "Création de référence ")

Voila le code du message les variables utiliser sont en rouge.
Mais quand a la place des variables j'utilise la valeur du textbox genre Textbox_stk_reel.Value le message ne bug.
Alors dans le pires des cas je vais faire sa mais bon relou quand meme ... Donc si vous avez des solutions sinon je ferais comme ca.

[ARTURO83]

Bonjour,

Remplacez le signe + par &

Cdlt