Syntaxe [Résolu]

Signaler
-
Messages postés
12339
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 septembre 2020
-
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.

4 réponses

Messages postés
210
Date d'inscription
samedi 19 mars 2011
Statut
Membre
Dernière intervention
31 juillet 2020
42
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.
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
Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020
2 483
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


Cordialement,
Franck
Merci pijaku

J' en ai fait une fonction,il fallait que je place ça plusieurs fois.
Ca marche !

Bonne jornée
Messages postés
12339
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 septembre 2020
694
bonjour, peux-tu alors marquer la discussion comme résolue?