salut everybody,

jsui en train de péter un câble sur un pblm à 2$...

pourquoi mon ridicule bout de code ne marche pas?? :

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
19
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer 'pour utilisation de la boucle
 
'si on double click sur la colonne 13, alors si case = "X"
If Target.Column = 13 Then
 
    For i = 0 To 50 'on scanne toute la colonne L pour trouver les cases comprenant un "x"
 
If Target.Value = "x" Then
 
        Range("A2:L2").Offset(i, 0).Font.Color = RGB(0, 255, 0)
    'on passe les lignes qui ont un "x" en couleur vert
    End If
    Next i
 
End If
 
End Sub
merci.