Discussion :

[argaz01]

Merci de me renseigner sur ce petit problème, en effet quand j'essaye d'éxecuter ma macro, j'ai ce message d'erreur: erreur de compilation end sub attendu.

Voici ma macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub TypeColor()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Target = "OPCVM" Then
Rows(Target.Row & ":" & Target.Row).Interior.ColorIndex = 17
Else
Rows(Target.Row & ":" & Target.Row).Interior.ColorIndex = xlNone
End If
End If
End Sub
End Sub

[isfet]

tu ne peux pas emboiter les sub comme ça !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TypeColor()
call Worksheet_change(target)
End Sub
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Target = "OPCVM" Then
Rows(Target.Row & ":" & Target.Row).Interior.ColorIndex = 17
Else
Rows(Target.Row & ":" & Target.Row).Interior.ColorIndex = xlNone
End If
End If
End Sub

[argaz01]

Merci pr l'aide, ms maintenant il met

erreur d'éxecution 424

????

[zyhack]

Bonjour

il faut mettre ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Target = "OPCVM" Then
Rows(Target.Row & ":" & Target.Row).Interior.ColorIndex = 17
Else
Rows(Target.Row & ":" & Target.Row).Interior.ColorIndex = xlNone
End If
End If
End Sub

dans le code de la feuille et non dans un module car il s'agit d'un événement qui seras lancé automatiquement à chaque fois que tu changeras une valeur dans ta feuille

de plus tu n'as pas besoin de l'autre bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub TypeColor()
call Worksheet_change(target)
End Sub

a+

[argaz01]

MERCI ça marche, seul problème la coloration se fait sur toute la ligne
et non pas seulement jusqu'à la limite du tableau!! Comment faire!?

[zyhack]

a modifier suivant le nombre de colonne que tu veux colorer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Target = "OPCVM" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Select.Interior.ColorIndex = 17
Else
Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Interior.ColorIndex = xlNone
End If
End If
End Sub

[argaz01]

merci zyhack, ms ya aucun changement quand j'execute la macro quer voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Target = "OPCVM" Then
Range(Cells(Target.Row 1), Cells (Target.Row, 14)).Select.Interior.ColorIndex = 17
Else
Range(Cells(Target.Row, 1), Cells(Target.Row, 14)).Interior.ColorIndex = xlNone
End If
End If
End Sub
End Sub

Sub TypeColor()
End Sub

y aurait-il une erreur?? et merci encore

[zyhack]

tu avais oublié une virgule et il restait un select en trop

essaye ce code je l'ai testé et il fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
  If Target = "OPCVM" Then
    Range(Cells(Target.Row, 1), Cells(Target.Row, 14)).Interior.ColorIndex = 17
  Else
    Range(Cells(Target.Row, 1), Cells(Target.Row, 14)).Interior.ColorIndex = xlNone
  End If
End If
End Sub

[mercatog]

Tu n'as qu'à mettre ce code dans le module de ta feuille (évènement Change)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
   If Target = "OPCVM" Then
      Range("A" & Target.Row & ":N" & Target.Row).Interior.ColorIndex = 17
   Else
      Range("A" & Target.Row & ":N" & Target.Row).Interior.ColorIndex = xlNone
   End If
End If
End Sub

[argaz01]

J'ai testé les 2méthode (mercatog et zyhack) sans succés la macro continue à colorer toute les ligne!!! zut c casse bonbon les macros!!!
pourtant ça ma l'air bien logique vos codage!

Merci de réesseyer les gars!

[mercatog]

Testé et fonctionne (chez zyhack et chez moi)
ci joint, code généralisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
 
For Each c In Target
   If c.Column = 3 Then
      If UCase(Trim(c.Value)) = "OPCVM" Then
         Range("A" & c.Row & ":N" & c.Row).Interior.ColorIndex = 17
      Else
         Range("A" & c.Row & ":N" & c.Row).Interior.ColorIndex = xlNone
      End If
   End If
Next c
End Sub

[argaz01]

Merci les gars ça marche. Pouvez-vous me dire comment on procède pr appliquer plusieurs macros à une seule feuille? Je voudrais appliquer à peu près la même macro que toute à l'heure, à la différence près que cette fois ci à la place de "opcvm" je met "tcn" et code couleur différent: J'ai esseyé de la mettre ds un module ms ça marche pas!!

[zyhack]

si c'est pour comparer dans la même feuille utilise ce code en remplacement du précédent

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
 
For Each c In Target
   If c.Column = 3 Then
      Select Case UCase(Trim(c.Value))
        Case "OPCVM"
          Range("A" & c.Row & ":N" & c.Row).Interior.ColorIndex = 17
        Case "TCN"
          Range("A" & c.Row & ":N" & c.Row).Interior.ColorIndex = 35
        Case Else
          Range("A" & c.Row & ":N" & c.Row).Interior.ColorIndex = xlNone
      End Select
   End If
Next c
End Sub

[mercatog]

Dans le même sens que zyhack, et par mesure de simplification d'écriture du code

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim klr As Integer
 
For Each c In Target
   If c.Column = 3 Then
      Select Case UCase(Trim(c.Value))
        Case "OPCVM": klr = 35
        Case "TCN": klr = 17
        'Case "Blabla": klr=39
        '....
        Case Else: klr = xlNone
      End Select
   End If
   Range("A" & c.Row & ":N" & c.Row).Interior.ColorIndex = klr
Next c
End Sub