XL 2013 besoin que la valeur traité par une macro change de couleur

[sirbeetee]

Bonjour groupe

j'ai une macro qui fonctionne très bien, mais j'aurais besoin que les valeurs envoyer dans les cellules soit rouge

qu'est-ce que je dois ajouter comme code à :

Sub deuxiemeTour()

Dim r As Excel.Range
Dim c As Excel.Range

For Each c In Range("D2:J2")


If c.Value <> vbNullString Then
'// Arbitrary range, change if needed
Set r = Range("A5:A57").Find(What:=c.Value, lookat:=xlWhole).Font.Color



If Not r Is Nothing Then

If WorksheetFunction.CountIf(r.EntireRow, Range("B2").Value) > 0 Then
MsgBox Range("B2").Value & " Déjà inscrit dans la semaine " & c.Value, vbExclamation, "Error"
Else
Cells(r.Row, Columns.Count).End(xlToLeft).Offset(, 1).Value = Range("B2").Value
End If
Else
MsgBox "ligne pour semaine " & c.Value & " inexistante", vbExclamation, "Error"
End If
End If
Next

Range("A2:J2").ClearContents


End Sub

 

[job75]

Re : besoin que la valeur traité par une macro change de couleur

Bonsoir sirbeetee, bienvenue sur XLD,

Complétez votre code ainsi :

'---
Else
  With Cells(r.Row, Columns.Count).End(xlToLeft).Offset(, 1)
    .Value = Range("B2")
    .Interior.ColorIndex = 3 'rouge
  End With
End If
'---

Edit : si vous voulez que ce soit la police qui soit rouge, remplacez Interior par Font.

Bonne fin de soirée.

 

[sirbeetee]

Re : besoin que la valeur traité par une macro change de couleur

ce sera probablement plus facile si j'offre mon fichier en pièce jointe

les 2 boutons ont la même macro. j'aimerais que le bouton rouge renvois les valeurs avec la police en rouge

aussi, avec la macro telle qu'elle elle renvoie les valeurs à l'extérieur de mon tableau, car j'ai des valeurs au bout des lignes, et ces valeurs me serve de marqueur pour indiquer que la capacité est atteinte

donc 2 besoins:
1- modifier ma macro pour entrer les valeurs dans les blocs vide et ne pas dépasser
2- qu'avec le bouton rouge que les valeurs renvoyées soit en police rouge

merci !!