Renvoie des donnes automatiquement

youky(BJ) à dit:

Bonjour,
Comme dit gosselien sans fichier perso j'ai fait la macro mais ne l'ai pas essayée
Pas envie de tout écrire !
Donc à tester
Bruno

VB:

Sub grouper()
bas = [A65000].End(3).Row
For k = 4 To bas
tar = Cells(k, 1): dat = Cells(k, 2)
For lig = bas To k + 1 Step -1
If Cells(lig, 1) = tar And Cells(lig, 2) = dat Then
If Cells(lig, 10) <> "" Then
Range("I" & k & ":K" & k).Value = Range("I" & lig & ":K" & lig).Value
End If
If Cells(lig, 7) <> "" Then
Range("F" & k & ":H" & k).Value = Range("F" & lig & ":H" & lig).Value
End If
Rows(k).Delete
bas = bas - 1
End If
Next
Next
End Sub

Cliquez pour agrandir...