Macro Ne marche plus

[argaz01]

Bonjour,


JK'ai une macro qui ne fonctionne plus et quand je la cherche dans "macro" son nom n'y est pas!!! comment faire pour la réinstaller et merci:

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 & ":P" & c.Row).Interior.ColorIndex = 17
        Case "TCN"
          Range("A" & c.Row & ":P" & c.Row).Interior.ColorIndex = 35
        Case Else
          Range("A" & c.Row & ":P" & c.Row).Interior.ColorIndex = xlNone
      End Select
   End If
Next c
End Sub

 

[natorp]

Re : Macro Ne marche plus

bjr argaz01,

ceci n'est pas une macro à proprement parlé, c'est un évènement qui se déclanche automatiquement quand l'une des conditions est remplie, par exemple quand tu tapes opcvm en colonne 3 la ligne en question se colore toute seule en violet...

N'hésite pas si tu souhaites faire plus...
cordialement, Gérard

 

[argaz01]

Re : Macro Ne marche plus

Merci, c'est justement ce que je veux quand je tape un mot la ligne spécifiée prend une couleur donnéen sauf que ce n'est plus le cas: quand je tape "opcvm" ou "tcn" les lignes ne se colorent plus!!

Merci de m'éclairer

 

[natorp]

Re : Macro Ne marche plus

es-tu certain de mettre ces mots là dans l'une des cellules de la colonne C ?

Gérard

 

[Efgé]

Re : Macro Ne marche plus

Bonjour argaz01, natorp,
Juste une précision, mais je pense qu'elle ne sera pas inutile.
Le code est à mettre dansd le code de la feuille: Click droit sur l'onglet concerné / Visualiser le code et coller la macro à sa place 😉.
Cordialement

 

[argaz01]

Re : Macro Ne marche plus

J'ai bien mis le code dans la feuille, et j'avais rajouter une colonne avant la colonne C, du coup j'ai modifié le code en mettant

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" & d.Row & ":P" & c.Row).Interior.ColorIndex = 17
        Case "TCN"
          Range("A" & d.Row & ":P" & c.Row).Interior.ColorIndex = 35
        Case Else
          Range("A" & d.Row & ":P" & c.Row).Interior.ColorIndex = xlNone
      End Select
   End If
Next c
End Sub

est-ce juste ou dois-je encore modifier mon code: la colonne où mettre "opcvm" ou "tcn" deviant la colonne D!!

en vous remrciant d'avance

 

[Efgé]

Re : Macro Ne marche plus

Re
Pour utiliser la colonne D

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
   If c.Column = [COLOR=red][B]4[/B][/COLOR] Then [COLOR=seagreen]'mettre le numéro de la colonne concernée (1 = A; 4 = D Etc..)[/COLOR]
      Select Case UCase(Trim(c.Value))
        Case "OPCVM"
          Range("A" & [COLOR=red]c.Row[/COLOR] & ":P" & [COLOR=red]c.Row[/COLOR]).Interior.ColorIndex = 17
        Case "TCN"
          Range("A" & [COLOR=red]c.Row[/COLOR] & ":P" & [COLOR=red]c.Row[/COLOR]).Interior.ColorIndex = 35
        Case Else
          Range("A" & [COLOR=red]c.Row[/COLOR] & ":P" & [COLOR=red]c.Row[/COLOR]).Interior.ColorIndex = xlNone
      End Select
   End If
Next c
End Sub

Le "c.Row" ne donne pas la colonne mais le numéro de la ligne ou se situe la cellule modifiée.
Cordialement

 

[ROGER2327]

Re : Macro Ne marche plus

Bonjour à tous

À argaz01 :

Si vous avez inséré une colonne avant la colonne C, il me semble qu'il n'y a que la modification en rouge à faire :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
 
For Each c In Target
   If c.Column = [COLOR="Red"]4[/COLOR] Then
      Select Case UCase(Trim(c.Value))
        Case "OPCVM"
          Range("A" & c.Row & ":P" & c.Row).Interior.ColorIndex = 17
        Case "TCN"
          Range("A" & c.Row & ":P" & c.Row).Interior.ColorIndex = 35
        Case Else
          Range("A" & c.Row & ":P" & c.Row).Interior.ColorIndex = xlNone
      End Select
   End If
Next c
End Sub[/B][/COLOR]

ROGER2327
#3652

Dimanche 22 Merdre 137 (Ontogénie pataphysique, SPp)
20 Prairial An CCXVIII
2010-W23-2T12:17:12Z

_______
Bonjour Efgé, nous sommes d'accord, mais je suis plus lent...

 

[argaz01]

Re : Macro Ne marche plus

Merci les gars ça marche!