Programme que dans certaine colonne [VBA]

Bonjour,

j'ai un programme tout simple :

 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 ?

Bonjour pite0611,

A tester:

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

If Target.Column >= 6 And Target.Column <= 14 Then
    If UCase(Target) = "X" Then Target = "" Else Target = "X"
    'Ecris un "X" dans la cellule double-cliqué
    Cancel = True
End If

End Sub

Cordialement,

J'avais oublié une simple ligne et du coup j'ai créer un post pour rien

Pour ceux que ca peut aider voici le code au complet

 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 

xorsankukai a écrit :

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

If Target.Column >= 6 And Target.Column <= 14 Then
    If UCase(Target) = "X" Then Target = "" Else Target = "X"
    'Ecris un "X" dans la cellule double-cliqué
    Cancel = True
End If

End Sub

Ca fonctionne niquel, c'est comme le miens, on a répondu en même temps haha