Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

extraire des doublons d'une chaine de caractères

F

finarobert

XLDnaute Nouveau
Bonjour
J'ai une chaine de caractères qui peut être très longue de type :AZEDZEZSDAZEDZFREZQSSUAAZEDZAAAEZQSSU

je cherche un programme vba pour extraire de cette chaines les doublons (ou plus) d'au moins 5 caractères:
Par exemple dans mon exemple, j'ai 3 fois AZEDZ et 2 fois EZQSSSU
pouvez vous me donner une solution à ce problème?
merci
Boby
 
Solution
Bonsoir
perso 2 boucles imbriquées et un dico tu a ton truc pour 5,6,7,etc....
reste a savoir ce que tu veux faire des chaines de longeur inférieure a d'autres qui sont contenues dans les plus grandes
et cela peut se régler facilement
exemple
VB: 
Sub test()
    Dim Dic As Object, A&, B&, Elem, Chaine$

    Chaine = "AZEDZEZSDAZEDZFREZQSSUAAZEDZAAAEZQSSU"

    Set Dic = CreateObject("scripting.dictionary")

    For i = 1 To Len(Chaine)
        For B = 5 To Len(Chaine) - (i - 1)
            Dic(Mid(Chaine, i, B)) = Dic(Mid(Chaine, i, B)) + 1
        Next
    Next
    'lecture du dico
    For Each Elem In Dic
        If Dic(Elem) > 1 Then Debug.Print Elem & "--->" & Dic(Elem)
    Next
End Sub
et on peut transformer ça en fonction et...
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
Bonsoir
perso 2 boucles imbriquées et un dico tu a ton truc pour 5,6,7,etc....
reste a savoir ce que tu veux faire des chaines de longeur inférieure a d'autres qui sont contenues dans les plus grandes
et cela peut se régler facilement
exemple
VB: 
Sub test()
    Dim Dic As Object, A&, B&, Elem, Chaine$

    Chaine = "AZEDZEZSDAZEDZFREZQSSUAAZEDZAAAEZQSSU"

    Set Dic = CreateObject("scripting.dictionary")

    For i = 1 To Len(Chaine)
        For B = 5 To Len(Chaine) - (i - 1)
            Dic(Mid(Chaine, i, B)) = Dic(Mid(Chaine, i, B)) + 1
        Next
    Next
    'lecture du dico
    For Each Elem In Dic
        If Dic(Elem) > 1 Then Debug.Print Elem & "--->" & Dic(Elem)
    Next
End Sub
et on peut transformer ça en fonction et même utilisable en formule
 
Vote positif 0 Vote négatif
Solution

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir @patricktoulon ,

Il y a un petit problème selon moi.

Si on compte le nombre de caractères des doublons (fréquence par nombre de caractères) et qu'on somme alors on trouve un nombre de caractères pour les doublons (47) supérieur à la longueur de la chaine source (37) ?



