Discussion :

[Dermochelys]

Bonjour,

J'ai une chaîne texte (ch1) composée ainsi : 15, 22, 24, 25, 26, 28, 34, 39, 51, 84, 85, 96, 142, 145
J'ai une seconde chaîne texte (ch2) composée ainsi (de certains des nombres/items présents dans la chaîne précédente) : 22, 24, 26, 28, 39, 85, 96, 145
Je souhaiterai obtenir une ch3 qui ne contient aucun des nombres présents dans la chaîne ch2 (le résultat attendu est donc: 15, 25, 34, 51, 84, 96, 142

Sachant que ce sera toujours des nombres (quelconques) séparés par une virgule et un espace, comment pourrai-je faire cela en minimisant le code a utiliser?

J'ai pensé a spliter chacune des chaines dans un tableau, ... mais après, je bug sur comment faire pour avoir un tableau qui ne contient plus que "ch1 - ch2 = ch3"?

Vous avez des idées?

Merci d'avance pour votre aide et suggestions.

[marot_r]

Bonjour.

Si tu as si peu d'éléments il n'est peut-être pas nécessaire de chercher très loin.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
dim strNumberList() as string: strNumberList=split(ch1, ", ")
dim strExcludedNumberList() as string: strExcludedNumberList()=split(ch2, ", ")
dim objKeptNumberList as collection: set objKeptNumberList=new collection
dim blnIsExcluded as boolean
 
dim vntNumber as variant
dim vntExcludedNumber as variant
 
for each vntNumber in strNumberList
 
    blnIsExcluded=false
    for each vntExcludedNumber in strExcludedNumberList
 
         if vntExcludedNumber = vntNumber then
             blnIsExclued=True
             exit for
         end if
 
    next vntExcludedNumber 
 
    if not blnIsExcluded then
        objKeptNumberList.add(ctsr(vntNumber), cstr(vntNumber))
    end if
 
next vntNumber
 
dim ch3 as string
for each vntNumber in objKeptNumberList
 
    if ch3<>"" then
       ch3=ch3 & ", "
    end if
 
     ch3=ch3 & vntNumber
next vntNumber
 
set objKeptNumberList=nothing

Si tu as beaucoup d'éléments la solution probablement la plus efficace serait de mettre les valeurs dans 2 tables avec un index sur les nombre et de faire une requête de non correspondance puis de récupérer le résultat de cette requête. SQL est généralement plus efficace que VBA pour ce genre de chose.

A+

[Dermochelys]

Bonjour marot_r,

Je reviens de qq jours de vacances et lis ta réponse à ma question.

Ca me semble parfait!
Et en effet, ce ne sera jamais plus nombreux qu'une trentaine de mots.

Merci encore!!! Joyeux été!