PROBLEME CODE - BLOC IF SANS END IF

Bonjour messieurs, mesdames,

J'ai un problème de if....

Macro: But étant de faire des coches dans une zone pré-destiné avec un double clic. Procédure événementielle.

Fichier joint pour exemple.

voici le code:

Private Sub worksheet_beforedoubleclick(ByVal Target As Range, cancel As Boolean)

If Intersect(Range("COCHER"), Target) Is Nothing Then

Exit Sub

If IsEmpty(Target) Then

Target = "x"

cancel = True

Else

If Target = "x" Then

Target = ""

cancel = True

End If

End If

End Sub

Merci de m'avoir lu et de fournir votre expertise.

Bonsoir

Je ne vais pas te donner la solus mais t'aiguiller fortement ;- )

La technique : compter combien de if ouvert et combien de end if : ca doit etre egale

Autre technique : indenter son code ( representation plus visuelle) :

Sub test

If ... then

      If ... then

                For i = 1 to 9 

                Next

      End if

end if 

end sub

Tu verras c'est plus facile !

cdt,

Merci de ton analyse. J'en prends note.

Je vous souhaite une bonne soirée.