Macro qui ne fonctionne pas

[gerard55]

Bonjour à tous
j'ai un souci sur un fichier, je voudrai que dans la feuille "planning" colonne "c" les activités indiquées soient surlignées en couleur suivant l'intervenant. La macro fonctionnait précédemment et là elle ne fonctionne plus. Je joins un fichier c'est plus simple
Merci pour votre aide
a+

 

[gilbert_RGI]

Re : Macro qui ne fonctionne pas

Bonjour à tous
j'ai un souci sur un fichier, je voudrai que dans la feuille "planning" colonne "c" les activités indiquées soient surlignées en couleur suivant l'intervenant. La macro fonctionnait précédemment et là elle ne fonctionne plus. Je joins un fichier c'est plus simple
Merci pour votre aide
a+

bonsoir

modifier cette ligne

Select Case Sheets("planning").Cells(i, 3).Offset(0, 13).Value

et ça devrait rentrer dans l'ordre

Bonne soirée

Gilbert_RGI😱

 

[gerard55]

Re : Macro qui ne fonctionne pas

Merci pour votre réponse.
Hélas non ça ne marche pas. ça colorie l'ensemble des cellules jusqu'à la ligne 43. Mais, je souhaite surligner uniquement les cellules de la colonne "c" qui contiennent du texte.

 

[eriiic]

Re : Macro qui ne fonctionne pas

Bonsoir,

Ta macro modifiée :

Sub CouleurActi()
    For i = 4 To 71
        With Sheets("planning").Cells(i, 3)
            If .Value = "" Or .Value = 0 Then
                .Interior.ColorIndex = xlNone
            Else
                Select Case .Offset(0, 13).Value
                Case "Prestataire"
                    .Interior.ColorIndex = 8
                Case "Bénévole"
                    .Interior.ColorIndex = 6
                Case "SACAT"
                    .Interior.ColorIndex = 40
                Case "CAT"
                    .Interior.ColorIndex = 38
                End Select
            End If
        End With
    Next
End Sub

eric

 

[gilbert_RGI]

Re : Macro qui ne fonctionne pas

SI

La macro fonctionnait précédemment et là elle ne fonctionne plus.

C'est étonnant 🙄

la modification de eriiiic apporte t elle le résultat escompté ????

Salutations

Gilbert_RGI

 

[gerard55]

Re : Macro qui ne fonctionne pas

Merci Eriiiic
ça fonctionnne très bien
Merci a+

 

[gerard55]

Re : Macro qui ne fonctionne pas

bONJOUR,
je me suis réjouis un peu vite du résultat. En effet ça marche que jusqu'à la ligne 35 et les couleurs demandées ne sont pas respectées
Gérard

 

[Fo_rum]

Re : Macro qui ne fonctionne pas

Salut,

il manque une boucle.
2 codes à tester sans passer par le bouton "Actualiser" :

Sub CouleurActi()
  For i = 4 To 71
    With Sheets("planning").Cells(i, "C")
    For li = 1 To 74
        If .Value = Cells(li, "O") Then
          Select Case Cells(li, "P").Value
          Case "Prestataire"
            .Interior.ColorIndex = 8
          Case "Bénévole"
            .Interior.ColorIndex = 4
          Case "SACAT"
            .Interior.ColorIndex = 6
          Case "CAT"
           .Interior.ColorIndex = 7
          Case Else
           .Interior.ColorIndex = xlNone
          End Select
        End If
      Next
    End With
  Next
End Sub

End Sub

Sub CouleurActi1()
  Dim Intervenant, Couleur
  Dim i As Byte, li As Byte, c As Byte
  Intervenant = Array("CAT", "SACAT", "Bénévole", "Prestataire")
  Couleur = Array(7, 6, 4, 8)
  [C4:C71].Interior.ColorIndex = xlNone
  For i = 4 To 71
    For li = 4 To 71
      If Cells(i, "C") = Cells(li, "O") Then
        For c = 0 To 3
          If Cells(li, "P") = Intervenant(c) Then Cells(i, "C").Interior.ColorIndex = Couleur(c)
        Next
      End If
    Next
  Next
End Sub