etc
(s=E9paration "-" pour intervalle et ";" pour autre cote)
J'aimerais savoir si des =E9l=E9ments sont r=E9p=E9t=E9s dans le tableau
Exemple "10B/281 - 10B/295" apparait-il quelque part en doublon ? Mais ce n=
'est pas une recherche de doublon il me semble car ce "10B/281 - 10B/295" p=
eut ne pas =EAtre seul dans la cellule, il peut =EAtre par exemple au milie=
u de "15J/287/1 - 15J/287/2 ; 15J/288/1 - 15J/288/2 ; 15J/289/1 - 15J/289/2=
; 10B/281 - 10B/295 ; 15J/290/1 - 15J/290/4 ; 15J/291/1 - 15J/291/2".
Je ne vois pas de solution ?
Merci
=20
Bonjour Pourquoi ne fais-tu pas,en début de macro, un truc du genre: compteur=1 et chaque fois qu'il y a un msg, compteur=compteur+1, puis, range("a"&compteur).value= item
Enfin, pour ce que j'en dis. et encore, je parle en 2003 Bonne chance
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "jip" a écrit dans le message de groupe de discussion :
Le lundi 19 octobre 2015 15:18:39 UTC+2, DanielCo a écrit :
> Excel 2010
Alors : Sub doublons() Dim C As Range, Dico As Object, Ligne Set Dico = CreateObject("Scripting.dictionary") For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp)) Ligne = Split(C.Value, " ; ") For Each Item In Ligne If Not Dico.exists(Item) Then Dico.Add Item, Item Else MsgBox "doublon : " & Item End If Next Item Next C End Sub Daniel
Merci, ça fonctionne, même si les doublons sont affichés un par un, je les note, il n'y en a pas trop...heureusement Merci beaucoup.
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Bonjour
Pourquoi ne fais-tu pas,en début de macro, un truc du genre:
compteur=1
et chaque fois qu'il y a un msg, compteur=compteur+1,
puis, range("a"&compteur).value= item
Enfin, pour ce que j'en dis. et encore, je parle en 2003
Bonne chance
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"jip" a écrit dans le message de groupe de discussion :
857a7e35-ab15-428a-bc29-e1229bb6dc8b@googlegroups.com...
Le lundi 19 octobre 2015 15:18:39 UTC+2, DanielCo a écrit :
> Excel 2010
Alors :
Sub doublons()
Dim C As Range, Dico As Object, Ligne
Set Dico = CreateObject("Scripting.dictionary")
For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp))
Ligne = Split(C.Value, " ; ")
For Each Item In Ligne
If Not Dico.exists(Item) Then
Dico.Add Item, Item
Else
MsgBox "doublon : " & Item
End If
Next Item
Next C
End Sub
Daniel
Merci, ça fonctionne, même si les doublons sont affichés un par un, je les
note, il n'y en a pas trop...heureusement
Merci beaucoup.
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Bonjour Pourquoi ne fais-tu pas,en début de macro, un truc du genre: compteur=1 et chaque fois qu'il y a un msg, compteur=compteur+1, puis, range("a"&compteur).value= item
Enfin, pour ce que j'en dis. et encore, je parle en 2003 Bonne chance
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "jip" a écrit dans le message de groupe de discussion :
Le lundi 19 octobre 2015 15:18:39 UTC+2, DanielCo a écrit :
> Excel 2010
Alors : Sub doublons() Dim C As Range, Dico As Object, Ligne Set Dico = CreateObject("Scripting.dictionary") For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp)) Ligne = Split(C.Value, " ; ") For Each Item In Ligne If Not Dico.exists(Item) Then Dico.Add Item, Item Else MsgBox "doublon : " & Item End If Next Item Next C End Sub Daniel
Merci, ça fonctionne, même si les doublons sont affichés un par un, je les note, il n'y en a pas trop...heureusement Merci beaucoup.
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
etc (séparation "-" pour intervalle et ";" pour autre cote)
J'aimerais savoir si des éléments sont répétés dans le tableau Exemple "10B/281 - 10B/295" apparait-il quelque part en doublon ? Mais ce n'est pas une recherche de doublon il me semble car ce "10B/281 - 10B/295" peut ne pas être seul dans la cellule, il peut être par exemple au milieu de "15J/287/1 - 15J/287/2 ; 15J/288/1 - 15J/288/2 ; 15J/289/1 - 15J/289/2 ; 10B/281 - 10B/295 ; 15J/290/1 - 15J/290/4 ; 15J/291/1 - 15J/291/2". Je ne vois pas de solution ? Merci
etc (séparation "-" pour intervalle et ";" pour autre cote)
J'aimerais savoir si des éléments sont répétés dans le tableau Exemple
"10B/281 - 10B/295" apparait-il quelque part en doublon ? Mais ce n'est pas
une recherche de doublon il me semble car ce "10B/281 - 10B/295" peut ne pas
être seul dans la cellule, il peut être par exemple au milieu de "15J/287/1 -
15J/287/2 ; 15J/288/1 - 15J/288/2 ; 15J/289/1 - 15J/289/2 ; 10B/281 - 10B/295
; 15J/290/1 - 15J/290/4 ; 15J/291/1 - 15J/291/2". Je ne vois pas de solution
? Merci
etc (séparation "-" pour intervalle et ";" pour autre cote)
J'aimerais savoir si des éléments sont répétés dans le tableau Exemple "10B/281 - 10B/295" apparait-il quelque part en doublon ? Mais ce n'est pas une recherche de doublon il me semble car ce "10B/281 - 10B/295" peut ne pas être seul dans la cellule, il peut être par exemple au milieu de "15J/287/1 - 15J/287/2 ; 15J/288/1 - 15J/288/2 ; 15J/289/1 - 15J/289/2 ; 10B/281 - 10B/295 ; 15J/290/1 - 15J/290/4 ; 15J/291/1 - 15J/291/2". Je ne vois pas de solution ? Merci
Jacquouille
Isabellllllllllle,
Le Monsieur, il a dit 12.500 lignes. A1:A100, ça va coincer un peu, on? -))
Hop, Go to 3 min in IV65536 !
Jacquouille, pas sévère du tout.
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : n033mf$jh3$
etc (séparation "-" pour intervalle et ";" pour autre cote)
J'aimerais savoir si des éléments sont répétés dans le tableau Exemple "10B/281 - 10B/295" apparait-il quelque part en doublon ? Mais ce n'est pas une recherche de doublon il me semble car ce "10B/281 - 10B/295" peut ne pas être seul dans la cellule, il peut être par exemple au milieu de "15J/287/1 - 15J/287/2 ; 15J/288/1 - 15J/288/2 ; 15J/289/1 - 15J/289/2 ; 10B/281 - 10B/295 ; 15J/290/1 - 15J/290/4 ; 15J/291/1 - 15J/291/2". Je ne vois pas de solution ? Merci
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Isabellllllllllle,
Le Monsieur, il a dit 12.500 lignes. A1:A100, ça va coincer un peu,
on? -))
Hop, Go to 3 min in IV65536 !
Jacquouille, pas sévère du tout.
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
n033mf$jh3$1@speranza.aioe.org...
etc (séparation "-" pour intervalle et ";" pour autre cote)
J'aimerais savoir si des éléments sont répétés dans le tableau Exemple
"10B/281 - 10B/295" apparait-il quelque part en doublon ? Mais ce n'est
pas
une recherche de doublon il me semble car ce "10B/281 - 10B/295" peut ne
pas
être seul dans la cellule, il peut être par exemple au milieu de
"15J/287/1 -
15J/287/2 ; 15J/288/1 - 15J/288/2 ; 15J/289/1 - 15J/289/2 ; 10B/281 -
10B/295
; 15J/290/1 - 15J/290/4 ; 15J/291/1 - 15J/291/2". Je ne vois pas de
solution
? Merci
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
etc (séparation "-" pour intervalle et ";" pour autre cote)
J'aimerais savoir si des éléments sont répétés dans le tableau Exemple "10B/281 - 10B/295" apparait-il quelque part en doublon ? Mais ce n'est pas une recherche de doublon il me semble car ce "10B/281 - 10B/295" peut ne pas être seul dans la cellule, il peut être par exemple au milieu de "15J/287/1 - 15J/287/2 ; 15J/288/1 - 15J/288/2 ; 15J/289/1 - 15J/289/2 ; 10B/281 - 10B/295 ; 15J/290/1 - 15J/290/4 ; 15J/291/1 - 15J/291/2". Je ne vois pas de solution ? Merci
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
isabelle
hÉéééééééééé! je proteste haut et fort ;-) c'est bien mieux de nommé dynamiquement la plage avec le nom "plg" ÞCALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))
comme c'est plus court =SOMMEPROD(NON(ESTERREUR(TROUVE("10B/281 - 10B/295";plg)))*(LIGNE(plg)<>""))
isabelle
Le 2015-10-19 14:14, Jacquouille a écrit :
Isabellllllllllle,
Le Monsieur, il a dit 12.500 lignes. A1:A100, ça va coincer un peu, on? -))
Hop, Go to 3 min in IV65536 !
Jacquouille, pas sévère du tout.
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : n033mf$jh3$
hÉéééééééééé! je proteste haut et fort ;-)
c'est bien mieux de nommé dynamiquement la plage avec le nom "plg"
ÞCALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))
comme c'est plus court
=SOMMEPROD(NON(ESTERREUR(TROUVE("10B/281 - 10B/295";plg)))*(LIGNE(plg)<>""))
isabelle
Le 2015-10-19 14:14, Jacquouille a écrit :
Isabellllllllllle,
Le Monsieur, il a dit 12.500 lignes. A1:A100, ça va coincer un peu, on? -))
Hop, Go to 3 min in IV65536 !
Jacquouille, pas sévère du tout.
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
n033mf$jh3$1@speranza.aioe.org...
hÉéééééééééé! je proteste haut et fort ;-) c'est bien mieux de nommé dynamiquement la plage avec le nom "plg" ÞCALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))
comme c'est plus court =SOMMEPROD(NON(ESTERREUR(TROUVE("10B/281 - 10B/295";plg)))*(LIGNE(plg)<>""))
isabelle
Le 2015-10-19 14:14, Jacquouille a écrit :
Isabellllllllllle,
Le Monsieur, il a dit 12.500 lignes. A1:A100, ça va coincer un peu, on? -))
Hop, Go to 3 min in IV65536 !
Jacquouille, pas sévère du tout.
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : n033mf$jh3$
Il est certain que c'est toujours mieux de travailler avec des plages ou cel nommées. cela évite les erreurs en cas de gymnastique dans la feuille. Pour ce qui est des protestations, c'est trop tard. La Loi prévoit un délais de 30 min ..... -))
Bonne fin de journée jac.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : n03rkh$da9$
hÉéééééééééé! je proteste haut et fort ;-) c'est bien mieux de nommé dynamiquement la plage avec le nom "plg" ÞCALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))
comme c'est plus court =SOMMEPROD(NON(ESTERREUR(TROUVE("10B/281 - 10B/295";plg)))*(LIGNE(plg)<>""))
isabelle
Le 2015-10-19 14:14, Jacquouille a écrit :
Isabellllllllllle,
Le Monsieur, il a dit 12.500 lignes. A1:A100, ça va coincer un peu, n? -))
Hop, Go to 3 min in IV65536 !
Jacquouille, pas sévère du tout.
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : n033mf$jh3$
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. http://www.avast.com
Salut Isabelle
Il est certain que c'est toujours mieux de travailler avec des plages ou cel
nommées.
cela évite les erreurs en cas de gymnastique dans la feuille.
Pour ce qui est des protestations, c'est trop tard. La Loi prévoit un délais
de 30 min ..... -))
Bonne fin de journée
jac.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
n03rkh$da9$1@speranza.aioe.org...
hÉéééééééééé! je proteste haut et fort ;-)
c'est bien mieux de nommé dynamiquement la plage avec le nom "plg"
ÞCALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))
comme c'est plus court
=SOMMEPROD(NON(ESTERREUR(TROUVE("10B/281 - 10B/295";plg)))*(LIGNE(plg)<>""))
isabelle
Le 2015-10-19 14:14, Jacquouille a écrit :
Isabellllllllllle,
Le Monsieur, il a dit 12.500 lignes. A1:A100, ça va coincer un peu,
n? -))
Hop, Go to 3 min in IV65536 !
Jacquouille, pas sévère du tout.
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
n033mf$jh3$1@speranza.aioe.org...
Il est certain que c'est toujours mieux de travailler avec des plages ou cel nommées. cela évite les erreurs en cas de gymnastique dans la feuille. Pour ce qui est des protestations, c'est trop tard. La Loi prévoit un délais de 30 min ..... -))
Bonne fin de journée jac.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : n03rkh$da9$
hÉéééééééééé! je proteste haut et fort ;-) c'est bien mieux de nommé dynamiquement la plage avec le nom "plg" ÞCALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))
comme c'est plus court =SOMMEPROD(NON(ESTERREUR(TROUVE("10B/281 - 10B/295";plg)))*(LIGNE(plg)<>""))
isabelle
Le 2015-10-19 14:14, Jacquouille a écrit :
Isabellllllllllle,
Le Monsieur, il a dit 12.500 lignes. A1:A100, ça va coincer un peu, n? -))
Hop, Go to 3 min in IV65536 !
Jacquouille, pas sévère du tout.
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : n033mf$jh3$