salut everybody,
jsui en train de péter un câble sur un pblm à 2$...
pourquoi mon ridicule bout de code ne marche pas?? :
merci.
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
Partager