Bonjour à ts,
J'ai un petit pb dans une de mes boucle et je n'arrive pas à le résoudre.
J'ai une macro qui me fait la chose suivante:

j'ai en A des nom de société, en B des prix.
De H1 a colonne(n).... j'ai le nom de chaque société existante (une seule apparition, ainsi si il y a 100 ACCOR en A avec 100 prix en B, ACCOR n'apparatra q'une seule fois).
Ma macro jusqu'ici va me chercher les prix pour chaque nom de société existant et me les inscrits en dessous à partir de la ligne 2. Cependant, quand la macro change de colonne, les prix n'apparaissent plus a partir de la seconde ligne mais continuent sur la ligne du dessous ==> e.g. H21 - I22 au lieu de H21 - I2....

Je sais pq cela ne marche pas vu mon code, mais je n'arrive pas à trouver d'autre solution...any help? merci d'avance
Cordialement

Voici mon 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 eeesss()
 
Dim i As Double
Dim j As Double
Dim k As Double
Dim Kd() As Variant
Dim Kd2() As Variant
Dim Nbre As Double
Dim Nbre2 As Double
Dim Tb() As Double
 
Nbre = Cells(Rows.Count, 1).End(xlUp).Row
Nbre2 = Cells(1, Columns.Count).End(xlToLeft).Column
 
 
For i = 2 To Nbre
 
ReDim Kd(i, 2)
 
Kd(i, 1) = Cells(i, 1).Value
Kd(i, 2) = Cells(i, 2).Value
 
For j = 8 To Nbre2
 
If Cells(1, j).Value = Kd(i, 1) Then
 
ReDim Tb(1 To i, 1 To j)
 
Tb(i, j) = Kd(i, 2)
 
 
Cells(i, j).Value = Tb(i, j)
 
End If
Next j
Next i
 
 
 
 
End Sub