Indiquer des liaisons entre données excel

Question

Bonjour.

Débutant en vba, je cherche à faire ceci :
comparer les valeurs en B. Lorsqu'elles sont identiques, remplir 1 matrice comme l'exemple ci-dessous (le programme se chargerait de remplir E,F,G)

Quelqu'un a une idée sur la façon de résoudre ça ?

Merci.

A    B            E       F       G
-----------------------
A1  B1
A2  B2    ->  A2     A3
A3  B2
A4  B3 
A5  B4     ->  A5     A6  A7
A6  B4
A7  B4

tubafat · Answer

Salut tu peux faire ça par un moyen de boucle en testant les valeurs... Je ne sais pas si c'est le plus optimisé mais ça marche...

Private Sub test()
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = 1
j = 1
While ActiveWorkbook.ActiveSheet.Cells(i, 1) <> ""
If ActiveWorkbook.ActiveSheet.Cells(i, 2) = ActiveWorkbook.ActiveSheet.Cells(i + 1, 2) Then
    j = i + 1
    ActiveWorkbook.ActiveSheet.Cells(i, 5) = ActiveWorkbook.ActiveSheet.Cells(i, 1)
    k = 1
    While ActiveWorkbook.ActiveSheet.Cells(i, 2) = ActiveWorkbook.ActiveSheet.Cells(j, 2)
    ActiveWorkbook.ActiveSheet.Cells(i, 5 + k) = ActiveWorkbook.ActiveSheet.Cells(j, 1)
    k = k + 1
    j = j + 1
    Wend
i = j - 1
End If
i = i + 1
Wend
End Sub

Tubafat  
Avant d'imprimer, pensez à l'environnement

cs_lylandra · Answer

Grand merci de ta prompte réponse :)
J''essaie demain si ça marche.

Indiquer des liaisons entre données excel

2 réponses

Votre réponse

Discussions similaires