Discussion :

[cwamm]

A1	test1, test2	test1, test4
A1	test3		test10
A2	test1, test9		test1
A2	test7
A3	test1,test3,test8
A1	test4

à un tablaeu de type

A1 test1
A1 test2
A1 test3
A1 test4
A1 test10
A2 test1
A2 test9
A2 test7
A3 test1
A3 test3
A3 test8


J'ai beau cherché, a priori c'est infaisable avec les formules Excel mais je n'ai aucune idée de comment faire en VBA.....

Y aurait il une ame charitable?

[Nico Chg]

Bonjour,

de façon synthétique :

Tu boucle sur tes lignes, puis sur tes colonnes.

Code :

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

1
2
3
4
5
6
7
For I = 1 to XX
     For J = 1 to YY
 
          ...
 
     Next J
Next I

Ensuite, tu récupère la valeur de la colonne A (Boucle I), et tu écris les valeurs correspondantes (Boucle J)

EDIT : Code qui devrait faire ce que tu veux (tu as de la chance, je viens de le créer pour un problème similaire )

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub NonSortedListed()
 
Dim I As Long, J As Long
Dim TempArray As Variant
Dim LastSortedLine As Single
 
Dim LastLine As Single
Dim LastCol as Single
 
Dim Ws As Worksheet
Set Ws = Feuil1
 
With Ws
 
    LastLine = .Columns(1).Find("*", , , , xlByRows, xlPrevious).Row
    LastCol = .Rows(1).Find("*", , , , xlByRows, xlPrevious).Column
 
    'Tu va déterminer la dernière ligne non vide de la colonne A, et la dernière colonne non vide de la ligne 1.
 
    TempArray = .Range(.Cells(2, 1), .Cells(LastLine, LastCol))
 
    LastSortedLine = 2
 
    .Range("L2:M" & UBound(TempArray, 1) * UBound(TempArray, 2)).ClearContents
 
    For I = LBound(TempArray, 1) To UBound(TempArray, 1)
        For J = LBound(TempArray, 2) + 1 To UBound(TempArray, 2)
            If TempArray(I, J) <> "" Then
                .Cells(LastSortedLine, 12) = TempArray(I, 1)
                .Cells(LastSortedLine, 13) = TempArray(I, J)
                LastSortedLine = LastSortedLine + 1
            End If
        Next J
    Next I
 
End With
 
End Sub

je ne sais pas si ça va faire exactement ce que tu veux, mais tu peux essayer le code, et me dire si ça fonctionne chez toi. Tu vas écrire les valeurs dans la colonne L et M.

[keygen08]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim cell As Range
Dim Arrwd
Dim i As Integer
 
For c = 2 To 4
    For r = 1 To 6
    Arrwd = Split(Cells(r, c), ",")
        For i = 0 To UBound(Arrwd)
        Set cell = Range("f100").End(xlUp).Offset(1, 0)
        cell = Cells(r, 1) & " " & Arrwd(i)
'ou cell.offset(0,1)= Arrwd(i)
        Next i
    Next r
Next c