Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Inputbox problème!!!

Inputbox problème!!!

3 réponses
Avatar
STEN83
Bonjour à tous,

J'ai un petit problème avec un inputbox si je ne rentre pas de donnée dans
le champ il me renvoi un message d'erreur. Pouvez-vous m'aider
voici le code:

Sub Appro()
Range("C1").Select
ActiveCell.Value = InputBox("Tapez le nombre de cartes" & Chr(13) _
& "que vous voulez ajouter au stock!" & Chr(13) _
& "Si vous voulez retirer des cartes mettre" & Chr(13) _
& "le signe - devant le chiffre.", "Approvisionnement") + Range("C1").Value

End Sub

--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrick Fredin
Bonjour,

A ta place, je mettrais le résultat de la saisie dans l'InputBox dans une
variable intermédiaire. S'il n'y a pas de saisie, tu mets 0 à la place sinon
tu utilises la valeur saisie.

--
Patrick

"STEN83" wrote in message
news:
Bonjour à tous,

J'ai un petit problème avec un inputbox si je ne rentre pas de donnée dans
le champ il me renvoi un message d'erreur. Pouvez-vous m'aider
voici le code:

Sub Appro()
Range("C1").Select
ActiveCell.Value = InputBox("Tapez le nombre de cartes" & Chr(13) _
& "que vous voulez ajouter au stock!" & Chr(13) _
& "Si vous voulez retirer des cartes mettre" & Chr(13) _
& "le signe - devant le chiffre.", "Approvisionnement") +
Range("C1").Value

End Sub

--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous


Avatar
LSteph
Bonjour Sten83,
..Aller voir fil Routine?!
-----

'***
Sub Appro()
Dim mval As Integer
On Error Resume Next
mval = InputBox("Tapez le nombre de cartes" & Chr(13) _
& "que vous voulez ajouter au stock!" & Chr(13) _
& "Si vous voulez retirer des cartes mettre" & Chr(13) _
& "le signe - devant le chiffre.", "Approvisionnement")
If IsEmpty(mval) Then Exit Sub

[C1] = [C1] + CInt(mval)
End Sub
'***

'lSteph
"STEN83" a écrit dans le message de news:

Bonjour à tous,

J'ai un petit problème avec un inputbox si je ne rentre pas de donnée dans
le champ il me renvoi un message d'erreur. Pouvez-vous m'aider
voici le code:

Sub Appro()
Range("C1").Select
ActiveCell.Value = InputBox("Tapez le nombre de cartes" & Chr(13) _
& "que vous voulez ajouter au stock!" & Chr(13) _
& "Si vous voulez retirer des cartes mettre" & Chr(13) _
& "le signe - devant le chiffre.", "Approvisionnement") +
Range("C1").Value

End Sub

--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous


Avatar
Quetzalcoatl
Bonsoir,

Je te propose :

Sub Appro()
Range("C1").Select
On Error Resume Next
ActiveCell.Value = InputBox("Tapez le nombre de cartes" & Chr(13) _
& "que vous voulez ajouter au stock!" & Chr(13) _
& "Si vous voulez retirer des cartes mettre" & Chr(13) _
& "le signe - devant le chiffre.", "Approvisionnement") + Range("C1").Value
On Error GoTo 0
End Sub

C'est un peu "bourin", mais bon...

si je ne rentre pas de donnée dans
le champ il me renvoi un message d'erreur. Pouvez-vous m'aider
--

Ila lika