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