erreur d'execution13 incompatibilité de type

[vinceg]

il s'agit d'un code vba qui doit trouver dans une colonne toutes les cellules qui ont un résultat de formule égal à onze pour pouvoir recopier les informations d un client dans un autre onglet et à chaque fois excel me marque erreur d'execution 13 incompatibilité de type alors que lorsque je tape 11 il applique le morceau de macro.
Est ce parce que le chiffre 11 découle d'une formule?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('Ai:Ai')) Is Nothing Then
If Target = '11' Then
scoring11rAjoute (Target.Row)
ElseIf Target.Text = '' Then
scoring11Supprime (Target.Row)
Target.Select
End If
End If
End Sub
là je suis perdu.

 

[Ti_]

enlève les guillemets autour de 11, sinon la macro considère ce nombre comme du texte et n'en veut pas (à moins que tu écrives la ligne comme ceci : If Cstr(Target) = '11' Then)

 

[PascalXLD]

Bonjour

je crois que tu as une erreur sur ta ligne

If Not Intersect(Target, Range('Ai:Ai')) Is Nothing Then

c'est quoi le i ????

En tout cas il ne peut pas être là