Discussion :

[qeelocke]

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

[jfontaine]

Bonjour,

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

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
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?

[qeelocke]

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