Bonjour,
je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique.
Merci Beaucoup
Alpha
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
Starwing
salut Sylvie, oui avec deux procédure évenementielles :
Public fl As Boolean Private Sub telephone_Change() 'format téléphone à 14 caractères nn nn nn nn nn Dim l As Integer l = Len(Me.telephone.Value) If fl Then fl = False If l = 2 Or l = 5 Or l = 8 Or l = 11 Then Me.telephone.Value = Me.telephone.Value & " " End If End If End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) fl = True End Sub
Pascal Engelmajer
-----Message d'origine----- Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
.
salut Sylvie,
oui avec deux procédure évenementielles :
Public fl As Boolean
Private Sub telephone_Change()
'format téléphone à 14 caractères nn nn nn nn nn
Dim l As Integer
l = Len(Me.telephone.Value)
If fl Then
fl = False
If l = 2 Or l = 5 Or l = 8 Or l = 11 Then
Me.telephone.Value = Me.telephone.Value & " "
End If
End If
End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
fl = True
End Sub
Pascal Engelmajer
-----Message d'origine-----
Bonjour,
je souhaite créer une inputbox, qui envoie sa valeur dans
une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas
numérique, un msgbox
salut Sylvie, oui avec deux procédure évenementielles :
Public fl As Boolean Private Sub telephone_Change() 'format téléphone à 14 caractères nn nn nn nn nn Dim l As Integer l = Len(Me.telephone.Value) If fl Then fl = False If l = 2 Or l = 5 Or l = 8 Or l = 11 Then Me.telephone.Value = Me.telephone.Value & " " End If End If End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) fl = True End Sub
Pascal Engelmajer
-----Message d'origine----- Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
.
ru-th
Salut
Sub test() rep = InputBox("Saisissez un nombre") If IsNumeric(rep) Then [A1] = rep Else MsgBox "Pas un nombre !" End If End Sub
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Alpha" a écrit dans le message de news: #
Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1, mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
Salut
Sub test()
rep = InputBox("Saisissez un nombre")
If IsNumeric(rep) Then
[A1] = rep
Else
MsgBox "Pas un nombre !"
End If
End Sub
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:
#yGD4IOxDHA.3216@TK2MSFTNGP11.phx.gbl...
Bonjour,
je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un
msgbox
Sub test() rep = InputBox("Saisissez un nombre") If IsNumeric(rep) Then [A1] = rep Else MsgBox "Pas un nombre !" End If End Sub
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Alpha" a écrit dans le message de news: #
Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1, mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
sabatier
je crains qu'alpha ne sache pas trop quoi faire de cette réponse plutôt destinée à sylvie mais bon...pascal a ses raisons que la raison ne connaît pas... jps
Starwing wrote:
salut Sylvie, oui avec deux procédure évenementielles :
Public fl As Boolean Private Sub telephone_Change() 'format téléphone à 14 caractères nn nn nn nn nn Dim l As Integer l = Len(Me.telephone.Value) If fl Then fl = False If l = 2 Or l = 5 Or l = 8 Or l = 11 Then Me.telephone.Value = Me.telephone.Value & " " End If End If End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) fl = True End Sub
Pascal Engelmajer
-----Message d'origine----- Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
.
je crains qu'alpha ne sache pas trop quoi faire de cette réponse plutôt
destinée à sylvie mais bon...pascal a ses raisons que la raison ne
connaît pas...
jps
Starwing wrote:
salut Sylvie,
oui avec deux procédure évenementielles :
Public fl As Boolean
Private Sub telephone_Change()
'format téléphone à 14 caractères nn nn nn nn nn
Dim l As Integer
l = Len(Me.telephone.Value)
If fl Then
fl = False
If l = 2 Or l = 5 Or l = 8 Or l = 11 Then
Me.telephone.Value = Me.telephone.Value & " "
End If
End If
End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
fl = True
End Sub
Pascal Engelmajer
-----Message d'origine-----
Bonjour,
je souhaite créer une inputbox, qui envoie sa valeur dans
une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas
numérique, un msgbox
je crains qu'alpha ne sache pas trop quoi faire de cette réponse plutôt destinée à sylvie mais bon...pascal a ses raisons que la raison ne connaît pas... jps
Starwing wrote:
salut Sylvie, oui avec deux procédure évenementielles :
Public fl As Boolean Private Sub telephone_Change() 'format téléphone à 14 caractères nn nn nn nn nn Dim l As Integer l = Len(Me.telephone.Value) If fl Then fl = False If l = 2 Or l = 5 Or l = 8 Or l = 11 Then Me.telephone.Value = Me.telephone.Value & " " End If End If End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) fl = True End Sub
Pascal Engelmajer
-----Message d'origine----- Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
.
ru-th
ne fais pas le bêta, Pascal voulait le numéro de téléphone de sylvie ! je sais , à ton époque on s'échangeait son adresse par voie de malle poste qui arrivait avec diligence ! a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"sabatier" a écrit dans le message de news:
je crains qu'alpha ne sache pas trop quoi faire de cette réponse plutôt destinée à sylvie mais bon...pascal a ses raisons que la raison ne connaît pas... jps
Starwing wrote:
salut Sylvie, oui avec deux procédure évenementielles :
Public fl As Boolean Private Sub telephone_Change() 'format téléphone à 14 caractères nn nn nn nn nn Dim l As Integer l = Len(Me.telephone.Value) If fl Then fl = False If l = 2 Or l = 5 Or l = 8 Or l = 11 Then Me.telephone.Value = Me.telephone.Value & " " End If End If End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) fl = True End Sub
Pascal Engelmajer
-----Message d'origine----- Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
.
ne fais pas le bêta,
Pascal voulait le numéro de téléphone de sylvie !
je sais , à ton époque on s'échangeait son adresse par voie de malle poste
qui arrivait avec diligence !
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3FE0EAC9.D6751947@wanadoo.fr...
je crains qu'alpha ne sache pas trop quoi faire de cette réponse plutôt
destinée à sylvie mais bon...pascal a ses raisons que la raison ne
connaît pas...
jps
Starwing wrote:
salut Sylvie,
oui avec deux procédure évenementielles :
Public fl As Boolean
Private Sub telephone_Change()
'format téléphone à 14 caractères nn nn nn nn nn
Dim l As Integer
l = Len(Me.telephone.Value)
If fl Then
fl = False
If l = 2 Or l = 5 Or l = 8 Or l = 11 Then
Me.telephone.Value = Me.telephone.Value & " "
End If
End If
End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
fl = True
End Sub
Pascal Engelmajer
-----Message d'origine-----
Bonjour,
je souhaite créer une inputbox, qui envoie sa valeur dans
une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas
numérique, un msgbox
ne fais pas le bêta, Pascal voulait le numéro de téléphone de sylvie ! je sais , à ton époque on s'échangeait son adresse par voie de malle poste qui arrivait avec diligence ! a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"sabatier" a écrit dans le message de news:
je crains qu'alpha ne sache pas trop quoi faire de cette réponse plutôt destinée à sylvie mais bon...pascal a ses raisons que la raison ne connaît pas... jps
Starwing wrote:
salut Sylvie, oui avec deux procédure évenementielles :
Public fl As Boolean Private Sub telephone_Change() 'format téléphone à 14 caractères nn nn nn nn nn Dim l As Integer l = Len(Me.telephone.Value) If fl Then fl = False If l = 2 Or l = 5 Or l = 8 Or l = 11 Then Me.telephone.Value = Me.telephone.Value & " " End If End If End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) fl = True End Sub
Pascal Engelmajer
-----Message d'origine----- Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
.
michdenis
Bonsoir Alpha,
'------------------ Sub Saisir()
Dim Rep As Variant Rep = Application.InputBox("Votre nombre?", , , , , , , 1) If Rep = "Faux" Then Exit Sub Range("A1") = Rep
End Sub '------------------
Salutations!
"Alpha" a écrit dans le message de news:% Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1, mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox l'indique. Merci Beaucoup Alpha
Bonsoir Alpha,
'------------------
Sub Saisir()
Dim Rep As Variant
Rep = Application.InputBox("Votre nombre?", , , , , , , 1)
If Rep = "Faux" Then Exit Sub
Range("A1") = Rep
End Sub
'------------------
Salutations!
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de news:%23yGD4IOxDHA.3216@TK2MSFTNGP11.phx.gbl...
Bonjour,
je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique.
Merci Beaucoup
Alpha
Dim Rep As Variant Rep = Application.InputBox("Votre nombre?", , , , , , , 1) If Rep = "Faux" Then Exit Sub Range("A1") = Rep
End Sub '------------------
Salutations!
"Alpha" a écrit dans le message de news:% Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1, mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox l'indique. Merci Beaucoup Alpha
SylvieB
Bonjour,
J'ai consulté ton message, l'ai essayé :
il fonctionne très bien : il n'y a aucun problème de zéro non significatif. Merci encore
Sylvie
-----Message d'origine----- salut Sylvie, oui avec deux procédure évenementielles :
Public fl As Boolean Private Sub telephone_Change() 'format téléphone à 14 caractères nn nn nn nn nn Dim l As Integer l = Len(Me.telephone.Value) If fl Then fl = False If l = 2 Or l = 5 Or l = 8 Or l = 11 Then Me.telephone.Value = Me.telephone.Value & " " End If End If End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) fl = True End Sub
Pascal Engelmajer
-----Message d'origine----- Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans
une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
.
.
Bonjour,
J'ai consulté ton message, l'ai essayé :
il fonctionne très bien : il n'y a aucun problème
de zéro non significatif. Merci encore
Sylvie
-----Message d'origine-----
salut Sylvie,
oui avec deux procédure évenementielles :
Public fl As Boolean
Private Sub telephone_Change()
'format téléphone à 14 caractères nn nn nn nn nn
Dim l As Integer
l = Len(Me.telephone.Value)
If fl Then
fl = False
If l = 2 Or l = 5 Or l = 8 Or l = 11 Then
Me.telephone.Value = Me.telephone.Value & " "
End If
End If
End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
fl = True
End Sub
Pascal Engelmajer
-----Message d'origine-----
Bonjour,
je souhaite créer une inputbox, qui envoie sa valeur
dans
une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas
numérique, un msgbox
il fonctionne très bien : il n'y a aucun problème de zéro non significatif. Merci encore
Sylvie
-----Message d'origine----- salut Sylvie, oui avec deux procédure évenementielles :
Public fl As Boolean Private Sub telephone_Change() 'format téléphone à 14 caractères nn nn nn nn nn Dim l As Integer l = Len(Me.telephone.Value) If fl Then fl = False If l = 2 Or l = 5 Or l = 8 Or l = 11 Then Me.telephone.Value = Me.telephone.Value & " " End If End If End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) fl = True End Sub
Pascal Engelmajer
-----Message d'origine----- Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans
une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
.
.
Ellimac
Bonjour,
Ne vaudrait-il pas mieux utiliser une boucle While, car en cas d'erreur il n'y aura pas de redemande :
deb: rep = InputBox("le nb") While Not IsNumeric(rep) GoTo deb Wend Range("d7") = CDbl(rep)
Camille
-----Message d'origine----- Salut
Sub test() rep = InputBox("Saisissez un nombre") If IsNumeric(rep) Then [A1] = rep Else MsgBox "Pas un nombre !" End If End Sub
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Alpha" a écrit dans le message de news:
#
Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un
msgbox
l'indique. Merci Beaucoup Alpha
.
Bonjour,
Ne vaudrait-il pas mieux utiliser une boucle While, car en
cas d'erreur il n'y aura pas de redemande :
deb: rep = InputBox("le nb")
While Not IsNumeric(rep)
GoTo deb
Wend
Range("d7") = CDbl(rep)
Camille
-----Message d'origine-----
Salut
Sub test()
rep = InputBox("Saisissez un nombre")
If IsNumeric(rep) Then
[A1] = rep
Else
MsgBox "Pas un nombre !"
End If
End Sub
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Alpha" <Alpha@ducentaure.fr> a écrit dans le message de
news:
#yGD4IOxDHA.3216@TK2MSFTNGP11.phx.gbl...
Bonjour,
je souhaite créer une inputbox, qui envoie sa valeur
dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas
numérique, un
"Ellimac" a écrit dans le message de news: 06e401c3c544$2d39b330$ Bonjour,
Ne vaudrait-il pas mieux utiliser une boucle While, car en cas d'erreur il n'y aura pas de redemande :
deb: rep = InputBox("le nb") While Not IsNumeric(rep) GoTo deb Wend Range("d7") = CDbl(rep)
Camille
-----Message d'origine----- Salut
Sub test() rep = InputBox("Saisissez un nombre") If IsNumeric(rep) Then [A1] = rep Else MsgBox "Pas un nombre !" End If End Sub
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Alpha" a écrit dans le message de news:
#
Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un
msgbox
l'indique. Merci Beaucoup Alpha
.
sabatier
:-)))))) jps
ru-th wrote:
ne fais pas le bêta, Pascal voulait le numéro de téléphone de sylvie ! je sais , à ton époque on s'échangeait son adresse par voie de malle poste qui arrivait avec diligence ! a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"sabatier" a écrit dans le message de news:
je crains qu'alpha ne sache pas trop quoi faire de cette réponse plutôt destinée à sylvie mais bon...pascal a ses raisons que la raison ne connaît pas... jps
Starwing wrote:
salut Sylvie, oui avec deux procédure évenementielles :
Public fl As Boolean Private Sub telephone_Change() 'format téléphone à 14 caractères nn nn nn nn nn Dim l As Integer l = Len(Me.telephone.Value) If fl Then fl = False If l = 2 Or l = 5 Or l = 8 Or l = 11 Then Me.telephone.Value = Me.telephone.Value & " " End If End If End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) fl = True End Sub
Pascal Engelmajer
-----Message d'origine----- Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
l'indique. Merci Beaucoup Alpha
.
:-))))))
jps
ru-th wrote:
ne fais pas le bêta,
Pascal voulait le numéro de téléphone de sylvie !
je sais , à ton époque on s'échangeait son adresse par voie de malle poste
qui arrivait avec diligence !
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3FE0EAC9.D6751947@wanadoo.fr...
je crains qu'alpha ne sache pas trop quoi faire de cette réponse plutôt
destinée à sylvie mais bon...pascal a ses raisons que la raison ne
connaît pas...
jps
Starwing wrote:
salut Sylvie,
oui avec deux procédure évenementielles :
Public fl As Boolean
Private Sub telephone_Change()
'format téléphone à 14 caractères nn nn nn nn nn
Dim l As Integer
l = Len(Me.telephone.Value)
If fl Then
fl = False
If l = 2 Or l = 5 Or l = 8 Or l = 11 Then
Me.telephone.Value = Me.telephone.Value & " "
End If
End If
End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
fl = True
End Sub
Pascal Engelmajer
-----Message d'origine-----
Bonjour,
je souhaite créer une inputbox, qui envoie sa valeur dans
une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas
numérique, un msgbox
ne fais pas le bêta, Pascal voulait le numéro de téléphone de sylvie ! je sais , à ton époque on s'échangeait son adresse par voie de malle poste qui arrivait avec diligence ! a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"sabatier" a écrit dans le message de news:
je crains qu'alpha ne sache pas trop quoi faire de cette réponse plutôt destinée à sylvie mais bon...pascal a ses raisons que la raison ne connaît pas... jps
Starwing wrote:
salut Sylvie, oui avec deux procédure évenementielles :
Public fl As Boolean Private Sub telephone_Change() 'format téléphone à 14 caractères nn nn nn nn nn Dim l As Integer l = Len(Me.telephone.Value) If fl Then fl = False If l = 2 Or l = 5 Or l = 8 Or l = 11 Then Me.telephone.Value = Me.telephone.Value & " " End If End If End Sub
Private Sub telephone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) fl = True End Sub
Pascal Engelmajer
-----Message d'origine----- Bonjour, je souhaite créer une inputbox, qui envoie sa valeur dans une cellule A1,
mais que si la valeur saisie dans l'inputbox n'est pas numérique, un msgbox
