Discussion :

[Vins75]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
occurence = InStr(1, str_temp, " ")
        iOldOccurence = 0
        'On recherche les espaces pour mettre à la ligne (ne fonctionne qu'avec les code LCDV et EC name, voir commment faire pour les futures formules)
        While occurence > 0
            str_temp = Mid(str_temp, 1, occurence - 1) & Chr(10) & Mid(str_temp, occurence + 1)
            iOldOccurence = occurence
            occurence = InStr(1, str_temp, " ")
            'Vérification qu'il n'y ai pas plusieurs espace à la suite
            While occurence = iOldOccurence + 1
                str_temp = Mid(str_temp, 1, occurence - 2) & Mid(str_temp, occurence)
                iOldOccurence = occurence
                occurence = InStr(1, str_temp, " ")
            Wend
        Wend
 
        bConjonction_OR_Trouve = False
 
        tab_str_temp = Split(str_temp, Chr(10))

Bonjour, le code ci dessous qui me fait un retour à la ligne, à chaque espace,
par exemple dans ma cellule j'ai :
(JAPON ET CHINE) OU (FRANCE ET ESPAGNE)
le code va me renvoyer:

(JAPON
ET
CHINE)
OU
(FRANCE
ET
ESPAGNE)

Ma question est simple au lieu de travailler sur des espace dans le code j'aimerai travailler sur les "OU" et "ET" et me renvoyer le même résultat

[unparia]

Bonjour

Il ne te vient bien sûr pas à l'idée d'utiliser très basiquement et très simplement la fonction Replace ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ch = "(JAPON ET CHINE) OU (FRANCE ET ESPAGNE)"
ch = Replace(ch, " ET ", vbCrLf & "ET" & vbCrLf)
ch = Replace(ch, " OU ", vbCrLf & "OU" & vbCrLf)
msgbox ch

[Invité]

Il me vient à l'idée cette solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ch = "(JAPON ET CHINE) OU (FRANCE ET ESPAGNE)"
ch = Join(Split(Trim(ch), " "), vbCrLf)

[unparia]

Bonjour galoir
ta solution est bonne, mais uniquement si l'on veut un retour à la ligne pour chaque espace.
Je suppose que si le demandeur a écrit :

Ma question est simple au lieu de travailler sur des espace dans le code j'aimerai travailler sur les "OU" et "ET" et me renvoyer le même résultat

C'est qu'il veut peut-être n'avoir un retour à la ligne QUE pour les ET et les OU, de sorte, par exemple, à pouvoir traiter :

"Il a dit qu'il sauterait OU plongerait ET s'en irait"

en

"Il a dit qu'il sauterait
OU
plongerait
ET
s'en irait"

[Invité]

en effet, merci

[Vins75]

Je vous remercie tous les deux! je ne connaissais pas la fonction vbCrLf qui s'avère très utile