Erreur de compilation

Bonjour a toutes et tous, forum

Juste une petite question svp, lorsque je mets le code "Cancel = True" j'ai droit au message d'erreur suivant

et je ne sais pas pourquoi.

Erreur de compilation

variable non définie

Peut'on svp remplacer ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cancel = True

    If Not Intersect(Range("D26:O29"), Target) Is Nothing Then
           Cells(Target.Row, 3).Select                 '## Pour proteger accès zone D26:O29
    End If
End Sub          

Merci a vous et de votre temps

Bon Dimanche

Raymond

Bonjour

Dans ton code tu dois avoir

Option Explicit

En plus évites d'utiliser cette variable car elle est plu ou moins réservée par VBA

Salut Banzai64

Merci pour ta réponse, j'ai suivi ton conseil mais ca change rien

mon code ne fonctionne pas comme souhaité

je peux joindre le petit fichier pour essai si tu veux

Merci a plus tard

Raymond

Bonjour

C'est sur cela serait un plus

Re Salut

Bon je post le fichier j'espère avoir bien expliqué ce que souhaite

voir svp le fichier pour infos supplémentaires

Merci pour l'aide apporté

Raymond

Bonjour

Supprimes tout le code que tu as et remplaces le par celui-ci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("D4:O25")) Is Nothing Then
    Cancel = True                                                 'Pour enlever le point d'insertion sur la cellule
    With Target.Interior
      .ColorIndex = IIf(.ColorIndex = 16, 43, 16) 'Couleur gris (16), vert (43)
    End With
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("D26:O29"), Target) Is Nothing Then
        Cells(Target.Row, 3).Select                    '##### Pour proteger accès zone D26:O29
    End If
End Sub

RE

merci pour le code ca fonctionne pour les lignes du bas c'est ok

Mais je ne peut plus colorier mes cellules du tableau D4:O25 sur double clic , j'ai l'erreur ci dessous

 With Target.Interior

      .ColorIndex = IIf(.ColorIndex = 16, 43, 16)         'Couleur gris (16), vert (43)     ce code se mets ligne jaune erreur 1004

   End With

Merci Raymond

Bonsoir

Le code fonctionne bien avec 2003

Quelqu'un avec 2007 peut tester svp ?

Wait & See

Bonjour a tous, forum

Bon on laisse tomber pour ce post

merci a tous, j'ai refait un autre code et c'est bon

je passe en résolu

Encore merci Banzai64 bonne fin d'après midi

Raymond