erreur de code avec target

Version imprimable

salut everybody,

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

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

Code:

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.

Bonsoir,

essaies:

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("M:M")) Is Nothing Then: Exit Sub
For i = 1 To 50
If Cells(i, 12) = "X" Then
Range(Cells(i, 1), Cells(i, 12)).Interior.ColorIndex = 10 'autre vert "brillant":4
End If
Next
End Sub

petit truc la colonne 13 correspond à la lettre M, est ce que tu voulais?

je ne suis pas un pro du offset alors voila une autre facon de faire
Cette solution met bien en vert les ligne avec un x dans la colonne M
Reste a voir si la fin de ta colonne est bien a la ligne 50

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
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 = 2 To 50 'on scanne toute la colonne L pour trouver les cases comprenant un "x"
 
        If Range("M" & i).Value = "x" Then
 
            Range("A" & i & ":L" & i).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

20/07/2007, 17h43
dado91400

salut,

merci quand même pour les pistes mais ça ne marche pas....

Je souhaite juste dans mon tabelau de "N" colonne et de "N" ligne, lorsque je rentre la valeur "X", dans ma colonne "M" :

--> Toute ma ligne jusqu'à ma colonne "M" se mette en vert.

peut-être que je vous ai mis dans une mauvaise piste avec mon bout de code.

merci d'avance.

Bonjour, essaie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
'si on double click sur la colonne 13
If Target.Column = 13 Then
 
If Target.Value = "" Then
        'On met un X et on met en vert
        Target.Value= "X"
        Range("A" & Target.Row & ":L" & Target.Row).Font.Color = RGB(0, 255, 0)
        Cancel = True
ElseIf Target.Value= "X" Then
        'On efface le X et on met sans couleur
        Target.Value= ""
        Range("A" & Target.Row & ":L" & Target.Row).Font.ColorIndex = xlNone
        Cancel = True
End If
 
 
End If
 
End Sub

Ce que tu veux, c'est ni plus ni moins qu'un format conditionnel. J'ai obtenu ceci avec l'enregistreur de macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 2007-07-20 par zazaraignée ' ' Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""x""" Selection.FormatConditions(1).Interior.ColorIndex = 4 End Sub
Il ne reste plus qu'à l'adapter à ton code.

23/07/2007, 18h31
dado91400

super merci beaucoup à tout le monde!

j'ai différents mode de fonctionnement ça me va!
A+:yaisse2: