Bonjour. Suppose une plage A1:B15 (les deux colonnes peuvent être de taille inégale, 15 est alors la longueur de la plus grande). En C1, mets la formule matricielle (à valider avec les touches CTRL+MAJ+Entrée) : =SI(GRANDE.VALEUR(NB.SI($A$1:$A$15;$B$1:$B$15)*LIGNE($1:$15);LIGNE())=0;"";INDEX($B$1:$B$15;GRANDE.VALEUR(NB.SI($A$1:$A$15;$B$1:$B$15)*LIGNE($1:$15);LIGNE()))) et reproduis la jusqu'en ligne 15. Note. La formule doit être modifiée si la première cellule n'est pas en ligne 1. Cordialement. Daniel
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont pas dans C.
Un peut d'aide serait la bienvenue. Merci M.
Bonjour.
Suppose une plage A1:B15 (les deux colonnes peuvent être de taille
inégale, 15 est alors la longueur de la plus grande).
En C1, mets la formule matricielle (à valider avec les touches
CTRL+MAJ+Entrée) :
=SI(GRANDE.VALEUR(NB.SI($A$1:$A$15;$B$1:$B$15)*LIGNE($1:$15);LIGNE())=0;"";INDEX($B$1:$B$15;GRANDE.VALEUR(NB.SI($A$1:$A$15;$B$1:$B$15)*LIGNE($1:$15);LIGNE())))
et reproduis la jusqu'en ligne 15.
Note. La formule doit être modifiée si la première cellule n'est pas en
ligne 1.
Cordialement.
Daniel
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont
pas dans C.
Bonjour. Suppose une plage A1:B15 (les deux colonnes peuvent être de taille inégale, 15 est alors la longueur de la plus grande). En C1, mets la formule matricielle (à valider avec les touches CTRL+MAJ+Entrée) : =SI(GRANDE.VALEUR(NB.SI($A$1:$A$15;$B$1:$B$15)*LIGNE($1:$15);LIGNE())=0;"";INDEX($B$1:$B$15;GRANDE.VALEUR(NB.SI($A$1:$A$15;$B$1:$B$15)*LIGNE($1:$15);LIGNE()))) et reproduis la jusqu'en ligne 15. Note. La formule doit être modifiée si la première cellule n'est pas en ligne 1. Cordialement. Daniel
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont pas dans C.
Un peut d'aide serait la bienvenue. Merci M.
isabelle
bonjour Michel,
Sub Macro1() For i = 1 To Range("A65536").End(xlUp).Row If IsError(Evaluate("=MATCH(A" & i & ",B:B,0)")) Then x = x + 1 Range("C" & x) = Range("A" & i) End If Next End Sub
isabelle
Michel (pen ar bed) a écrit :
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont pas dans C.
Un peut d'aide serait la bienvenue. Merci M.
bonjour Michel,
Sub Macro1()
For i = 1 To Range("A65536").End(xlUp).Row
If IsError(Evaluate("=MATCH(A" & i & ",B:B,0)")) Then
x = x + 1
Range("C" & x) = Range("A" & i)
End If
Next
End Sub
isabelle
Michel (pen ar bed) a écrit :
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des
noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y
sont pas dans C.
Sub Macro1() For i = 1 To Range("A65536").End(xlUp).Row If IsError(Evaluate("=MATCH(A" & i & ",B:B,0)")) Then x = x + 1 Range("C" & x) = Range("A" & i) End If Next End Sub
isabelle
Michel (pen ar bed) a écrit :
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont pas dans C.
Un peut d'aide serait la bienvenue. Merci M.
Jacky
Bonjour, J'ai compris qu'il faut recopier dans C les données sans doublon des colonnes A et B ?? En C1 =SI(ESTNA(EQUIV(A1;B:B;0));A1;"") et recopier vers le bas aussi loin que besoin
-- Salutations JJ
"Michel (pen ar bed)" a écrit dans le message de news:
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont pas dans C.
Un peut d'aide serait la bienvenue. Merci M.
Bonjour,
J'ai compris qu'il faut recopier dans C les données sans doublon des
colonnes A et B ??
En C1
=SI(ESTNA(EQUIV(A1;B:B;0));A1;"")
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Michel (pen ar bed)" <Michel@mail.net> a écrit dans le message de news:
mn.0a6b7d8b60782d2a.62698@mail.net...
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des
noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y
sont pas dans C.
Bonjour, J'ai compris qu'il faut recopier dans C les données sans doublon des colonnes A et B ?? En C1 =SI(ESTNA(EQUIV(A1;B:B;0));A1;"") et recopier vers le bas aussi loin que besoin
-- Salutations JJ
"Michel (pen ar bed)" a écrit dans le message de news:
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont pas dans C.
Bonjour, J'ai compris qu'il faut recopier dans C les données sans doublon des colonnes A et B ?? En C1 =SI(ESTNA(EQUIV(A1;B:B;0));A1;"") et recopier vers le bas aussi loin que besoin
-- Salutations JJ
"Michel (pen ar bed)" a écrit dans le message de news:
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont pas dans C.
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eD6F7qAPJHA.588@TK2MSFTNGP06.phx.gbl...
Bonjour,
J'ai compris qu'il faut recopier dans C les données sans doublon des
colonnes A et B ??
En C1
=SI(ESTNA(EQUIV(A1;B:B;0));A1;"")
et recopier vers le bas aussi loin que besoin
--
Salutations
JJ
"Michel (pen ar bed)" <Michel@mail.net> a écrit dans le message de news:
mn.0a6b7d8b60782d2a.62698@mail.net...
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des
noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y
sont pas dans C.
Bonjour, J'ai compris qu'il faut recopier dans C les données sans doublon des colonnes A et B ?? En C1 =SI(ESTNA(EQUIV(A1;B:B;0));A1;"") et recopier vers le bas aussi loin que besoin
-- Salutations JJ
"Michel (pen ar bed)" a écrit dans le message de news:
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont pas dans C.
Un peut d'aide serait la bienvenue. Merci M.
JB
Bonjour,
Fonction perso mtricielle:
Function Difference(champ1, champ2) Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In champ2 If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value Next c Set mondico2 = CreateObject("Scripting.Dictionary") For Each c In champ1 If Not MonDico1.Exists(c.Value) Then If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value End If Next c Difference = Application.Transpose(mondico2.items) End Function
http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCommuns.x ls
JB http://boisgontierjacques.free.fr/
On 1 nov, 10:19, Michel (pen ar bed) wrote:
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont pas dans C.
Un peut d'aide serait la bienvenue. Merci M.
Bonjour,
Fonction perso mtricielle:
Function Difference(champ1, champ2)
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In champ2
If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
Next c
Set mondico2 = CreateObject("Scripting.Dictionary")
For Each c In champ1
If Not MonDico1.Exists(c.Value) Then
If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value,
c.Value
End If
Next c
Difference = Application.Transpose(mondico2.items)
End Function
http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCommuns.x ls
JB
http://boisgontierjacques.free.fr/
On 1 nov, 10:19, Michel (pen ar bed) <Mic...@mail.net> wrote:
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des
noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui
n'y sont pas dans C.
Function Difference(champ1, champ2) Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In champ2 If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value Next c Set mondico2 = CreateObject("Scripting.Dictionary") For Each c In champ1 If Not MonDico1.Exists(c.Value) Then If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value End If Next c Difference = Application.Transpose(mondico2.items) End Function
http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCommuns.x ls
JB http://boisgontierjacques.free.fr/
On 1 nov, 10:19, Michel (pen ar bed) wrote:
Bonjour,
Dans une feuille j'ai deux colonnes A & B de longueur inégale avec des noms.
je cherche à faire la chose suivante:
Trouver les noms dans B qui sont présent dans A et recopier sont qui n'y sont pas dans C.
For i = 2 To Range("b65536").End(xlUp).Row If IsError(Evaluate("=MATCH(b" & i & ",a:a,0)")) Then x = x + 1 Range("C" & x) = Range("b" & i) End If Next
Et ça fonctionne bien
Jacky
Re... Il y a dans ces deux colonnes 8 données uniques, non, ou alors il y a quelque chose qui doit m'échapper http://cjoint.com/?lbuDEWcLCD -- Salutations JJ
"Michel (pen ar bed)" a écrit dans le message de news:
For i = 2 To Range("b65536").End(xlUp).Row If IsError(Evaluate("=MATCH(b" & i & ",a:a,0)")) Then x = x + 1 Range("C" & x) = Range("b" & i) End If Next
Et ça fonctionne bien
Re...
Il y a dans ces deux colonnes 8 données uniques, non, ou alors il y a
quelque chose qui doit m'échapper
http://cjoint.com/?lbuDEWcLCD
--
Salutations
JJ
"Michel (pen ar bed)" <Michel@mail.net> a écrit dans le message de news:
mn.0c447d8bee0f6978.62698@mail.net...
Re... Il y a dans ces deux colonnes 8 données uniques, non, ou alors il y a quelque chose qui doit m'échapper http://cjoint.com/?lbuDEWcLCD -- Salutations JJ
"Michel (pen ar bed)" a écrit dans le message de news:
For i = 2 To Range("b65536").End(xlUp).Row If IsError(Evaluate("=MATCH(b" & i & ",a:a,0)")) Then x = x + 1 Range("C" & x) = Range("b" & i) End If Next
Et ça fonctionne bien
Michel (pen ar bed)
Jacky avait énoncé :
Re... Il y a dans ces deux colonnes 8 données uniques, non, ou alors il y a quelque chose qui doit m'échapper http://cjoint.com/?lbuDEWcLCD --
Peut être que ma demande n'était pas suffisamment bien formulée
Je résume les macros du classeur cjoint.
La macro "Isabelle" donne comme résultat les cellules non présentes dans B La macro "Michel" donne comme résultat les cellules non présentes dans A La macro ""JJ" donne les cellules non présentes dans A & B
Moi je cherche bien la solution non présente dans A.
Bon Dimanche
Jacky avait énoncé :
Re...
Il y a dans ces deux colonnes 8 données uniques, non, ou alors il y a quelque
chose qui doit m'échapper
http://cjoint.com/?lbuDEWcLCD
--
Peut être que ma demande n'était pas suffisamment bien formulée
Je résume les macros du classeur cjoint.
La macro "Isabelle" donne comme résultat les cellules non présentes
dans B
La macro "Michel" donne comme résultat les cellules non présentes dans
A
La macro ""JJ" donne les cellules non présentes dans A & B
Moi je cherche bien la solution non présente dans A.
Re... Il y a dans ces deux colonnes 8 données uniques, non, ou alors il y a quelque chose qui doit m'échapper http://cjoint.com/?lbuDEWcLCD --
Peut être que ma demande n'était pas suffisamment bien formulée
Je résume les macros du classeur cjoint.
La macro "Isabelle" donne comme résultat les cellules non présentes dans B La macro "Michel" donne comme résultat les cellules non présentes dans A La macro ""JJ" donne les cellules non présentes dans A & B
Moi je cherche bien la solution non présente dans A.