Renvoie des donnes automatiquement

softimen · 4 Avril 2018

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 · 4 Avril 2018

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) · 4 Avril 2018

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

gosselien · 4 Avril 2018

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 · 5 Avril 2018

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

softimen · 5 Avril 2018

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

softimen · 9 Avril 2018

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.

Renvoie des donnes automatiquement

softimen

XLDnaute Nouveau

gosselien

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

gosselien

XLDnaute Barbatruc

softimen

XLDnaute Nouveau

softimen

XLDnaute Nouveau

softimen

XLDnaute Nouveau

Pièces jointes

Discussions similaires