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

Réponses
10
Affichages
369
  • Question Question
Microsoft 365 macro vba sumifs
Réponses
5
Affichages
586
Réponses
12
Affichages
819
Retour