Syntaxe

Résolu
LULU -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 4
Fulsten Messages postés 214 Date d'inscription   Statut Membre Dernière intervention   55
 
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.
1
Réponse 2 / 4
LULU
 
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
1
Réponse 3 / 4
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
1
Réponse 4 / 4
LULU
 
Merci pijaku

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

Bonne jornée
1
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
bonjour, peux-tu alors marquer la discussion comme résolue?
0

Discussions similaires

syntaxe du mot de passe
Cécile -
Chris 94 -

3 réponses
Erreurs cachées dans fichiers texte .txt
lativ -
lativ -

8 réponses
Accès Documents La syntaxe du fichier, de répertoire ou de volume est incorrecte
le hurlu -
pistouri -

10 réponses
Fichier .txt corrompu
CARISEY -
bazfile -

19 réponses
PHP Rechercher mot dans txt et supprimer
nicooo -
Nicooo -

14 réponses