Bonjour à tous. Voici mon bout de code...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Target = Range("D5").Select Or Range("E5").Select Or Range("J5").Select Or Range("K5").Select Or Range("Q5").Select Then
    If ActiveCell.Value = "imprimé" Then
    ActiveCell.Value = "Masqué à l'impression"
    ActiveCell.Offset(0, 1).Select
    Exit Sub
    End If
 
        If ActiveCell.Value = "Masqué à l'impression" Then
        ActiveCell.Value = "imprimé"
        ActiveCell.Offset(0, 1).Select
        Exit Sub
        End If
 
End If
 
End Sub
Mon but est de permettre à l'utilisateur de décider s'il désir que cette colonne sera imprimé ou non en indiquant un rappel dans ces cellules.

Mon problème est que si je double clic sur D5, cela va modifier Q5 sans avoir d'action sur D5.

Quelqu'un peut m'aider et me dire mon erreur.

Merci

Dlight