Discussion :

[pite0611]

Bonjour,
j'ai un programme tout simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If UCase(Target) = "X" Then Target = "" Else Target = "X"
    'Ecris un "X" dans la cellule double-cliqué
    Cancel = True
 
End Sub

Et je souhaiterai appliquer ce programme que dans les colonnes F, G, H, I, J, K, L, M, N

Pouvez-vous m'aider svp ?

[a_diard]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if target.column >5 and target.column<17 then

à adapter au colonnes

[pite0611]

Ha oui cette ligne toute bête que j'avais oublié

Pour ceux que ca peut aider voici le code au complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Target.Column > 5 And Target.Column < 15 Then
    If UCase(Target) = "X" Then Target = "" Else Target = "X"
    'Ecris un "X" dans la cellule double-cliqué de la colonne 6 à 14
    End If
    Cancel = True
 
End Sub