Syntaxe Résolu/Fermé

Question

Bonjour, 
simple problème de syntaxe 
 voilà ce qui me gêne :

For Each TextBox In Form1
  If Left(TextBox, 1) = Chr(65) Then
  M = MsgBox("lili") '' ceci est  un essai
  End If
 Next

comment ajouter dans la ligne 2 tout les autres chr qui m'interresse sans avoir à répéter  toute 
le début de la ligne :  If Left(TextBox, 1) = Chr(x) or if left............=chr(y) or...... etc ?
Merci de m'aider,jesuis débutant.

Fulsten · Answer

Bonjour,

Si les nombres se suivent (Chr(65) , Chr(66), ...) il est possible de borner via >= et <=.
Autrement, telle quelle, je ne vois pas de solution pour faciliter l'écriture. Peut être voir plutôt du coté de la conception.

LULU · Answer

Malheureusement les chiffres ne se suivent pas.
Je cherchais simplement de la concision pour la Lecture/Relecture du code.
Quand à l'aspect conception je vais y réfléchir.

Merci de ton info

pijaku · Answer

B'jour,
En boucle...
Const IndicesTextB As String = "12:15:19:64:457"
Dim i As Integer, Ind As Variant
    Ind = Split(IndicesTextB, ":")
    For Each TextBox In Form1
        For i = 0 To UBound(Ind)
            If Left(TextBox, 1) = Chr(Ind(i)) Then
                M = MsgBox("lili") '' ceci est  un essai
            End If
        Next
    Next

LULU · Answer

Merci pijaku

J' en ai fait une fonction,il fallait que je  place ça plusieurs fois.
 Ca marche  !

Bonne jornée

Syntaxe

4 réponses

Discussions similaires