arnaud95000
Messages postés46Date d'inscriptionvendredi 3 août 2007StatutMembreDernière intervention18 décembre 2007
-
28 sept. 2007 à 12:49
arnaud95000
Messages postés46Date d'inscriptionvendredi 3 août 2007StatutMembreDernière intervention18 décembre 2007
-
28 sept. 2007 à 15:24
Bonjour, j'ai un petit problème sous VBA, et j'en suis sur que parmi vous certains et certaines ont été confronté, en fait j'ai deux tableaux, le premier avec le nom des clients et le second avec le nom du client le montant et la deduction sachant que dans ce même tableau on retrouve plusieurs fois le même client. Ce que je souhaiterai c'est récuperer cette information et la mettre sur le premier tableau, les résultats étant répartit sur plusieurs colonnes. Je vous mets ci dessous le code, les tableaux et le résultat souhaité ( tel qu'ils sont disposés sur la feuille excel) car je ne suis pas sûr d'avoir été trés clair dans mes explications.
Merci beaucoup
Bonne journée.
Sub macro()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
j = 22
i = 6
l = 6
k = 9
Do While Cells(j, 8) <> ""
Do While Cells(i, 8) <> ""
If Cells(j, 8) = Cells(i, 8) Then
Do While Cells(i, 8) = Cells(l, 8)
Cells(j, k) = Cells(i, 9)
Cells(j, k + 1) = Cells(i, 10)
k = k + 2
i = i + 1
Loop
End If
i = i + 1
Loop
j = j + 1
Loop
End Sub
arnaud95000
Messages postés46Date d'inscriptionvendredi 3 août 2007StatutMembreDernière intervention18 décembre 2007 28 sept. 2007 à 15:24
J'ai réussi à trouver mon code, ce qui était en fait simple mais fallait juste mettre tout çà ds l'ordre. Donc si çà interesse qqun voici le code. Bonne journée.
Sub macro()
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim k As Integer
j = 22
m = 6
n = 6
k = 9
Do While Cells(j, 8) <> ""
Do While Cells(n, 8) = Cells(j, 8)
k = 9
Do While Cells(n, 8) = Cells(m, 8)
Cells(j, k) = Cells(m, 9)
Cells(j, k + 1) = Cells(m, 10)
k = k + 2
m = m + 1
Loop
n = n + 1
Loop
j = j + 1
Loop
End Sub