stoper une boucle do - loopRésolu

Question

salut 
Je travail sur word vba
je n'arrive pas a stoper ma boucle do.
La derniere ligne de ma page word o&#249; ma boucle doit normalement sortir est un "saut de ligne", et je n'arrive pas a lui faire reconnaitre pour sortir.

voici un bout de mon code :
....
Do While Selection.Range <> "^l" ' sortir lorsqu'il y a le saut de ligne
....
Loop
...

"^l" Correspond au saut de ligne que word donne dans les caracteres speciaux de rechercher et remplacer par.
mais ne le lis pas comme un saut de ligne et ne stop pas ma boucle.
Que dois je mettre dans les guillemes pour stopper ma boucle???
merci de votre aide

MANUANTIBES

Mikaels35 · Accepted Answer

Ce ne serait pas CHR(13) le saut de ligne (ligne suivante)?
CHR(10) est le retour en d&#233;but de ligne (m&#234;me ligne)!
En principe on met toujours ODh, OAh en fin de ligne pour aller &#224; la ligne suivante et en d&#233;but de ligne !

cs_moustachu · Answer

Selection.Range.text peut &#234;tre ?

++
Moustachu

cs_wape · Answer

Bonjour,

Essaye &#233;ventuellement avec :

Selection.Range <> Chr(11)

wape

le5ejumeau · Answer

c'est pas plut&#244;t chr(10) le saut de ligne ???

cs_MasterHack · Answer

salut pour sortir d'une boucle do loop utilise "exit do"

Life is short...Learn more Copy Rights <> Rights to Copy

le5ejumeau · Answer

pas la peine de faire un exit for dans ce cas car il utilise un while : faire la boucle temps que la condition est rempli

cs_MasterHack · Answer

exit for qui a dis ça !! o_O

Life is short...Learn more Copy Rights <> Rights to Copy

le5ejumeau · Answer

dsl 
 je recomence ma phrase pas la peine de faire un exit do &#224; cause du while ....

le5ejumeau · Answer

oui tu as raison 0Ah : line feed
                           0Dh : cariage return
mais c'est bizzard lorsque je fais un 
msgbox "Untruc" & chr(10) & "UNautreTruc
ca fait la meme chose  que 
msgbox "Untruc" & chr(13) & "UNautreTruc
????

Mikaels35 · Answer

Peut &#234;tre que VB interpr&#232;te &#231;a comme un VbCrLf  dans les deux cas !

Renfield · Answer

VB n'interprete pas.... VbCrLf (ou VbNewline ^^) c'est simplement VbCr & VbLf .... Chr$(13) & Chr$(10)
faites le tes, vous constaterez que Word utilise Chr$(13)

Le probleme, je pense est que ta boucle (le Selection.Range) ne contient pas qu'un caract&#232;re.... (une ligne ?)
donc, la sortie n'est pas faite...

J'ignore si ma solution pourra t'aider, mais j'ai fait ca...

(Doc est de type Word.Document)

Dim ExtractedWord As Word.Range
Dim i As Integer
    List1.Clear
    i = 1
    Set ExtractedWord = Doc.Words(i)    Do Until i >Doc.Words.Count Or ExtractedWord.Text Chr(13) '# VbCr
        '# attention, ici, tu manipule les mots, un par un ^^
        '# Ici, je les affiche dans un ListBox....
        List1.AddItem ExtractedWord.Text
        
        i = i + 1
        Set ExtractedWord = Doc.Words(i)
    Loop

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

ManuAntibes · Answer

Salut &#224; tous 

merci pour toutes ces reponses

j'ai mis CHR(13)

Do While Selection.Range <> Chr(13)

loop

et &#231;a a march&#233; encore merci 

A+

MANUANTIBES

Stoper une boucle do -> loop

12 réponses

Discussions similaires