Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

While...Wend et OU logique

  • Initiateur de la discussion Initiateur de la discussion Risleure
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Risleure

XLDnaute Occasionnel
Bonjour le Forum

Je souhaite appliquer un "OU" logique sur une boucle While .... Wend et je n'y arrive pas.
Mon but est de savoir si le caractère "#" est présent dans une chaine de caractère. Pour cela j'examine cette chaine caractère par caractère avec le pointeur i qui est décrémenté à chaque tour.
Donc si ce caractère est présent, je sors de la boucle et i m'indique la position de ce caractère dans la chaine.
Si ce caractère n'est pas présent donc i = 0, je passe à une autre chaine.

Que j'ai traduit par

i = Len (MaChaine)
While Mid(MaChaine, i , 1) <> # Or i = 0
....
i = i -1
Wend

Mais il me semble que je je ne teste jamais la valeur de i à l'entrée de la boucle.
J'ai tenté deux boucles While ... Wend imbriquées sans plus de succés. NB MaChaine est un nom de fichier dans un répertoire et j'examine tout le répertoire.

Merci d'avance
 
Re : While...Wend et OU logique

Bonjour,

pour que le test soit logique il faudrait écrire

Tant que Mid(MaChaine, i , 1) <> "#" et i <> 0

mais le mid va se planter lorsque i prendra la valeur 0

Il faut tester la valeur de i dans la boucle

Do While Mid(MaChaine, i, 1) <> "a"
i = i - 1
If i = 0 Then Exit Do
Loop


mais dans l'exemple

pour rechercher la présence d'un caractère on peut utiliser

P = InStr(machaine, "#")
p=0 si pas trouvé sinon donne la position de P

Eh voila

GIBI
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 macro vba sumifs
Réponses
5
Affichages
595
Réponses
12
Affichages
827
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…