Discussion :

[NewYork]

Bonjour à ts,

Je suis confronté à un problème qui doit être simple mais je n'ai pas assez de connaissance pour trouver la solution. voici un descriptif (j'ai aussi join le fichier excel):
- J'ai deux colonnes dans une feuille. La colonne B affiche des noms d'entreprise et la colonne C affiche des prix (la colonne A affiche des dates).
Mon but est de modifier l'affichage...je m'explique. Dans une autre feuille, j'aimerais que tous les noms existants n'apparaissent qu'une seule fois sur la lgine 1 (classés par colonne pour eter plus précis) et que les prix correspondant aux noms s'affichent en dessous (dans l'ordre déjà établis).

Pour le moment j'arrive à extraire les noms, mais je butte sur les valeurs....

Auriez vous une idée? Merci d'avance

PS : Voici mon code (sinon le fichier est dispo):

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
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub ImportPrice()
 
Dim wsB As Worksheet
Dim wsJ As Worksheet
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Nbre As Double
Dim nbre2 As Double
Dim Kd() As Double
Dim Cellule As Variant
Dim Tb As Variant
 
Set wsB = ThisWorkbook.Worksheets("Data")
Set wsJ = ThisWorkbook.Worksheets("Price")
 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''Nombre de prix''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Nbre = wsJ.Cells(1, Columns.Count).End(xlToLeft).Column
nbre2 = wsB.Cells(Rows.Count, 1).End(xlUp).Row
CB = nbre2
 
For i = 1 To Nbre
wsJ.Cells(2, i).FormulaR1C1 = "=COUNTIF(prix,Price!R[-1]C)"
Next i
 
wsJ.Cells(3, 1).Value = 2
wsJ.Cells(4, 1).Value = wsJ.Cells(2, 1).Value + 1
 
For i = 2 To Nbre
    Cells(4, i).Value = Cells(4, i - 1).Value + Cells(2, i).Value
Next i
 
For i = 2 To Nbre
    wsJ.Cells(3, i).Value = wsJ.Cells(4, i - 1).Value + 1
Next i
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''Prix par valeur''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Nbre = wsB.Cells(Rows.Count, 1).End(xlUp).Row
 
For i = 1 To 6
         For k = wsJ.Cells(3, i).Value To wsJ.Cells(4, i).Value
            For j = 6 To wsJ.Cells(4, i).Value + 6
 
                wsJ.Cells(j, i).Value = wsB.Cells(k, 3).Value
 
            Next j
        Next k
    Next i
 
 
 
 
 
End Sub