Y
yoyo
Guest
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?
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?