Méthode itérative Excel pour décomposer champ

Résolu
coco49rico -  
Bonjour,

Je souhaite développer une macro qui décompose des cellules.
Le contenu d'une cellule par exemple:
C1-C10;C12-C14;C15;C17-C20
ou
TP2-TP5; TP6-TP11
...
Le point virgule est le séparateur et le tiret indique une plage.

Mon problème:
comment transformer ces exemples de cellule en
C1;C2;C3;C4;C5;C6;C7;C8;C9;C10;C12;C13;14;C5;C17;C18;C19;C20
ou
TP2;TP3;TP4;TP5;TP6;TP7;TP8;TP9;TP10;TP11

Merci pour votre aide,
Rico

4 réponses

  1.  lermite222 Contributeur
    Bonjour,
    Voir deux fonctions...
    1°) "Replace" pour changer les tirets par des ; (point-virgule)
    2°) "Split" pour tout séparer
    Si tu ne connaît pas ces fonctions, double clic pour mettre le mot en surbrillance (sélectionner) et tape F1.
    A+
    0
    1. rico49-29
      Merci pour la réponse mais cela ne réponds pas à ma problématique de la transformation de C1-C10 en C1;C2;C3;C4;C5;C6;C7;C8;C9;C10

      Rico
      0
      1. lermite222 Contributeur
        Effectivement,
        Mais avec cette macro ça devrait aller... 
        Sub Remplace()
Dim Test As String, C As String, i As Integer, e As Integer, TB1, TB2
Dim Deb As Integer, Fin As Integer, Lettre As String
Dim Result As String
    Test = "C1-C10;C12-C14;C15;C17-C20"
    TB1 = Split(Test, ";")
    For i = 0 To UBound(TB1)
        TB2 = Split(TB1(i), "-")
        If UBound(TB2) = 0 Then 'quand il n'y à qu'une donnée
            If Result <> "" Then Result = Result & ";"
            Result = Result & TB2(0)
        Else
            C = ""
            For e = 1 To Len(TB2(0)) 'début de la série
                If Asc(Mid(TB2(0), e, 1)) < 65 Then Exit For
            Next e
            Deb = Val(Mid(TB2(0), e))
            Lettre = Left(TB2(0), e - 1)
            For e = 1 To Len(TB2(1)) 'fin de la série
                If Asc(Mid(TB2(0), e, 1)) < 65 Then Exit For
            Next e
            Fin = Val(Mid(TB2(1), e))
            For e = Deb To Fin
                C = C & ";" & Lettre & e
            Next e
            If Result <> "" Then Result = Result & ";"
            Result = Result & Mid(C, 2)
        End If
    Next i
End Sub

        A+
        0
        1. rico49-29
          Super, good job. Il ne me reste plus qu'à l'intégrer dans une boucle pour parcourir une liste.

          Merci encore,

          Rico
          0