Discussion :

[Pierre845]

Salut,

J'essaye d'utiliser Application.union et Application.intersect en vain.

Ce que je voudrais,
à partir des deux listes A et B, c'est obtenir C = A U B ou C = A /\ B

exple:

A = 5 8 4

B = 3 4 5

alors C = A U B = 5 8 4 3

ou alors C = A /\ B = 5 4

donc ceci en utilisant une colonne pour A, une pour B, et je mettrais le résultat dans la troisième colonne C

alors oui, je pourrais faire une boucle avec test sur chaque élément, mais n'y a-t-il pas une méthode plus simple pour une simple opération booléenne ??

Merci à ceux qui m'apporteront la solution

[Bigalo]

Bonsoir,

Union et Intersect acceptent exclusivement des objet Range comme arguments

En séparant tes chiffres dans des cellules distinctes, 5, 8 et 4 en A1:C1 et les 3 autres en A2:C2,

Code :

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

=SI(ESTERR(TROUVE(A1;A2 & B2 & C2));"";A1) & SI(ESTERR(TROUVE(B1;A2 & B2 & C2));"";B1) & SI(ESTERR(TROUVE(C1;A2 & B2 & C2));"";C1)

permet de récupérer l’intersection.

Mais il paraît plus simple d’écrire 2 boucles en VBA acceptant des chaînes de caractères et/ou des plages comme arguments.

[Pierre845]

Mais il paraît plus simple d’écrire 2 boucles en VBA acceptant des chaînes de caractères et/ou des plages comme arguments.

ouais c'est ce que je me suis résigné à faire; et visiblement j'ai bien fait vu que ça a l'air d'être la meilleure solution

merci

[patbou]

bonjour,

un code pour l intersection a adapter

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
 
Sub intersect()
 
Dim a, b, c
Dim i As Integer
Dim j As Integer
a = "12569"
b = "2579"
For i = 1 To Len(a)
    For j = 1 To Len(b)
        If Mid(a, i, 1) Like Mid(b, j, 1) Then
            c = Mid(a, i, 1) & c
        End If
    Next j
Next i
MsgBox c
End Sub

[Pierre845]

merci Patbou