Autres VBA - Erreur d'exécution '13'

[Elisa47]

Bonjour le forum,

Dans un tableau, j'ai un code qui me permet de détecter les doublons et de les supprimer.
Le code fonctionne correctement, mais si je sélectionnne plusieurs cellules et que je supprime les valeurs de ces cellules, j'ai le message suivant :
Erreur d’exécution ‘13’:
Incompatibilité de type

Voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.WorksheetFunction.CountIf(Range("b2:f35"), Target) > 1 Then
    If MsgBox("Attention ce joueur est déjà dans la grille." & Chr(10) & "Veux-tu l'effacer ?", vbYesNo + vbQuestion) = vbYes Then
        If vbYes Then
            Target.Value = ""
        Else
            Exit Sub
        End If
    End If
End If

End Sub

Merci pour votre aide

 

[Dranreb]

Bonjour.
Ajoutez cette instruction devant :

If Target.CountLarge > 1 Then Exit Sub

 

[Elisa47]

Bonjour.
Ajoutez cette instruction devant :

If Target.CountLarge > 1 Then Exit Sub

Bonjour Danreb,

Merci beaucoup pour votre réponse.

 

[TooFatBoy]

Bonjour,

Le code fonctionne correctement

Certes, mais au niveau de sa logique il me semble ne pas être bon.

    If MsgBox("Attention ce joueur est déjà dans la grille." & Chr(10) & "Veux-tu l'effacer ?", vbYesNo + vbQuestion) = vbYes Then
        If vbYes Then
            Target.Value = ""
        Else
            Exit Sub
        End If
    End If

1- Le "Exit Sub" ne sert à rien puisqu'il n'y a aucune instruction ensuite jusqu'à la fin de la macro.

2- Ici on ne teste pas la réponse de l'utilisateur, on teste simplement la valeur de vbYes. Donc quelle que soit la réponse de l'utilisateur, le résultat du test sera toujours le même.

3- Le "Exit Sub" ne sert à rien puisque, comme expliqué au point numéro 2, on ne passera jamais par le "Else".


Une seule ligne devrait suffire :

    If MsgBox("Attention ce joueur est déjà dans la grille." & Chr(10) & "Veux-tu l'effacer ?", vbYesNo + vbQuestion) = vbYes Then Target.ClearContents

 

[Elisa47]

Bonjour TooFatBoy,

Merci beaucoup pour vos remarques. Effectivement, c'est beaucoup mieux ainsi.
Pour écrire ce code je m'étais servi d'une vidéo trouvée sur internet ..., mes connaissances en VBA étant très limitées.
Encore merci.