Doublon sur une ligne

Résolu/Fermé
sousmarinier56 Messages postés 14 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 14 mars 2022 - 25 mars 2019 à 17:11
sousmarinier56 Messages postés 14 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 14 mars 2022 - 28 mars 2019 à 10:46
5 6 5 8 1 8 8 8
11 7 3 3 6 8 7 6
5 5 7 7 12 14 5 6
Voici 3 lignes avec plusieurs fois le même nombre .
Comment faire pour garder qu'une seule fois le nombre ?
Merci
Cordialement
Guy Le Strujon
A voir également:

3 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
25 mars 2019 à 17:45
Bonjour,

S'il s'agit de 3 lignes de texte, avec une fonction personnalisée :
Function NombreUnique(texte As String) As String
Dim t As Variant
Dim d As Object
Dim i As Long
  t = Split(texte, " ")
  Set d = CreateObject("Scripting.Dictionary")
  For i = LBound(t) To UBound(t)
    d(t(i)) = ""
  Next i
  NombreUnique = Join(d.keys, " ")
  Erase t
  Set d = Nothing
End Function
1
sousmarinier56 Messages postés 14 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 14 mars 2022
25 mars 2019 à 17:57
Bonjour et Merci ,
En fait ,il n'y a pas que 3 lignes mais plus de 100 lignes .
C'est une suite de ligne de 8 chiffres qui sont des résultats de recherche pour les courses hippiques , et , parfois il y a des doublons comme dans les 3 exemples .
Cordialement .
GLS
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
Modifié le 25 mars 2019 à 20:50
3, 100 ou 1000 la fonction donne le résultat par rapport à la ligne, mais pas l'ensemble des lignes, il faut donc une fonction par ligne
0
sousmarinier56 Messages postés 14 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 14 mars 2022
26 mars 2019 à 07:39
Merci Patrice pour votre aide .Hélas , je ne suis pas un costaud d'Excel . Je ne sais pas comment faire . Si cela ne vous dérange pas , pouvez vous m'aider encore a me servir de ce système .
Cordialement .
Guy
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
Modifié le 26 mars 2019 à 10:36
Un exemple
https://send.firefox.com/download/3aeb7bfbe8/#u-cZj1tVQDw81CzhSKt0iw
Il faut autoriser les macros
0
sousmarinier56 Messages postés 14 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 14 mars 2022
Modifié le 26 mars 2019 à 17:11
Je suis désolé j'ai fais une grosse gaffe , j'étais dans mon monde , je me suis mal exprimé , veuillez m'excuser .
Voici le vrai model que je vous présente s une feuille Excel
Je suis désolé , vraiment .
Chaque chiffre se trouve dans une case et non a suivre dans une même case .
J'ai fais une pièce jointe mais je ne vois pas ou vous la poser .
Merci pour le travail qui pourra un jour m'aider
Cordialement
0
Raymond PENTIER Messages postés 58395 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 096
26 mars 2019 à 18:19
Salut, Guy.

Sans passer par une macro en VBA, on peut y arriver ainsi :
1) Les dizaines de données texte sont en colonne A
2) Copier-Coller la colonne A en colonne B
3) Sélectionner la colonne B et faire DONNÉES/Convertir / Délimité/Espace/Standard : Les colonnes B à I sont calculées.
4) les colonnes J à Q vont afficher les résultats souhaités : en J2, formule =B2 à recopier vers le bas ; en K2, formule =SI(NB.SI($B2:C2;C2)=1;C2;"-") à recopier vers la droite et vers le bas.
https://www.cjoint.com/c/ICArpAkoHFu
1
sousmarinier56 Messages postés 14 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 14 mars 2022
26 mars 2019 à 19:27
Merci Monsieur ,
J'applique votre méthode à la lettre mais, je dois oublier quelque chose .
Je ne possède pas la colonne A
J'ai V1a V8 mais rien ne se passe .....
Pouvez vous m'aider ? avant le p'tit ponch ......
0
Raymond PENTIER Messages postés 58395 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 096
26 mars 2019 à 23:08
J'avoue que je ne comprends pas ...
  • 1) Tu as dit avoir plus de 100 lignes ; alors qu'est-ce qu'il y a dans les 8 cellules V1:V8 ?
  • 2) Ma démonstration commence par " Les dizaines de données texte sont en colonne A ", comme cela se voit sur l'image et dans le fichier joint. Alors pourquoi déclarer "Je ne possède pas de colonne A " ?
0
sousmarinier56 Messages postés 14 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 14 mars 2022
27 mars 2019 à 08:38
Bonjour Raymond ,
Je dois vous remercier , votre explication est super , c'est moi suis parti dans une complication .
Pour vous expliquez : dans Excel j'ai 8 pronostiques dans 8 cases sur la même ligne , donc plusieurs mêmes numéros .(5.6.5.8.1.8.8.8) . Evidemment j'ai des centaines de lignes les unes sous les autres .
Voila , votre explication vient de me sauver .
Grand Merci
Cordialement .
Guy
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
26 mars 2019 à 23:05
Re,

Exemple :
https://send.firefox.com/download/2f6401b41d199b64/#aNFjfYkLvDADsek8igwfwg
1
sousmarinier56 Messages postés 14 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 14 mars 2022
27 mars 2019 à 08:42
C'est super , j'ai une autre façon d'avoir le résultat .
Je vous remercie beaucoup .
Cordialement .
GLS
0
sousmarinier56 Messages postés 14 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 14 mars 2022
28 mars 2019 à 07:45
https://www.cjoint.com/c/ICCgOFqZXQ5
Voici le nouvel excel , auriez vous la gentillesse de m'aider encore ?
Sur la gauche se trouve les 4 premiers chevaux de l'arrivée et a droite pour avoir en vert les résultats de l'arrivée .
Merci de tout cœur .
Cordialement
Guy
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
Modifié le 28 mars 2019 à 09:14
Voilà :
https://send.firefox.com/download/9320b5707aacada0/#vXv5HgqZ23l0gqgdRFO0hw
https://send.firefox.com/download/9aea14ada1f3c701/#UlV7CdyAIPwuzEboV5qv4A
0
sousmarinier56 Messages postés 14 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 14 mars 2022
28 mars 2019 à 10:46
BRAVO !!! et encore MERCI .
0