Discussion :

[kassarasta]

Bonjour a tous,

Je refait une nouvelle conversation car je me suis aperçu que je m'exprimé mal sur l'ancienne.

Etant nul en conception de macro ( limite j'y connais rien ) j'aurai besoin d'un coup de main.

Ce dont j'ai besoin c'est que la macro recherche les doublons de la colonne A à D et que si c'est un doublons qu'il concatener la ligne entière! Et ce la jusqu’à la fin de mon fichier qui comporte pour le moment 96000 lignes et ou il risque y en avoir plus au final.

Mon patron me demande cela aujourd'hui pour hier ( façon de parler ) donc c'est relativement urgent!!

Merci d'avance à tous.

[Daniel.C]

Bonjour,

Désolé, mais ce forum n'est pas, à mon avis, destiné à fournir des solutions clé en main à des utilisateurs qui ne comprendront rien à ce qu'on leur fournit. Je ne vois pas l'intérêt de faire croire à ton patron que tu connais VBA alors que tu l'ignores. "Ignorance n'est pas vice" comme on dit. Tu y gagneras peut-être une formation.

[kassarasta]

Bonjour Daniel,

Je suis bien d'accord avec vous, mais l'objectif n'est pas de faire croire à mon patron que je suis doué en VBA il le sait deja que je suis une bille a ce sujet.

L'objectif réel est de lui fournir la réponse qu'il souhaite le plus rapidement possible!

La formation est une bonne idée et lui re-soumettrai l'idée en espèrant avoir une réponse positive cette fois ci!!

[Daniel.C]

Donne un exemple de tes données parce que je ne comprends pas bien ce que tu veux faire des doublons.

[kassarasta]

http://www.cjoint.com/c/FBzkXf1Udxi

[DonkeyPuncher]

Salut,

Si tu as le même contenu dans les colonnes A à D, tu dois concaténer ces 4 valeurs c'est bien ça? Où faut-il mettre le résultat ensuite?

DP

[kassarasta]

Le test de doublon doit etre fait sur les colonnes A à E et si c'est un doublons concatener la ligne entiere.

[Invité]

Bonjour,
soit tranquilles, c'est moi qui n'est rien compris!
je pesai que le macro que je tes fournis faisait exactement ce que tu demandais!

[kassarasta]

pas grave j'ai réussit a faire quelque chose mais dit moi si vous pensez que cela va.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
 
With Sheets(1)
 
Dim DernLigne As Long
DernLigne = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
 
For i = 3 To DernLigne
 
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
 
For j = 6 To 22 'de la col F:F à V:V
Cells(i - 1, j).Value = Cells(i - 1, j).Value & " ; " & Cells(i, j).Value
Next j
 
Rows(i).Delete
 
i = i - 1
 
End If
Next i
 
End With
End Sub