Renvoie des donnes automatiquement

[softimen]

Bonjour ,
Je suis débutante en VBA et j'ai besoin de votre aide pour résoudre mon petit problème s'il vous plait .
Ma question :

j'ai un tableau de données et je voudrai parcourir mon tableau, si j'ai une repetition (2 ou plus) sur la cellule A et B de chaque ligne ,j'aimerai renvoyer les données de tous le lignes qui se repetent sur une seule ligne ou il y' a les champs vides ,
exemple :

ce que je voudrai avoir s'il vous plait

Merci d'avance pour votre aide.

 

[gosselien]

Bonjour,

pour que les bénévoles ici ne doivent pas refaire ton fichier, peux tu en envoyer un anonymisé ?

P.

ps: il manque une date dans pole C non ?

 

[youky(BJ)]

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

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

 

[gosselien]

re,

Je pense également qu'un fichier présenté (si tu le peux !) autrement aurait aidé...

Mais en ajoutant un colonne "POLE" qui contiendrait A-B ou C et en gardant les autres bien sûr, tout serait facilité

P.

 

[softimen]

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

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

 

[softimen]

Bonjour,
Merci pour votre aide .
Çà fonctionne très bien.
Je vous remercie pour votre aide.

 

[softimen]

Bonjour ,
Je reviens vers vous , comme je me suis basées sur votre code pour résoudre mon problème
Cependant, mon code exécute le regroupement seulement sur 2 lignes pas plus .
J'arrive pas a trouver le problème.
Merci pour votre aide.