Function doublons(a As Range, b As Range) temp = Split(a, " ") temp2 = b n = 0 For i = LBound(temp) To UBound(temp) For j = LBound(temp2) To UBound(temp2) If InStr(temp2(j, 1), temp(i)) > 0 Then n = n + 1 Next j Next i doublons = n - UBound(temp) End Function
http://cjoint.com/?btrsR5T2DB
JB
On 19 jan, 04:12, "PhildeParis" wrote:
Bonjour,
J'ai dans la colonne A, dans une cellule, un nom parfois suivi d'une au tre donnée :
Paul 127 Gérard 127 Paul mistral Paul
Je souhaite faire apparaître avec mise en forme conditionnelle les doubl ons avec le nom : dans cet exemple les Paul.
J'ai une formule qui fonctionne sur la totalité de la cellule =NB.SI($A$3:$A$8;A3)>1 mais par sur une partie...
Function doublons(a As Range, b As Range)
temp = Split(a, " ")
temp2 = b
n = 0
For i = LBound(temp) To UBound(temp)
For j = LBound(temp2) To UBound(temp2)
If InStr(temp2(j, 1), temp(i)) > 0 Then n = n + 1
Next j
Next i
doublons = n - UBound(temp)
End Function
http://cjoint.com/?btrsR5T2DB
JB
On 19 jan, 04:12, "PhildeParis" <philnos...@laposte.net> wrote:
Bonjour,
J'ai dans la colonne A, dans une cellule, un nom parfois suivi d'une au tre
donnée :
Paul 127
Gérard 127
Paul mistral
Paul
Je souhaite faire apparaître avec mise en forme conditionnelle les doubl ons
avec le nom :
dans cet exemple les Paul.
J'ai une formule qui fonctionne sur la totalité de la cellule
=NB.SI($A$3:$A$8;A3)>1
mais par sur une partie...
Function doublons(a As Range, b As Range) temp = Split(a, " ") temp2 = b n = 0 For i = LBound(temp) To UBound(temp) For j = LBound(temp2) To UBound(temp2) If InStr(temp2(j, 1), temp(i)) > 0 Then n = n + 1 Next j Next i doublons = n - UBound(temp) End Function
http://cjoint.com/?btrsR5T2DB
JB
On 19 jan, 04:12, "PhildeParis" wrote:
Bonjour,
J'ai dans la colonne A, dans une cellule, un nom parfois suivi d'une au tre donnée :
Paul 127 Gérard 127 Paul mistral Paul
Je souhaite faire apparaître avec mise en forme conditionnelle les doubl ons avec le nom : dans cet exemple les Paul.
J'ai une formule qui fonctionne sur la totalité de la cellule =NB.SI($A$3:$A$8;A3)>1 mais par sur une partie...
Savez vous comment l'adapter ?
avec mes remerciements pour votre aide,
Phil.
JB
Function doublons(a As Range, b As Range) temp = Split(a, " ") temp2 = b n = 0 For i = LBound(temp) To UBound(temp) For j = LBound(temp2) To UBound(temp2) If Not IsError(Application.Match(temp(i), Split(temp2(j, 1), " "), 0)) Then n = n + 1 Next j Next i doublons = n - UBound(temp) End Function
Function doublons(a As Range, b As Range) temp = Split(a, " ") temp2 = b n = 0 For i = LBound(temp) To UBound(temp) For j = LBound(temp2) To UBound(temp2) If InStr(temp2(j, 1), temp(i)) > 0 Then n = n + 1 Next j Next i doublons = n - UBound(temp) End Function
http://cjoint.com/?btrsR5T2DB
JB
On 19 jan, 04:12, "PhildeParis" wrote:
Bonjour,
J'ai dans la colonne A, dans une cellule, un nom parfois suivi d'une autre donnée :
Paul 127 Gérard 127 Paul mistral Paul
Je souhaite faire apparaître avec mise en forme conditionnelle les dou blons avec le nom : dans cet exemple les Paul.
J'ai une formule qui fonctionne sur la totalité de la cellule =NB.SI($A$3:$A$8;A3)>1 mais par sur une partie...
Savez vous comment l'adapter ?
avec mes remerciements pour votre aide,
Phil.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Function doublons(a As Range, b As Range)
temp = Split(a, " ")
temp2 = b
n = 0
For i = LBound(temp) To UBound(temp)
For j = LBound(temp2) To UBound(temp2)
If Not IsError(Application.Match(temp(i), Split(temp2(j, 1), "
"), 0)) Then n = n + 1
Next j
Next i
doublons = n - UBound(temp)
End Function
http://cjoint.com/?btrSn07vhk
JB
On 19 jan, 17:18, JB <boisgont...@hotmail.com> wrote:
Function doublons(a As Range, b As Range)
temp = Split(a, " ")
temp2 = b
n = 0
For i = LBound(temp) To UBound(temp)
For j = LBound(temp2) To UBound(temp2)
If InStr(temp2(j, 1), temp(i)) > 0 Then n = n + 1
Next j
Next i
doublons = n - UBound(temp)
End Function
http://cjoint.com/?btrsR5T2DB
JB
On 19 jan, 04:12, "PhildeParis" <philnos...@laposte.net> wrote:
Bonjour,
J'ai dans la colonne A, dans une cellule, un nom parfois suivi d'une autre
donnée :
Paul 127
Gérard 127
Paul mistral
Paul
Je souhaite faire apparaître avec mise en forme conditionnelle les dou blons
avec le nom :
dans cet exemple les Paul.
J'ai une formule qui fonctionne sur la totalité de la cellule
=NB.SI($A$3:$A$8;A3)>1
mais par sur une partie...
Function doublons(a As Range, b As Range) temp = Split(a, " ") temp2 = b n = 0 For i = LBound(temp) To UBound(temp) For j = LBound(temp2) To UBound(temp2) If Not IsError(Application.Match(temp(i), Split(temp2(j, 1), " "), 0)) Then n = n + 1 Next j Next i doublons = n - UBound(temp) End Function
Function doublons(a As Range, b As Range) temp = Split(a, " ") temp2 = b n = 0 For i = LBound(temp) To UBound(temp) For j = LBound(temp2) To UBound(temp2) If InStr(temp2(j, 1), temp(i)) > 0 Then n = n + 1 Next j Next i doublons = n - UBound(temp) End Function
http://cjoint.com/?btrsR5T2DB
JB
On 19 jan, 04:12, "PhildeParis" wrote:
Bonjour,
J'ai dans la colonne A, dans une cellule, un nom parfois suivi d'une autre donnée :
Paul 127 Gérard 127 Paul mistral Paul
Je souhaite faire apparaître avec mise en forme conditionnelle les dou blons avec le nom : dans cet exemple les Paul.
J'ai une formule qui fonctionne sur la totalité de la cellule =NB.SI($A$3:$A$8;A3)>1 mais par sur une partie...
Savez vous comment l'adapter ?
avec mes remerciements pour votre aide,
Phil.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
PhildeParis
Ca marche !
MERCI JB
Bien cordialement,
Philippe
"JB" a écrit dans le message de news:
Function doublons(a As Range, b As Range) temp = Split(a, " ") temp2 = b n = 0 For i = LBound(temp) To UBound(temp) For j = LBound(temp2) To UBound(temp2) If Not IsError(Application.Match(temp(i), Split(temp2(j, 1), " "), 0)) Then n = n + 1 Next j Next i doublons = n - UBound(temp) End Function
Function doublons(a As Range, b As Range) temp = Split(a, " ") temp2 = b n = 0 For i = LBound(temp) To UBound(temp) For j = LBound(temp2) To UBound(temp2) If InStr(temp2(j, 1), temp(i)) > 0 Then n = n + 1 Next j Next i doublons = n - UBound(temp) End Function
http://cjoint.com/?btrsR5T2DB
JB
On 19 jan, 04:12, "PhildeParis" wrote:
Bonjour,
J'ai dans la colonne A, dans une cellule, un nom parfois suivi d'une autre donnée :
Paul 127 Gérard 127 Paul mistral Paul
Je souhaite faire apparaître avec mise en forme conditionnelle les doublons avec le nom : dans cet exemple les Paul.
J'ai une formule qui fonctionne sur la totalité de la cellule =NB.SI($A$3:$A$8;A3)>1 mais par sur une partie...
Savez vous comment l'adapter ?
avec mes remerciements pour votre aide,
Phil.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ca marche !
MERCI JB
Bien cordialement,
Philippe
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:d4220086-e7c0-4695-b8e6-a531ab9f61a2@x69g2000hsx.googlegroups.com...
Function doublons(a As Range, b As Range)
temp = Split(a, " ")
temp2 = b
n = 0
For i = LBound(temp) To UBound(temp)
For j = LBound(temp2) To UBound(temp2)
If Not IsError(Application.Match(temp(i), Split(temp2(j, 1), "
"), 0)) Then n = n + 1
Next j
Next i
doublons = n - UBound(temp)
End Function
http://cjoint.com/?btrSn07vhk
JB
On 19 jan, 17:18, JB <boisgont...@hotmail.com> wrote:
Function doublons(a As Range, b As Range)
temp = Split(a, " ")
temp2 = b
n = 0
For i = LBound(temp) To UBound(temp)
For j = LBound(temp2) To UBound(temp2)
If InStr(temp2(j, 1), temp(i)) > 0 Then n = n + 1
Next j
Next i
doublons = n - UBound(temp)
End Function
http://cjoint.com/?btrsR5T2DB
JB
On 19 jan, 04:12, "PhildeParis" <philnos...@laposte.net> wrote:
Bonjour,
J'ai dans la colonne A, dans une cellule, un nom parfois suivi d'une
autre
donnée :
Paul 127
Gérard 127
Paul mistral
Paul
Je souhaite faire apparaître avec mise en forme conditionnelle les
doublons
avec le nom :
dans cet exemple les Paul.
J'ai une formule qui fonctionne sur la totalité de la cellule
=NB.SI($A$3:$A$8;A3)>1
mais par sur une partie...
Function doublons(a As Range, b As Range) temp = Split(a, " ") temp2 = b n = 0 For i = LBound(temp) To UBound(temp) For j = LBound(temp2) To UBound(temp2) If Not IsError(Application.Match(temp(i), Split(temp2(j, 1), " "), 0)) Then n = n + 1 Next j Next i doublons = n - UBound(temp) End Function
Function doublons(a As Range, b As Range) temp = Split(a, " ") temp2 = b n = 0 For i = LBound(temp) To UBound(temp) For j = LBound(temp2) To UBound(temp2) If InStr(temp2(j, 1), temp(i)) > 0 Then n = n + 1 Next j Next i doublons = n - UBound(temp) End Function
http://cjoint.com/?btrsR5T2DB
JB
On 19 jan, 04:12, "PhildeParis" wrote:
Bonjour,
J'ai dans la colonne A, dans une cellule, un nom parfois suivi d'une autre donnée :
Paul 127 Gérard 127 Paul mistral Paul
Je souhaite faire apparaître avec mise en forme conditionnelle les doublons avec le nom : dans cet exemple les Paul.
J'ai une formule qui fonctionne sur la totalité de la cellule =NB.SI($A$3:$A$8;A3)>1 mais par sur une partie...