Discussion :

[JukeBoX]

Bonjour tout le monde

J'ai une macro qui me permet de compter les cellules en doublons sur la colonne B et j'aimerai que celle-ci fonctionne uniquement sur les lignes visibles.

Pour l'instant voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For J = 1 To Range("B" & Rows.Count).End(xlUp).Row
If Application.CountIf(Columns(2), Range("B" & J)) > 1 Then 
MsgBox "ATTENTION ! PLUSIEURS N° IDENTIQUES ONT ÉTÉ DÉTECTÉS, VEUILLEZ METTRE A JOUR MANUELLEMENT LE FICHIER"
End If
Next

J'ai essayé de trouver des solutions sur Internet mais ma recherche n'a pas abouti... et j'aimerai vraiment pouvoir réaliser cette fonction uniquement sur les cellules visibles
Merci pour votre aide

[ARTURO83]

Bonjour,

Essayez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
     Dim Nb As Long, Lig As Long, i As Long
    Dim Tbl
    Nb = Range("B" & Rows.Count).End(xlUp).Row
    Set D1 = CreateObject("Scripting.Dictionary")
    Tbl = Range("B1:B" & Nb)
    For i = 1 To UBound(Tbl)
        If Rows(i).Hidden = False Then
            Lig = Lig + 1
            D1(Tbl(i, 1)) = ""
        End If
    Next i
    If D1.Count <> Lig Then MsgBox "ATTENTION ! PLUSIEURS N° IDENTIQUES ONT ÉTÉ DÉTECTÉS, VEUILLEZ METTRE A JOUR MANUELLEMENT LE FICHIER"
    Set D1 = Nothing

Cdlt

[JukeBoX]

Bonjour ARTURO83 et merci pour votre réponse

Malheureusement, j'ai essayé votre code et cela me détecte quand même les doublons sur cellules masquées

Je me demande si c'est possible à exécuter

[ARTURO83]

Malheureusement, j'ai essayé votre code et cela me détecte quand même les doublons sur cellules masquées

Ah bon!, voici le fichier en exemple, masquez les lignes de votre choix de telle manière que les cellules visibles soient uniques, vous ne devez pas obtenir le message
Pièce jointe 579457

Sinon, comment est fait votre fichier?

[JukeBoX]

Autant pour moi...

Tout fonctionne à merveille

Pouvez-vous me dire en détails ce que fait votre macro ? Cela me permettra de mieux comprendre par la suite

Merci encore pour aide et d'avoir partager vos connaissances

[ARTURO83]

Dans la boucle, je compte les lignes visibles et avec l'aide d'un dictionnaire je crée un tableau dans lequel j'enregistre toutes les valeurs uniques trouvées et seulement si les lignes sont visibles.
Si le nombre de lignes visibles trouvées est différent du nombre de valeurs enregistrées, alors c'est qu'il y a des doublons.

[JukeBoX]

Merci pour ces explications ARTURO83

J'ai juste remarqué que les cellules vides sont pris en compte, cela ne devrait pas me poser problème mais sait-on jamais... Est-il possible de ne pas tenir compte des cellules vides ?

[ARTURO83]

Bonjour,

J'ai juste remarqué que les cellules vides sont pris en compte, cela ne devrait pas me poser problème mais sait-on jamais... Est-il possible de ne pas tenir compte des cellules vides ?

ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Verif()
    Dim Nb As Long, Lig As Long, i As Long
    Dim Tbl
    Nb = Range("B" & Rows.Count).End(xlUp).Row
    Set D1 = CreateObject("Scripting.Dictionary")
    Tbl = Range("B1:B" & Nb)
    For i = 1 To UBound(Tbl)
        If Rows(i).Hidden = False And Cells(i, "B") <> "" Then
            Lig = Lig + 1
            D1(Tbl(i, 1)) = ""
        End If
    Next i
    If D1.Count <> Lig Then MsgBox "ATTENTION ! PLUSIEURS N° IDENTIQUES ONT ÉTÉ DÉTECTÉS, VEUILLEZ METTRE A JOUR MANUELLEMENT LE FICHIER"
    Set D1 = Nothing
End Sub

Cdlt

[JukeBoX]

Super J'essaye ça cet après-midi et je reviens vous dire

[JukeBoX]

Bonjour,

Désolé de répondre que maintenant mais je reviens juste pour vous dire que le code fonctionne parfaitement à l'usage

Merci encore

[JukeBoX]

Bonjour le forum

Je reviens sur ce sujet car je bloque sur un point...

Le code d'ARTURO83 fonctionne parfaitement pour compter les doublons sans tenir compte des lignes masquées sur la colonne B

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Verif()
    Dim Nb As Long, Lig As Long, i As Long
    Dim Tbl
    Nb = Range("B" & Rows.Count).End(xlUp).Row
    Set D1 = CreateObject("Scripting.Dictionary")
    Tbl = Range("B1:B" & Nb)
    For i = 1 To UBound(Tbl)
        If Rows(i).Hidden = False And Cells(i, "B") <> "" Then
            Lig = Lig + 1
            D1(Tbl(i, 1)) = ""
        End If
    Next i
    If D1.Count <> Lig Then MsgBox "ATTENTION ! PLUSIEURS N° IDENTIQUES ONT ÉTÉ DÉTECTÉS, VEUILLEZ METTRE A JOUR MANUELLEMENT LE FICHIER"
    Set D1 = Nothing
End Sub

J'aimerai juste savoir si cela était possible de comparer les doublons avec la valeur d'une cellule par exemple "A4" et le code ci-dessus (colonne B sans ligne masquées)

Merci !

[ARTURO83]

Bonjour,

Voilà, seule la ligne qui suit le "For i = 1 To UBound(Tbl)" à été modifiée:
Sub Verif_2()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim Nb As Long, Lig As Long, i As Long
    Dim Tbl
    Nb = Range("B" & Rows.Count).End(xlUp).Row
    Set D1 = CreateObject("Scripting.Dictionary")
    Tbl = Range("B1:B" & Nb)
    For i = 1 To UBound(Tbl)
        If Rows(i).Hidden = False And Cells(i, "B") = Range("A4").Value Then
            Lig = Lig + 1
            D1(Tbl(i, 1)) = ""
        End If
    Next i
    If D1.Count <> Lig Then MsgBox "ATTENTION ! PLUSIEURS N° IDENTIQUES ONT ÉTÉ DÉTECTÉS, VEUILLEZ METTRE A JOUR MANUELLEMENT LE FICHIER"
    Set D1 = Nothing
End Sub

Cdlt

[JukeBoX]

Bonjour ARTURO83

Mille mercis pour ta réponse et ton code qui fonctionne parfaitement une fois de plus

Je passe le sujet en résolu !

A bientôt