VBA/EXCEL Compter le nombre de doublons d'une plage

[ketamask]

Bonjour,

j'ai vu le code déjà présent sur le site pour supprimer les doublons d'une colonne

Sub doublon()
Dim derlign As Long, i As Long, j As Long
Application.ScreenUpdating = False
derlign = [a65536].End(xlUp).Row
i = 2
Do While i <= derlign
j = 0
Do While Left(Cells(i, 1), 8) = Left(Cells(i + j, 1), 8)
j = j + 1
Loop
If j <= 2 Then Rows(i + j - 1 & ":" & i).Delete shift:=xlShiftUp: derlign = [a65536].End(xlUp).Row Else i = i + j
Loop
End Sub

Je cherche le nombre de doublons et pas la suppression au fur et à mesure en remontant les lignes....

Est-il possible d'utiliser un countif en vba??? s'il me renvoit > 1 alors doublons...

=COUNTIF(B1:AB50;mavariable)

Help je galère j'ai pas mal cherché mais je cherche un code propre

merci

 

[Pierrot93]

Re : VBA/EXCEL Compter le nombre de doublons d'une plage

Bonjour,

pas sur d'avoir tout compris de ton problème, mais regarde peut être le code ci-dessous s'il peut t'aider :

Option Explicit
Sub test()
Dim x As Byte, vrecherche As Variant
vrecherche = 123
x = Application.CountIf(Range("B1:AB50"), vrecherche)
MsgBox x
End Sub

bonne journée
@+

 

[phlaurent55]

Re : VBA/EXCEL Compter le nombre de doublons d'une plage

Bonjour à tous,

voir fichier joint
sans macro mais avec colonne supplémentaire

à+
Philippe
.

 

[ketamask]

Re : VBA/EXCEL Compter le nombre de doublons d'une plage

merci a tous, pierrot a répondu a mon probleme