Istext

blalaa Messages postés 171 Statut Membre -  
blalaa Messages postés 171 Statut Membre -
Bonjour,

il y a cette condition

if not isnumeric(range("a1") then
msgbox "veuillez introduire une valeur numerique "
else
'il va exucuter le programme
end if

dans mon cas je voudrai mettre cette condition mais pas pour une valeur
c'est pour un texte " coude arondi"

if not is...........(range("a1")) then
msgbox "veuillez selectionner un texte"
else
'il va exucuter le programme
end if

alors je connais pas comment m'y prendre

si qulqun peut maider merci

4 réponses

  1. jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
     
    Bonjour,

    Si tu veux tester si c'est du texte ( et non un nombre comme dans ton autre code)
    tu peux utiliser
    if WorksheetFunction.IsText(valeuraverifier) Then
    

    https://docs.microsoft.com/fr-FR/office/vba/api/Excel.WorksheetFunction.IsText

    1
    1. blalaa Messages postés 171 Statut Membre
       
      bonjour

      AU fait je lai teste mais comme ca

      If Not WorksheetFunction.IsText(TextBox1.Value) Then
      MsgBox "ce nest pas un text "

      Else
      Range("a1") = TextBox1.Value
      End If

      ce que je veux si textebox1 nest pas un text le msgbox va mafficher ce message "ce nest pas un text "

      si le textbox1 est remplis par un text le range("a1") = au text qui dans textbox1

      le probleme c que meme si c un nombre qui dans textbox1 le programe sexcutera (range("a1")= le nombre

      alors que moi je veux que le programme sexcutera que si textbox1 est un text
      si c un nombre ou vide c le MsgBox "ce nest pas un text " qui doit safficher
      0
  2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Si la TextBox est remplie par la combobox qui contient uniquement du texte, je ne vois pas pourquoi tester si c'est du texte!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    1
    1. blalaa Messages postés 171 Statut Membre
       
      au fait c ou cas ou jai oublie de cliquer sur combox
      dans ce cas la textbox reste vide et c la que le programme va entrer

      merci
      0
    2. blalaa Messages postés 171 Statut Membre
       
      jespere que vous avez compris ce que je voudrais faire
      0
    3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      If TextBox1 <> "" Then  'test si textbox pas vide
          Range("a1") = TextBox1.Value
      Else
          MsgBox "veuillez selectionner un texte"
      End If
      0
    4. blalaa Messages postés 171 Statut Membre
       
      re

      merci beaucoup
      0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Plutot vague votre demande!!!!

    c'est pour un texte " coude arondi"
    Que ce texte ou des autres possibles????
    0
    1. blalaa Messages postés 171 Statut Membre
       
      bonjour

      Bonjour
      jai cree userform
      dans cette userform il ya des texbox
      textebox.value=ComboBox1.value

      donc textbox1 prend toujours ce qui est dans combox1

      et combox1 je lai charge avec : "coude arrondi" et "coude brusque"

      alors le textbox1 va prendre soit "coude arrondi" ou"coude brusque"

      ce que je veux c

      quand le textbox1 est vide (ca veut dire que je pas choisi dans combox1 ) le programe ne va pas sexcuter

      voila tout

      si cetait un nombre
      on met : isnumeric(....)

      mais pour le text je ne sais pas

      merci
      0
  4. blalaa Messages postés 171 Statut Membre
     
    Bonjour
    jai pas trop compris surtou

    worksheetfunction ???
    POUR quoi

    merci
    0
    1. blalaa Messages postés 171 Statut Membre
       
      a
      0
    2. jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
       
      Car c'est la syntaxe...
      0
    3. blalaa Messages postés 171 Statut Membre
       
      ok merci
      0