Discussion :

[Mimosa777]

Bonjour a tous et a toutes,

j'apprecierais vos idées et suggestions sur ce qui suit svp :

J'ai un tableur excel qui contient 2 colonnes (USAGER / TRANSIT)
USAGER contient une seule valeur tel que z23232 mais TRANSIT peut contenir 1 ou plusieurs valeurs de ce type : re11111,re34345,ca43456, etc... Voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
USAGER   |  TRANSIT
z12547    |   re11111,re45456,cr45r45
z23123    |   re45674
z09890    |   re4e434,tr65678,01aswe4

L'objectif est de pouvoir lire chaque valeur séparemment dans chacune des cellules TRANSIT et d'afficher pour chaque USAGER tous ces TRANSITS sur plusieurs lignes pour avoir cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
USAGER   |  TRANSIT
z12547    |   re11111
z12547    |   re45456
z12547    |   cr45r45
z23123    |   re45674
z09890    |   re4e434
z09890    |   tr65678
z09890    |   01aswe4

Ce que je pense faire est de récupérer chacune des valeur de TRANSIT pour chaque USAGER dans une nouvelle feuille et ainsi je seais en mesure a partir de ma feuille d'origine de créer mes conditions pour le reste de mon projet.

Pensez vous que c'est une bonne idée ainsi, et si oui, pouvez vous m'aidez ou me guider a realiser ce bout de code pour récupérer séparemment mes Transits car je n'arrive pas a faire la recupération lorsqu'il y a plusieurs valeurs dans une cellule.

Je vous remercie d'avance de votre aide.

[wilfried_42]

Bonjour

Voici une macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub recopie()
Dim ligne As Long
Dim tablo As Variant
Dim i As Integer
ligne = 1
While ligne <= Range("A65536").End(xlUp).Row
    ligne = ligne + 1
    If InStr(Cells(ligne, 2), ",") > 0 Then
        tablo = Split(Cells(ligne, 2), ",")
        For i = 0 To UBound(tablo) - 1
            Range("A" & ligne + 1).EntireRow.Insert
        Next i
        For i = 0 To UBound(tablo)
             Cells(ligne + i, 2) = tablo(i)
             Cells(ligne + i, 1) = Cells(ligne, 1)
        Next i
    End If
Wend
End Sub

à tester

Bonne soirée

[Mimosa777]

WOW. Magnifique wilfried_42. C'est exactement ce que je voulais. Je te remercie enormement pour cet macro.

Ce qui me reste a faire maintenant est de tenir compte des autres caracteres de separation tel que /, et, -, etc...

Aussi, je me dois de stocker la recuperation sur un autre feuille car cet macro ecrase ce que j'ai dans ma feuille. Je mettrai une version modifier de cet macro avec me besoins pour ce qui a interesse.

Merci encore wilfried_42

[Abed_H]

Bonsoir
voici une variante parmis d'autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test1()
Dim Vl As Variant
Dim i As Integer, x As Integer, y As Integer
i = 2: x = 1
 Do Until IsEmpty(Feuil1.Cells(i, 1)) '// boucler sur la plage de données de la feuille 1
   Vl = Split(Feuil1.Cells(i, 2), ",") ' récupérer l'information dans un tableau
        For y = 0 To UBound(Vl)
            Feuil2.Range("A" & x) = Feuil1.Cells(i, 1) '// copie les données vers le feuille 2
          Feuil2.Range("B" & x) = Vl(y) '// " " "
         x = x + 1
     Next
 i = i + 1
 Loop
End Sub

Bonne soirée

Abed_H

[Mimosa777]

Merci Beaucoup Abed. Ca marches a merveille aussi et je peux recopier dans une nouvelle feuille.

Merci beaucoup