Traitement de chaine de données

Bonjour,

C'est encore moi et mes tailles. J'ai l'impression de ne pas m'en sortir :/

J'ai fait des recherches et j'ai réussi à avoir une fonction pour rechercher les tailles d'une liste de références et de les inscrire dans une cellule ce qui me donne un format de ce type :

70A,75A,80A,85A,70B,75B,80B,85B,70C,75C,80C,85C,70D,75D,80D,85D,70E,75E,80E

J'ai eu grâce à vous un code pour avoir le résultat final mais j'ai un trou dans mes étapes car pour utiliser le code de ma dernière étape, il faut que le format soit : 70A-85A,70B-85B,70C-85C,70D-85D,70E-80E

Comme on me change tous les jours ma source et donc le format, c'est pour cela que je dois encore faire des ajustements. Je suis ravie

Le mieux serait de rechercher la plus grande et la plus petite taille pour chaque cup (A,B,C,...G) car les tailles peuvent aller de 60 jusqu'à 115 donc je ne peux pas me baser uniquement sur les tailles que l'on a dans mon fichier afin que le code fonctionne pour les données à venir.

Si les données n'étaient pas toutes dans la même cellule, j'aurais pu simplement faire une recherche du plus petit et du plus grand, puis les concaténer mais ce n'est pas le cas... Voilà pourquoi je me tourne encore une fois vers vous.

Si vous pouvez m'aider par n'importe quel moyen, ce serait top !

Merci

Bonjour.

Voici une première solution.

thebenoit59 a écrit :

Bonjour.

Voici une première solution.

Bonjour et merci pour ton aide thebenoit59.

Malheureusement, je ne peux pas utiliser de dico car je suis sous mac :/

Est-il possible de remplacer la partie faite avec dico en collection ?

Je viens de regarder mais je ne sais pas si ca peut résoudre le problème

Tu peux regarder le lien suivant pour simuler un dictionary.

http://boisgontierjacques.free.fr/pages_site/Dictionnaire.htm#SimulDictMac

thebenoit59 a écrit :

Tu peux regarder le lien suivant pour simuler un dictionary.

http://boisgontierjacques.free.fr/pages_site/Dictionnaire.htm#SimulDictMac

Merci

J'ai regardé et j'ai importé les deux fichiers qu'il donne dans des modules de classe mais je ne sais pas quoi faire maintenant...

Bonjour à tous,

Je suis désolé de revenir vers vous mais je ne m'en sors vraiment pas.

Je vous appelle donc à l'aide. Même des pistes pour obtenir ce que j'ai besoin serait déjà top.

Merci mille fois !

Cordialement,

Thibault

bonjour,

une proposition

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To dl
        fm = ""
        For j = 65 To 75
            c = Chr(j)
            s = False
            m = ""
            For k = 60 To 120 Step 5
                If InStr(Cells(i, 1), k & c) <> 0 Then
                    If s = False Then
                        s = True
                        m = m & IIf(m = "", "", ",") & k & c
                    End If
                Else
                    If s = True Then
                        s = False
                        m = m & "-" & k - 5 & c
                    End If
                End If
            Next k
            If m <> "" Then fm = fm & IIf(fm = "", "", ",") & m
        Next j
        Cells(i, 2) = fm
    Next i

End Sub

h2so4 a écrit :

bonjour,

une proposition

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To dl
        fm = ""
        For j = 65 To 75
            c = Chr(j)
            s = False
            m = ""
            For k = 60 To 120 Step 5
                If InStr(Cells(i, 1), k & c) <> 0 Then
                    If s = False Then
                        s = True
                        m = m & IIf(m = "", "", ",") & k & c
                    End If
                Else
                    If s = True Then
                        s = False
                        m = m & "-" & k - 5 & c
                    End If
                End If
            Next k
            If m <> "" Then fm = fm & IIf(fm = "", "", ",") & m
        Next j
        Cells(i, 2) = fm
    Next i

End Sub

Que dire a par merciiiiiii <3

C'est juste parfait et en plus, ce n'est pas la première fois que tu m'aides.