Modification d'une MACRO sur les doublons

[yoyo]

Bonjour au forum,

Tout d'abord je veux remercier les participants de ce forum qui aide toutes personnes désireuse d’apprendre Excel. BRAVO, BRAVO, BRAVO....

J’ai récupéré la Macro suivante que j’ai télécharger sur le site et qui à été écrite par Michel et Celeda. Cette macro recherche les doublons ,les répertories et les comptabilises :
‘************************************************************************
‘************************************************************************
Option Explicit
Option Private Module

'http://www.excel-downloads.com/html/French/forum/messages/1_59762_59762.htm
'michelxld@yahoo.fr'le 05 12 2003
'Doublons_Macros France/Québec.......2004
'=================================================================
'Module pour la feuille CpteMotsIdentiques
'=================================================================

Sub CompterLesNomsIdentiques()
Dim Cell As Range
Dim Ligne As Integer, I As Integer
Dim M As Byte
Dim U As Boolean
Dim Tableau()
Dim Resultat As String

Ligne = Range("A65536").End(xlUp).Row
M = 1
ReDim Preserve Tableau(2, M)

For Each Cell In Range("B4:B" & Ligne)
U = False
For I = 1 To M
If Cell = Tableau(0, I - 1) Then
Tableau(1, I - 1) = Tableau(1, I - 1) + 1
U = True
End If
Next I

If Tableau(1, M - 1) = "" And U = False Then
Tableau(0, M - 1) = Cell
Tableau(1, M - 1) = 1
M = M + 1
ReDim Preserve Tableau(2, M)
End If
Next Cell

For I = 1 To M - 1
Resultat = Resultat & Tableau(0, I - 1) & Chr(9) & Tableau(1, I - 1) & Chr(10)
Next I
MsgBox Resultat

End Sub
Sub LienMot()
Application.GoTo Reference:=Feuil1.Range("A20"), Scroll:=True
End Sub
‘************************************************************************
‘************************************************************************


Je voudrais que le résultat soit affiché, non pas dans une boite de message mais dans une feuille Excel , une colonne pour le doublons et une colonne pour les quantités de doublons?

 

[Bernard]

Bonjour Yoyo

Je n'ai pas repris la macro précédente !

La liste de base se trouve dans la colonne "A" et la liste à comparer se trouve en colonne "B".

Un bouton "Recherche" lance la macro.

La feuille résultats, remise à zéro à chaque lancement, récupère les doublons et leurs quantités.

Cordialement

Bernard

 

[yoyo]

Bonjour Bernard,

Je te remercie pour ta reponse car c'est un début.

Ce que je cherche à obtenir d'une liste unique les doublons et leurs quantités, sans pour autant les comparer.

Cordialement.

ET VIVE L'ESPRIT D'ENTRAIDE.

YOYO.

 

[michel]

bonjour Yoyo , bonjour Bernard

j'espère que cette adaptation te conviendra . le résultat s'affiche dans les colonne 9 et 10


Sub CompterLesNomsIdentiques_V02()
Dim Cell As Range
Dim Ligne As Integer, I As Integer
Dim M As Byte
Dim U As Boolean
Dim Tableau()
Dim Resultat As String

Ligne = Range("A65536").End(xlUp).Row'adapter la colonne de référence
M = 1
ReDim Preserve Tableau(2, M)

For Each Cell In Range("B4:B" & Ligne)
U = False
For I = 1 To M
If Cell = Tableau(0, I - 1) Then
Tableau(1, I - 1) = Tableau(1, I - 1) + 1
U = True
End If
Next I

If Tableau(1, M - 1) = "" And U = False Then
Tableau(0, M - 1) = Cell
Tableau(1, M - 1) = 1
M = M + 1
ReDim Preserve Tableau(2, M)
End If
Next Cell

For I = 1 To M - 1
Cells(I, 9) = Tableau(0, I - 1) 'colonne 9
Cells(I, 10) = Tableau(1, I - 1) 'colonne 10
Next I

End Sub


bonne journée
MichelXld

 

[yoyo]

Bonjour Bernard,Michel

Je vous remercie tout deux pour l'aide que vous nous apportez.

C'est ce que je recherche.

Bonne journée ainsi que bonne semaine.

YOYO