Target.text Erreur

Bonjour à tous !!

Alors voilà je suis en train de faire un petit tableau dans lequel j'effectue un double clics sur une cellule afin d'obtenir le changement de couleur d'une cellule adjacente.

Mon soucis est que mon code VBA s’exécute sur des cellules non désirées.

Je pense que cela doit venir de mon if target.text.

Car j'aimerais que mon code ne s’exécute uniquement lorsque je double clics sur une cellule comportant "Etat :" sinon le script ne se lance pas.

Mais mon code se lance sur d'autres cellules et je ne comprends pas d'ou vient l'erreur.

Un grand Merci par avance

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Text <> "Etat :" Then Exit Sub

chg = MsgBox("Tâche Terminée ?", vbYesNo, "Changement d'état de la tâche")

If chg = vbYes Then
Target.Offset(0, 1) = "Fait"
Target.Offset(0, 1).Interior.Color = 5287936
Else
Target.Offset(0, 1) = "Non Fait"
Target.Offset(0, 1).Interior.Color = 5263615
End If

End Sub

Bonjour,

As-tu des exemples ou le code se lance à tort?

J'ai testé ton code et je n'ai pas trouvé d'anomalie..

-Stif-

voici mon document, certains case avec double clics déconnent...

Merci d'avance !

ps : exemple case en jaune fluo déconne mais d'autres aussi, à tester à ta guise...

Bonjour,

essaie ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim chg As VbMsgBoxResult
    Cancel = True
    If Target.Text = "Etat :" Then
        chg = MsgBox("T?che Termin?e ?", vbYesNo, "Changement d'?tat de la t?che")
        If chg = vbYes Then
            With Target.Offset(0, 1)
                .Value = "Fait"
                .Interior.Color = 5287936
            End With
        Else
            With Target.Offset(0, 1)
                .Value = "Non Fait"
                .Interior.Color = 5263615
            End With
        End If
    End If
End Sub

.... C'est parfait.

Je n'ai même pas vu qu'il me manquer des lignes... Un grand merci à toi.

Cette communauté est vraiment au top ! =D