SelectionChange

Bonjour le Forum,

J'ai une petite question.

Je voudrais appliquer un code a un colonne entire mais je ne sais pas comment programmer la boucle !

Je vous mets un extrait mon fichier en annexe.

Concretement , j'ai 3 colonnes.

En cliquant sur une cellule , je modifie la valeur de la cellule à coté.

Pour effectuer tout ca , j'utilise le code suivant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = ("$E$2") Then

Range("F2").Select
ActiveCell.FormulaR1C1 = "x"
End If
If Target.Address = "$G$2" Then
Range("F2").ClearContents
End If
    End Sub

La question est donc comment appliquer ceci a toute les lignes sans avoir a recopier le code des centaines de fois ?

Merci d'avance

Bonjour

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then
Target.Offset(0, 1) = "x"
Else
If Target.Column = 7 Then
Target.Offset(0, -1).ClearContents
End If
End If
End Sub

Cordialement

Bonjour,

Avec un évènement double click :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("E:E")) Is Nothing Then
        Target.Offset(0, 1).Value = "x"
    ElseIf Not Intersect(Target, Range("G:G")) Is Nothing Then
        Target.Offset(0, -1).ClearContents
    End If
End Sub

Merci cela fonctionne parfaitement