Discussion :

[Jamalbenda]

Bonjour, J'ai un fichier de projet que je récupère chaque semaine et je voudrais mettre à jour un autre fichier excel avec ces donnés. dans le premier fichier le nom des data qui correspondent au nom des colonnes du second fichier : Je m'explique :

premier fichier à trier (ces informations se répète x fois dans le fichier) :

1.
R0 or R1 : R1
Project name : CVL - Budget
Opportunity name : Limited
Buyer : XXX
Opportunity ID : 666666
Quantity : 2 x Y
Installed country : France
...

2.
R0 or R1 : R1
Project name : CVL - Budget
Opportunity name : Limited
Buyer : XXX
Opportunity ID : 666666
Quantity : 2 x Y
Installed country : France
...

n.

Second fichier existant ou je veux faire correspondre le nom des colonnes au nom des lignes (Ici la colonne IPS correspond à la ligne Opportunity ID, R à la ligne R0 or R1, etc):

Last Update - IPS - Project Name - End Customer - Project country - R ....

je ne sais pas si c'est clair comme détail ? Merci pour vos conseils et solutions.

Cordialement.

[jfontaine]

Bonjour,

A toi de finir l'adaptation après analyse de ce code

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
Sub Importation()
 
Dim i As Long 'ligne feuille source
Dim j As Long 'ligne feuille destination
Dim iBlanc As Byte 'Compte si 2 lignes vide contigûes
Dim Str() As String
 
i = 1
j = 1
 
 
Do While iBlanc < 2
    If Range("A" & i).Value = "" Then
        iBlanc = iBlanc + 1
 
    Else
        Str = Split(Range("A" & i).Value, ":")
        Select Case Trim(Str(0))
            Case "R0 or R1"
                j = j + 1
                Sheets("Feuil2").Range("A" & j).Value = Str(1)
            Case "Project name"
                Sheets("Feuil2").Range("B" & j).Value = Str(1)
            Case "Opportunity name"
                Sheets("Feuil2").Range("C" & j).Value = Str(1)
            Case "Buyer"
                Sheets("Feuil2").Range("D" & j).Value = Str(1)
            Case "Opportunity ID"
                Sheets("Feuil2").Range("E" & j).Value = Str(1)
            Case "Quantity  "
                Sheets("Feuil2").Range("F" & j).Value = Str(1)
            Case "Installed country"
                Sheets("Feuil2").Range("G" & j).Value = Str(1)
        End Select
 
    End If
 
    i = i + 1
Loop
 
End Sub