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
papou
Bonjour Dim LaSaisie$ LaSaisie = Application.InputBox("Saisie Texte", "Quoi ?", , , , , , 2) Select Case Len(LaSaisie) Case Is < 10 MsgBox "la saisie comprend moins de 10 caractères" Case Else MsgBox "la saisie contient plus de 10 caractères" End Select
Cordialement Pascal
"Lepaic07" a écrit dans le message de news:
Je souhaite compter le nombre de caractères entré dans une InputBox par l'utilisateur.
Selon le nombre de caractère entré, une application ou une autre sera lancée.
Merci d'avance
Emilien
Bonjour
Dim LaSaisie$
LaSaisie = Application.InputBox("Saisie Texte", "Quoi ?", , , , , , 2)
Select Case Len(LaSaisie)
Case Is < 10
MsgBox "la saisie comprend moins de 10 caractères"
Case Else
MsgBox "la saisie contient plus de 10 caractères"
End Select
Cordialement
Pascal
"Lepaic07" <Lepaic07@discussions.microsoft.com> a écrit dans le message de
news: 812C48DA-3448-46AD-B451-59EEB6D8596F@microsoft.com...
Je souhaite compter le nombre de caractères entré dans une InputBox par
l'utilisateur.
Selon le nombre de caractère entré, une application ou une autre sera
lancée.
Bonjour Dim LaSaisie$ LaSaisie = Application.InputBox("Saisie Texte", "Quoi ?", , , , , , 2) Select Case Len(LaSaisie) Case Is < 10 MsgBox "la saisie comprend moins de 10 caractères" Case Else MsgBox "la saisie contient plus de 10 caractères" End Select
Cordialement Pascal
"Lepaic07" a écrit dans le message de news:
Je souhaite compter le nombre de caractères entré dans une InputBox par l'utilisateur.
Selon le nombre de caractère entré, une application ou une autre sera lancée.