soit 2 colonnes A et B contenant une liste de valeur.
Existe-t-il un moyen simple de constituer une liste (dans une colonne C
par exemple) constituée de l'intersection des 2 listes A et B (i.e.
avoir les valeurs contenues dans A ET B) ?
Existe-t-il un moyen simple de constituer une liste (dans une colonne C
par exemple) constituée des élements de A qui n'existent pas dans B ?
J'ai fouillé coté fonctions BD..., mais ca ne marche pas.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Fonction matricielle
Function Communs(champ1, champ2) Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In champ1 If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value Next c Set mondico2 = CreateObject("Scripting.Dictionary") For Each c In champ2 If MonDico1.Exists(c.Value) Then If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value End If Next c i = 1 Communs = Application.Transpose(mondico2.items) End Function
http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCommuns.xl s
JB http://boisgontierjacques.free.fr
On 15 fév, 10:06, LargoWinch wrote:
Bonjour,
soit 2 colonnes A et B contenant une liste de valeur. Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée de l'intersection des 2 listes A et B (i.e. avoir les valeurs contenues dans A ET B) ? Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée des élements de A qui n'existent pas dans B ?
J'ai fouillé coté fonctions BD..., mais ca ne marche pas.
Merci pour votre aide. L.
Bonjour,
Fonction matricielle
Function Communs(champ1, champ2)
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In champ1
If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
Next c
Set mondico2 = CreateObject("Scripting.Dictionary")
For Each c In champ2
If MonDico1.Exists(c.Value) Then
If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value,
c.Value
End If
Next c
i = 1
Communs = Application.Transpose(mondico2.items)
End Function
http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCommuns.xl s
JB
http://boisgontierjacques.free.fr
On 15 fév, 10:06, LargoWinch <largowinc...@free.fr.non.merci> wrote:
Bonjour,
soit 2 colonnes A et B contenant une liste de valeur.
Existe-t-il un moyen simple de constituer une liste (dans une colonne C
par exemple) constituée de l'intersection des 2 listes A et B (i.e.
avoir les valeurs contenues dans A ET B) ?
Existe-t-il un moyen simple de constituer une liste (dans une colonne C
par exemple) constituée des élements de A qui n'existent pas dans B ?
J'ai fouillé coté fonctions BD..., mais ca ne marche pas.
Function Communs(champ1, champ2) Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In champ1 If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value Next c Set mondico2 = CreateObject("Scripting.Dictionary") For Each c In champ2 If MonDico1.Exists(c.Value) Then If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value End If Next c i = 1 Communs = Application.Transpose(mondico2.items) End Function
http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCommuns.xl s
JB http://boisgontierjacques.free.fr
On 15 fév, 10:06, LargoWinch wrote:
Bonjour,
soit 2 colonnes A et B contenant une liste de valeur. Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée de l'intersection des 2 listes A et B (i.e. avoir les valeurs contenues dans A ET B) ? Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée des élements de A qui n'existent pas dans B ?
J'ai fouillé coté fonctions BD..., mais ca ne marche pas.
Function Communs(champ1, champ2) Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In champ1 If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value Next c Set mondico2 = CreateObject("Scripting.Dictionary") For Each c In champ2 If MonDico1.Exists(c.Value) Then If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value End If Next c i = 1 Communs = Application.Transpose(mondico2.items) End Function
soit 2 colonnes A et B contenant une liste de valeur. Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée de l'intersection des 2 listes A et B (i.e. avoir les valeurs contenues dans A ET B) ? Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée des élements de A qui n'existent pas dans B ?
J'ai fouillé coté fonctions BD..., mais ca ne marche pas.
Merci pour votre aide. L.- Masquer le texte des messages précédents -
On 15 fév, 10:15, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Fonction matricielle
Function Communs(champ1, champ2)
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In champ1
If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
Next c
Set mondico2 = CreateObject("Scripting.Dictionary")
For Each c In champ2
If MonDico1.Exists(c.Value) Then
If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value,
c.Value
End If
Next c
i = 1
Communs = Application.Transpose(mondico2.items)
End Function
On 15 fév, 10:06, LargoWinch <largowinc...@free.fr.non.merci> wrote:
Bonjour,
soit 2 colonnes A et B contenant une liste de valeur.
Existe-t-il un moyen simple de constituer une liste (dans une colonne C
par exemple) constituée de l'intersection des 2 listes A et B (i.e.
avoir les valeurs contenues dans A ET B) ?
Existe-t-il un moyen simple de constituer une liste (dans une colonne C
par exemple) constituée des élements de A qui n'existent pas dans B ?
J'ai fouillé coté fonctions BD..., mais ca ne marche pas.
Merci pour votre aide.
L.- Masquer le texte des messages précédents -
Function Communs(champ1, champ2) Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In champ1 If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value Next c Set mondico2 = CreateObject("Scripting.Dictionary") For Each c In champ2 If MonDico1.Exists(c.Value) Then If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value End If Next c i = 1 Communs = Application.Transpose(mondico2.items) End Function
soit 2 colonnes A et B contenant une liste de valeur. Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée de l'intersection des 2 listes A et B (i.e. avoir les valeurs contenues dans A ET B) ? Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée des élements de A qui n'existent pas dans B ?
J'ai fouillé coté fonctions BD..., mais ca ne marche pas.
Merci pour votre aide. L.- Masquer le texte des messages précédents -
Function Communs(champ1, champ2) Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In champ1 If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value Next c Set mondico2 = CreateObject("Scripting.Dictionary") For Each c In champ2 If MonDico1.Exists(c.Value) Then If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value End If Next c i = 1 Communs = Application.Transpose(mondico2.items) End Function
Bonjour, soit 2 colonnes A et B contenant une liste de valeur. Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée de l'intersection des 2 listes A et B (i.e. avoir les valeurs contenues dans A ET B) ? Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée des élements de A qui n'existent pas dans B ? J'ai fouillé coté fonctions BD..., mais ca ne marche pas. Merci pour votre aide. L.- Masquer le texte des messages précédents - - Afficher le texte des messages précédents -
On 15 fév, 10:15, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Fonction matricielle
Function Communs(champ1, champ2)
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In champ1
If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
Next c
Set mondico2 = CreateObject("Scripting.Dictionary")
For Each c In champ2
If MonDico1.Exists(c.Value) Then
If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value,
c.Value
End If
Next c
i = 1
Communs = Application.Transpose(mondico2.items)
End Function
On 15 fév, 10:06, LargoWinch <largowinc...@free.fr.non.merci> wrote:
Bonjour,
soit 2 colonnes A et B contenant une liste de valeur.
Existe-t-il un moyen simple de constituer une liste (dans une colonne C
par exemple) constituée de l'intersection des 2 listes A et B (i.e.
avoir les valeurs contenues dans A ET B) ?
Existe-t-il un moyen simple de constituer une liste (dans une colonne C
par exemple) constituée des élements de A qui n'existent pas dans B ?
J'ai fouillé coté fonctions BD..., mais ca ne marche pas.
Merci pour votre aide.
L.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Function Communs(champ1, champ2) Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In champ1 If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value Next c Set mondico2 = CreateObject("Scripting.Dictionary") For Each c In champ2 If MonDico1.Exists(c.Value) Then If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value End If Next c i = 1 Communs = Application.Transpose(mondico2.items) End Function
Bonjour, soit 2 colonnes A et B contenant une liste de valeur. Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée de l'intersection des 2 listes A et B (i.e. avoir les valeurs contenues dans A ET B) ? Existe-t-il un moyen simple de constituer une liste (dans une colonne C par exemple) constituée des élements de A qui n'existent pas dans B ? J'ai fouillé coté fonctions BD..., mais ca ne marche pas. Merci pour votre aide. L.- Masquer le texte des messages précédents - - Afficher le texte des messages précédents -