Macro workflow

1 pièce(s) jointe(s)

Macro workflow

Bonjour,
je cherche à separer dans des colonnes differentes des information issue d'un workflow
quel qu'un peut il m'aider?
voir fichier xls

Merci

Bonjour,

J'ai un peu de mal décoder ta méthode.
Je suis reparti de zéro

Code:

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
39
40
41
42
43
44
45
46
47
48
 
Sub Fusion2()
 
Dim i As Long
Dim j As Long
 
'Copie la source sur feuille cible
Sheets("_SC").Range("A2:G" & Sheets("_SC").Range("A64000").End(xlUp).Row).Copy
Sheets("Feuil3").Range("A2").PasteSpecial
 
i = 1
 
Do While Sheets("Feuil3").Range("A" & i).Value <> ""
    j = 1
    Do While Sheets("_FU").Range("A" & j).Value <> ""
 
        If Sheets("_FU").Range("A" & j).Value = Sheets("Feuil3").Range("A" & i).Value Then
 
            Select Case Sheets("_FU").Range("B" & j).Value
 
                Case 100
                    Sheets("Feuil3").Range("H" & i).Value = Sheets("_FU").Range("B" & j).Value
                    Sheets("Feuil3").Range("I" & i).Value = Sheets("_FU").Range("C" & j).Value
                    Sheets("Feuil3").Range("J" & i).Value = Sheets("_FU").Range("D" & j).Value
 
                Case 200
                    Sheets("Feuil3").Range("K" & i).Value = Sheets("_FU").Range("B" & j).Value
                    Sheets("Feuil3").Range("L" & i).Value = Sheets("_FU").Range("C" & j).Value
                    Sheets("Feuil3").Range("M" & i).Value = Sheets("_FU").Range("D" & j).Value
 
                Case 300
                    Sheets("Feuil3").Range("N" & i).Value = Sheets("_FU").Range("B" & j).Value
                    Sheets("Feuil3").Range("O" & i).Value = Sheets("_FU").Range("C" & j).Value
                    Sheets("Feuil3").Range("P" & i).Value = Sheets("_FU").Range("D" & j).Value
 
 
            End Select
 
        End If
 
        j = j + 1
    Loop
 
    i = i + 1
Loop
 
 
End Sub

Est ce que ca correspond a ton besoin?

Merci beaucoup, c'est parfait
Bonne continuation...