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
Pierre Fauconnier
Bonjour
If Int(Toto) = Toto Then MsgBox "Toto entier"
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Emcy" a écrit dans le message de news: %
Bonjours,
dim Toto As String Toto = inputBow("Tapez un nombre entiez : ")
comment faire pour savoir si toto est un nombre entier (pas un chiffre à virgule, pas du text) ?
Bonjour
If Int(Toto) = Toto Then MsgBox "Toto entier"
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de news:
%2370qzmXcFHA.3404@tk2msftngp13.phx.gbl...
Bonjours,
dim Toto As String
Toto = inputBow("Tapez un nombre entiez : ")
comment faire pour savoir si toto est un nombre entier (pas un chiffre à
virgule, pas du text) ?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Emcy" a écrit dans le message de news: %
Bonjours,
dim Toto As String Toto = inputBow("Tapez un nombre entiez : ")
comment faire pour savoir si toto est un nombre entier (pas un chiffre à virgule, pas du text) ?
Pierre Fauconnier
En complément ...
If IsNumeric(Toto) Then If Int(Toto) = Toto Then MsgBox "Toto entier" End If
pour éviter une erreur si toto n'est pas numérique
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Emcy" a écrit dans le message de news: %
Bonjours,
dim Toto As String Toto = inputBow("Tapez un nombre entiez : ")
comment faire pour savoir si toto est un nombre entier (pas un chiffre à virgule, pas du text) ?
En complément ...
If IsNumeric(Toto) Then
If Int(Toto) = Toto Then MsgBox "Toto entier"
End If
pour éviter une erreur si toto n'est pas numérique
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de news:
%2370qzmXcFHA.3404@tk2msftngp13.phx.gbl...
Bonjours,
dim Toto As String
Toto = inputBow("Tapez un nombre entiez : ")
comment faire pour savoir si toto est un nombre entier (pas un chiffre à
virgule, pas du text) ?
If IsNumeric(Toto) Then If Int(Toto) = Toto Then MsgBox "Toto entier" End If
pour éviter une erreur si toto n'est pas numérique
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Emcy" a écrit dans le message de news: %
Bonjours,
dim Toto As String Toto = inputBow("Tapez un nombre entiez : ")
comment faire pour savoir si toto est un nombre entier (pas un chiffre à virgule, pas du text) ?
ChrisV
Bonjour Emcy,
Sub zaza() Dim rep Do rep = Application.InputBox("Saisissez un nombre entier:", _ "MPFE...", , , , , , 1) Loop Until rep = Int(rep) End Sub
ChrisV
"Emcy" a écrit dans le message de news: %
Bonjours,
dim Toto As String Toto = inputBow("Tapez un nombre entiez : ")
comment faire pour savoir si toto est un nombre entier (pas un chiffre à virgule, pas du text) ?
Bonjour Emcy,
Sub zaza()
Dim rep
Do
rep = Application.InputBox("Saisissez un nombre entier:", _
"MPFE...", , , , , , 1)
Loop Until rep = Int(rep)
End Sub
ChrisV
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de news:
%2370qzmXcFHA.3404@tk2msftngp13.phx.gbl...
Bonjours,
dim Toto As String
Toto = inputBow("Tapez un nombre entiez : ")
comment faire pour savoir si toto est un nombre entier (pas un chiffre à
virgule, pas du text) ?