Avec le code du mon fichier du message #8 (finarobert- Extraire- v2a.xlsm), les composants des doublons sont exclus, ce qui donne : 27 caractères pour les doublons pour 37 caractères de la chaine source.
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
@mapomme
je n'ai pas regardé ton fichier
c'est bien pour ça que j'ai dis
faut il encore savoir ce qu'il veux faire des doublons INSTR DE LONGUEUR INFERIEURES
et puis surtout quand je lis l'énoncé qui est contradictoire finalement
je cherche un programme vba pour extraire de cette chaines les doublons (ou plus) d'au moins 5 caractères:
Par exemple dans mon exemple, j'ai 3 fois AZEDZ et 2 fois EZQSSSU
pouvez vous me donner une solution à ce problème?
Cliquez pour agrandir...
a aucun moment il demande de les exclure
cela dit comme je l'ai dit dans le dico facile de faire un remove si instr >0
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
en fait si on va bien chercher
VB: 
solei   >  6
soleil   >  6
oleil   >  6
azert   >  5
azerta   >  3
azertaz   >  3
azertaze   >  3
azertazer   >  3
azertazert   >  3
azertazerta   >  2
azertazertaz   >  2
azertazertaze   >  2
azertazertazer   >  2
azertazertazert   >  2
zerta   >  3
zertaz   >  3
zertaze   >  3
zertazer   >  3
zertazert   >  3
zertazerta   >  2
zertazertaz   >  2
zertazertaze   >  2
zertazertazer   >  2
zertazertazert   >  2
ertaz   >  3
ertaze   >  3
ertazer   >  3
ertazert   >  3
ertazerta   >  2
ertazertaz   >  2
ertazertaze   >  2
ertazertazer   >  2
ertazertazert   >  2
rtaze   >  3
rtazer   >  3
rtazert   >  3
rtazerta   >  2
rtazertaz   >  2
rtazertaze   >  2
rtazertazer   >  2
rtazertazert   >  2
tazer   >  3
tazert   >  3
tazerta   >  2
tazertaz   >  2
tazertaze   >  2
tazertazer   >  2
tazertazert   >  2
gqsdf   >  2
gqsdfg   >  2
gqsdfgq   >  2
gqsdfgqs   >  2
qsdfg   >  2
qsdfgq   >  2
qsdfgqs   >  2
sdfgq   >  2
sdfgqs   >  2
dfgqs   >  2
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
ok donc 5 caratères et 5 fois minimum
donc ceux ci sont bons
solei > 6
soleil > 6
oleil > 6
azert > 5
et si tu me dis oui mais certains ne sont pas des mots entiers
je te reponds que excel ça il n'en sait rien et c'est bien là ou est la limite d'excel car il n'a pas de dictionnaire
 
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
Quand j'ai trouvé un doublon (du plus long au plus court), je l'élimine des recherches suivantes de doublons.
Si je trouve soleil, je ne trouverai pas ensuite les doublons le composant (sauf s'ils sont ailleurs que dans les mots soleil).
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
mapomme à dit:
Quand j'ai trouvé un doublon (du plus long au plus court), je l'élimine des recherches suivantes de doublons.
Si je trouve soleil, je ne trouverai pas ensuite les doublons le composant (sauf s'ils sont ailleurs que dans les mots soleil).
Cliquez pour agrandir...
re
et comment veux tu que vba fasse la différence entre
soleil soleil!! toi mon soleil printanier qui ensoleille la plaine jusqu'au crépuscule
on fait quoi on le garde le ensoleille ?
si tu me dis oui alors ta reponse n'a pas de sens

apres @finarobert parle de musique
là je pense qu'il y a plus simple a faire (Do Ré Mi Fa Sol La Si Do )
 
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
patricktoulon à dit:
soleil soleil!! toi mon soleil printanier qui ensoleille la plaine jusqu'au crépuscule
on fait quoi on le garde le ensoleille ?
si tu me dis oui alors ta reponse n'a pas de sens
Cliquez pour agrandir...
Oui !

J'ai dit :
  • Je recherche les doublons du plus long au plus court
  • si j'en trouve un, je compte sa fréquence et je retire de la chaine les caractères de ces doublons (remplacés par Chr(6) )
  • et je continue

  • donc "ensoleille" n'est pas doublon => je ne compte rien et ne remplace rien
  • arrivé à "soleil" c'est un doublon =>je le compte 3 fois et je retire les "soleil" de la chaine
  • et je continue
Je ne sais pas si j'ai raison mais c'est comme ça que j'ai raisonné (bien ou mal ?)


patricktoulon à dit:
soleil soleil!! toi mon soleil printanier qui ensoleille la plaine jusqu'au crépuscule
Cliquez pour agrandir...

nota : Je calme tout de suite tes ardeurs sentimentales, tu ne dois rien espérer, je ne serai jamais ton soleil printanier, non mais... .
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2016 Extraire chaine de caractères
Réponses
14
Affichages
361
job75
I
  • Résolu(e)
XL 2016 Obtenir une partie d'une chaine de caractères
Réponses
9
Affichages
355
iliess
I
A
  • Question
Microsoft 365 Extraire chaine qui se répète
Réponses
10
Affichages
230
danielco
D
I
  • Résolu(e)
Microsoft 365 Extraire une partie d'une chaine de caractères
Réponses
6
Affichages
403
mapomme
P
  • Question
Microsoft 365 Extraire la totalité du contenu d'une cellule si une cellule commence par un nombre
2
Réponses
16
Affichages
393
PR.
P
  • Question
XL 2021 Doublons
Réponses
2
Affichages
282
JohnBill
A
  • Résolu(e)
XL 2016 Extraire une chaine de caractère entre deux caractères différents
Réponses
2
Affichages
949
Al1_44
A
J
  • Question
XL 2016 Garder que les doublons de 2 colonnes
Réponses
8
Affichages
296
julien81
J
G
  • Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
17
Affichages
817
gali2
G
M
  • Question
XL 2016 Extraire plusieurs chaînes de caractères d'une même cellule
Réponses
14
Affichages
647
Mam's
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…