Bonjour
voici le code et le fichier
Sub a()
'phase 1 feuille 0-doublon
'nettoyer feuille
Sheets("0doublon").Select
Range("A2
100000").Select
Selection.ClearContents
'copier base et supprimer doublons dans feuille 0-doublons
'copier base
Sheets("base").Range("A2:C100000").Copy Sheets("0doublon").[A1]
With Sheets("0doublon")
'supprimer doublons
.Range("A1:C" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Array(1, 2, 3), 1
'concatener
.Range("D1") = "concat"
.Range("D2
" & Cells(Rows.Count, 1).End(3).Row) = "=RC[-3]&RC[-2]"
End With
' phase 2 feuille denombrer
Sheets("0Doublon").Range("A2:C100000").Copy Sheets("0doublon").[A1]
'nettoyer feuille denombrer
Sheets("denombrer").Select
Range("A2
100000").Select
Selection.ClearContents
'copier données 0doublons vers feuille denombrer
Sheets("0doublon").Range("A1:B100000").Copy Sheets("DENOMBRER").[A1]
With Sheets("denombrer")
'Supprimer doublons
.Range("A1:B" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Array(1, 2), 1
'concatener
.Range("C1") = "concat"
.Range("C2:C" & Cells(Rows.Count, 1).End(3).Row) = "=RC[-2]&RC[-1]"
'denombrer
.Range("D1") = "Dénombrer"
.Range("D2
" & Cells(Rows.Count, 1).End(3).Row) = "=COUNTIF('0doublon'!C,denombrer!RC[-1])"
'Evaluer
.Range("E1") = "Note"
.Range("E2:E" & Cells(Rows.Count, 1).End(3).Row) = "=VLOOKUP(RC[-1],note,2)"
End With
'supprimer les colonnes concat
'masquer feuille 0-doublon
End Sub
==> cependant si je veux supprimer les colonnes "concat" à la fin, ça ne fonctionne plus car les formules sont actives dans les cellules
sauf si je passe par un copier/ collage spécial
mais je suppose qu'il ya mieux .
Cdl
Chvalet