Excel et VB Fermé

Question

Bonjour a tousPar rapport au contenu d'une cellule (0,1,2 ou 3), j'aimerais coloriser toute la ligne correspondante (nature, jaune, rose ou rouge).Merci aux mecs sympas qui peuvent m'aider.

tompols · Answer

Salut,

Tu peux faire une mise en forme conditionnelle =>Sélectionne tes cellules puis Format/Mise en forme conditionnelle....
Sino par macro, mais je pense que la Mise en forme conditionnelle suffira.....

A+

Armojax · Answer

Hello Jack,

Essaie ça, à mettre dans le code de ta feuille.
Pour davantage de clarté, donne un nom à ta cellule (dans mon test, je l'ai appelée...Cellule !)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Couleur As Integer
    Dim Plage   As Range

    Set Plage = Range("Cellule")
    Select Case Plage.Value
    Case 1
        Couleur = 6
    Case 2
        Couleur = 38
    Case 3
        Couleur = 3
    Case Else
        Couleur = 0
    End Select

    Plage.EntireRow.Interior.ColorIndex = Couleur

End Sub

Dis-moi si ça colle.
Ajx.

Armojax · Answer

Hello JackF,

Excuse-moi, je n'avais pas compris que tu voulais que ça fonctionne pour toute une plage de cellules dans une colonne.
Donc voici une nouvelle mouture.
Je suppose que toutes les cellules qui sont concernées forment un rectangle compact (une seule colonne ou non).
J'ai nommé cette plage "Cellules".
Voici un nouveau code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Couleur As Integer
    Dim Plage   As Range

    Set Plage = Range("Cellules")
    For Each Cellule In Plage
        Select Case Cellule.Value
        Case 1
            Couleur = 6
        Case 2
            Couleur = 38
        Case 3
            Couleur = 3
        Case Else
            Couleur = 0
        End Select
        Cellule.EntireRow.Interior.ColorIndex = Couleur
    Next

End Sub

Dis-moi si on progresse !

JackF · Answer

Hi  ArmojaxMieux, c'est pas possible :-))C'est tout a fait ce que je voulais.Encore merci et bien le bonjour aux Nantais et a sa région (J'ai des cousins a La Chapelle sur Erdre)

Armojax · Answer

Bonjour Jérémie,

Exemple ci-dessous : comptage du nombre de cellules rouges dans la plage "A1:H20".

Sub RedCells()

  Dim Ctr     As Long
  Dim Plage   As Range
  Dim Cellule As Range
  
  Set Plage = Range("A1:H20")
  
  Ctr = 0
  For Each Cellule In Plage
    If Cellule.Interior.ColorIndex = 3 Then
      Ctr = Ctr + 1
    End If
  Next
  
  MsgBox "Il y a " & Ctr & " cellules rouges"
  
End Sub

Armojax.

Armojax · Answer

Re Alexis,

Voici 2 solutions, selon le cas :

1) Soit la macro se trouve dans le code de ta feuille, et réagit quand tu saisis "S" ou "D" dans la colonne B. Ça va convenir si tu saisis ton calendrier au fur et à mesure. Par contre, si tout est déjà saisi, il faudrait que tu réinterviennes sur chaque cellule pour déclencher la macro.

2)Soit un balayage des lignes colorie tout en une seule fois.

Tout dépend de ton contexte.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Dim Lig As Integer
  If ActiveCell.Column <> 2 Then Exit Sub
  If ActiveCell.Value = "S" _
  Or ActiveCell.Value = "D" Then
    Lig = ActiveCell.Row
    Range(Cells(Lig, 2), Cells(Lig, 28)).Interior.ColorIndex = 20
  End If
  
End Sub

Sub WeekEnds()

  Dim Lig As Integer
  
  For Lig = 1 To 36 ' adapter la fourchette !!!
    If Cells(Lig, 2).Value = "S" _
    Or Cells(Lig, 2).Value = "D" Then
      Range(Cells(Lig, 2), Cells(Lig, 28)).Interior.ColorIndex = 20
    End If
  Next
  
End Sub

Vois ce qui te convient.
Ajx.