RechercheV

Bonjour,

J'ai trouvé cette macro sur ce site que j'aurais besoin d'utiliser mais elle marche mal
Ce que j'aimerai c'est :
j'ai un fichier excel dans lequel j'ai deux onglets Docteur1 et Docteur2 qui ont déja soigné les memes clients: chaque client est identifiable par un numéro client(qui se trouve en colonne1), j'aimerai créer à partir de ces deux onglets un autre onglet qui me donne tous les clients en commun dans ces deux onglets initiaux ex:
onglet1:
NumClient(que j'ai en colonneA)
FR0125867
CC0354874
BO1578496
ST0045127
AT0584166
US0014872

onglet2:
NumClient(que j'ai en colonneA)
FR0125867
GH0154796
ST0045127
AE0145769
BU0147852

Dans ces deux onglets je n'ai que les deux numéro client en commun donc j'aimerai avoir dans mon nouvel onglet que
FR0125867
ST0045127
bien sur j'ai beaucoup plus de clients que ca dans mes onglets(plusieurs milliers)
Merci J'ai trouvé cette macro sur ce site que j'aurais besoin d'utiliser mais elle marche mal
(si vous avez une idée avec une formule XL ca ira aussi très bien, j'ai essayé avec RECHERHCEV mais j'arrive pas)
Merci

Option Explicit
Option Base 1
Dim T_ens() As String, Col As Byte

Sub repertorier_cursus_entier()

Dim Lig As Integer, Cptr As Integer, Nbre As Integer
Dim Dico As Object
Dim Commun As Byte, ref As String, Nbre_cle As Integer
Dim Lig_fin As Integer, Indice As Integer, ISIN As String, Champ As Byte
Dim Staff, T_out

'répertorie les enseignements
Nbre = ThisWorkbook.Sheets.Count
ReDim T_ens(Nbre)
For Cptr = 1 To Nbre
T_ens(Cptr) = Sheets(Cptr).Name
Next
'et le nombre de colonnes
Col = Sheets(T_ens(1)).Range("z1").End(xlToLeft).Column
Application.ScreenUpdating = False
preparer_classeur
'Nbre = 3 'essais
'------cree la liste des etudiants communs

Set Dico = CreateObject("scripting.dictionary")
With Sheets(T_ens(1))
Lig_fin = .Range("A1").End(xlDown).Row
For Lig = 2 To Lig_fin
ref = .Cells(Lig, 1)
Commun = 1
For Cptr = 2 To Nbre
If Application.CountIf(Sheets(T_ens(Cptr)).Columns(1), ref) = 1 Then Commun = Commun + 1
Next Cptr
If Commun = UBound(T_ens) Then Dico.Add ref, ref
Next Lig
End With
Nbre_cle = Dico.Count
Staff = Dico.items

ReDim T_out(Dico.Count, Col)
For Cptr = 1 To Nbre
With Sheets(T_ens(Cptr))
For Indice = 0 To UBound(Staff)
ISIN = Staff(Indice)
Lig = .Columns(1).Find(ISIN, .Range("A1")).Row
T_out(Indice + 1, 1) = ISIN
For Champ = 2 To Col
T_out(Indice + 1, Champ) = .Cells(Lig, Champ)
Next Champ
Next Indice
With Sheets(Cptr + Nbre)
.Activate
With .Range("A2").Resize(Nbre_cle, Col)
.Value = T_out
.Borders.Weight = xlThin
End With
End With
End With
Next Cptr
End Sub
Sub preparer_classeur()
Dim Cptr As Byte, Num As Byte, Champs




'créé les fiches des "communs"
With Sheets(T_ens(1))
'copie les ent^tes
Champs = Application.Transpose(.Range(.Cells(1, 1), .Cells(1, Col)).Value)
End With
Num = UBound(T_ens)

For Cptr = 1 To Num
Sheets.Add After:=Sheets(Num)

Num = Num + 1
Sheets(Num).Select

Sheets(Num).Name = T_ens(Cptr) & "_ISIN_communs"

'colle les entêtes
With Range("A1").Resize(1, Col)
.Value = Application.Transpose(Champs)
.Borders.Weight = xlThin
End With
Next

End Sub