Rechercher les noms composés dans une plage de cellule
23 réponses
scgtpas75
Bonjour,=20
J'ai une longue liste de noms en colonne B.
Dans cette liste, certains noms sont des noms compos=E9s
Je souhaite savoir s'il est possible de r=E9cup=E9rer dans cette liste les =
noms compos=E9s uniquement.
Le jeudi 25 juillet 2013 23:39:10 UTC+2, Jacky a écrit :
Bonsoir,
Avec une feuille pour les noms composés et une autre pour les noms non composés
Exemple ici
http://cjoint.com/?CGzxIU3JEm3
--
Salutations
JJ
Bonjour Jacky,
C'est exactement ce que je cherchais... je ne peux pas demander mieux. Maintenant me reste plus qu'à essayer de comprendre...
Merci à tous pour votre aide.
Pierre
JP
Pierre,
Oui effectivement, j'aurai dû te préciser de recopier le code dans la f euille 1 où se trouvent les données. Jacky a proposé une solution plus élaborée puisque son code prévoit les prénoms composés mais aussi les noms composés.
Cordialement
JP
Pierre,
Oui effectivement, j'aurai dû te préciser de recopier le code dans la f euille 1 où se trouvent les données.
Jacky a proposé une solution plus élaborée puisque son code prévoit les prénoms composés mais aussi les noms composés.
Oui effectivement, j'aurai dû te préciser de recopier le code dans la f euille 1 où se trouvent les données. Jacky a proposé une solution plus élaborée puisque son code prévoit les prénoms composés mais aussi les noms composés.
Cordialement
JP
Jacky
Re...
......je ne peux pas demander mieux.
Si, Si.... S'il y a un grand nombre de données à traiter (+ de 4000) , le filtre élaboré est beaucoup plus rapide Une ligne de titre est nécessaire dans ce cas. Remplace la macro dans l'exemple précédent donné, par celle-ci
"-------------------- Sub jj() Feuil2.Columns("a:b").Clear Feuil3.Columns("a:b").Clear With Feuil1 .Range("D2").Formula = _ "=ISNUMBER(SEARCH("" "",a2))+ISNUMBER(SEARCH(""-"",a2))+ISNUMBER(SEARCH("" "",b2))+ISNUMBER(SEARCH(""-"",b2))>0" .Range("E2").Formula = _ "=ISNUMBER(SEARCH(""-"",RC[-4]))+ISNUMBER(SEARCH("" "",RC[-4]))+ISNUMBER(SEARCH(""-"",RC[-3]))+ISNUMBER(SEARCH("" "",RC[-3]))=0" Set plage = .Range("a1:b" & .Cells(.Rows.Count, 1).End(xlUp).Row) End With ' With plage .AdvancedFilter Action:=xlFilterCopy, CriteriaRange:þuil1.Range("D1:D2"), CopyToRange:þuil2.Range("A1") .AdvancedFilter Action:=xlFilterCopy, CriteriaRange:þuil1.Range("E1:E2"), CopyToRange:þuil3.Range("A1") End With Feuil1.[d1:e2].Clear End Sub '-------------------- Voir ici http://cjoint.com/?CGAnS5nErlc
-- Salutations JJ
a écrit dans le message de news:
Le jeudi 25 juillet 2013 23:39:10 UTC+2, Jacky a écrit :
Bonsoir,
Avec une feuille pour les noms composés et une autre pour les noms non composés
Exemple ici
http://cjoint.com/?CGzxIU3JEm3
--
Salutations
JJ
Bonjour Jacky,
C'est exactement ce que je cherchais... je ne peux pas demander mieux. Maintenant me reste plus qu'à essayer de comprendre...
Merci à tous pour votre aide.
Pierre
Re...
......je ne peux pas demander mieux.
Si, Si....
S'il y a un grand nombre de données à traiter (+ de 4000) , le filtre élaboré est beaucoup plus rapide
Une ligne de titre est nécessaire dans ce cas.
Remplace la macro dans l'exemple précédent donné, par celle-ci
"--------------------
Sub jj()
Feuil2.Columns("a:b").Clear
Feuil3.Columns("a:b").Clear
With Feuil1
.Range("D2").Formula = _
"=ISNUMBER(SEARCH("" "",a2))+ISNUMBER(SEARCH(""-"",a2))+ISNUMBER(SEARCH(""
"",b2))+ISNUMBER(SEARCH(""-"",b2))>0"
.Range("E2").Formula = _
"=ISNUMBER(SEARCH(""-"",RC[-4]))+ISNUMBER(SEARCH(""
"",RC[-4]))+ISNUMBER(SEARCH(""-"",RC[-3]))+ISNUMBER(SEARCH("" "",RC[-3]))=0"
Set plage = .Range("a1:b" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
'
With plage
.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:þuil1.Range("D1:D2"),
CopyToRange:þuil2.Range("A1")
.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:þuil1.Range("E1:E2"),
CopyToRange:þuil3.Range("A1")
End With
Feuil1.[d1:e2].Clear
End Sub
'--------------------
Voir ici
http://cjoint.com/?CGAnS5nErlc
--
Salutations
JJ
<scgtpas75@gmail.com> a écrit dans le message de news:
600b6650-b544-47ff-8d19-a696fdb283fe@googlegroups.com...
Le jeudi 25 juillet 2013 23:39:10 UTC+2, Jacky a écrit :
Bonsoir,
Avec une feuille pour les noms composés et une autre pour les noms non composés
Exemple ici
http://cjoint.com/?CGzxIU3JEm3
--
Salutations
JJ
Bonjour Jacky,
C'est exactement ce que je cherchais... je ne peux pas demander mieux.
Maintenant me reste plus qu'à essayer de comprendre...
Si, Si.... S'il y a un grand nombre de données à traiter (+ de 4000) , le filtre élaboré est beaucoup plus rapide Une ligne de titre est nécessaire dans ce cas. Remplace la macro dans l'exemple précédent donné, par celle-ci
"-------------------- Sub jj() Feuil2.Columns("a:b").Clear Feuil3.Columns("a:b").Clear With Feuil1 .Range("D2").Formula = _ "=ISNUMBER(SEARCH("" "",a2))+ISNUMBER(SEARCH(""-"",a2))+ISNUMBER(SEARCH("" "",b2))+ISNUMBER(SEARCH(""-"",b2))>0" .Range("E2").Formula = _ "=ISNUMBER(SEARCH(""-"",RC[-4]))+ISNUMBER(SEARCH("" "",RC[-4]))+ISNUMBER(SEARCH(""-"",RC[-3]))+ISNUMBER(SEARCH("" "",RC[-3]))=0" Set plage = .Range("a1:b" & .Cells(.Rows.Count, 1).End(xlUp).Row) End With ' With plage .AdvancedFilter Action:=xlFilterCopy, CriteriaRange:þuil1.Range("D1:D2"), CopyToRange:þuil2.Range("A1") .AdvancedFilter Action:=xlFilterCopy, CriteriaRange:þuil1.Range("E1:E2"), CopyToRange:þuil3.Range("A1") End With Feuil1.[d1:e2].Clear End Sub '-------------------- Voir ici http://cjoint.com/?CGAnS5nErlc
-- Salutations JJ
a écrit dans le message de news:
Le jeudi 25 juillet 2013 23:39:10 UTC+2, Jacky a écrit :
Bonsoir,
Avec une feuille pour les noms composés et une autre pour les noms non composés
Exemple ici
http://cjoint.com/?CGzxIU3JEm3
--
Salutations
JJ
Bonjour Jacky,
C'est exactement ce que je cherchais... je ne peux pas demander mieux. Maintenant me reste plus qu'à essayer de comprendre...
