Syntaxe
Résolu
Bonjour,
simple problème de syntaxe
voilà ce qui me gêne :
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.
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
-
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 -
ModérateurB'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
-
Merci pijaku
J' en ai fait une fonction,il fallait que je place ça plusieurs fois.
Ca marche !
Bonne jornée
