Bonjour,
N'ayant pas trouvé ce que je cherche sur le forum, je pose donc mon problème
j'ai crée un fichier pour le planning de notre équipe et je souhaiterai mettre en couleur de façon automatique une partie d'un texte dans une cellule lorsque qu'un texte particulier est renseigné et cela évidement sur toutes les cellules qui compose la semaine (1 feuille par semaine)
J'ai déjà un bout de code qui me permet de modifier automatiquement une cellule quand on y tape un texte particulier mais cela prend en charge la cellule entière alors que moi là, je voudrais juste une partie de ce texte. Cette modification de couleur/format, etc.. est activé lorsque l'on clique sur un bouton
voila mon bout de code avec mes cellules qui se modifient si la cellule contient le mot "RA" ou si la cellule est de couleur de fond rouge:
merci d'avance
WocaM
N'ayant pas trouvé ce que je cherche sur le forum, je pose donc mon problème
j'ai crée un fichier pour le planning de notre équipe et je souhaiterai mettre en couleur de façon automatique une partie d'un texte dans une cellule lorsque qu'un texte particulier est renseigné et cela évidement sur toutes les cellules qui compose la semaine (1 feuille par semaine)
J'ai déjà un bout de code qui me permet de modifier automatiquement une cellule quand on y tape un texte particulier mais cela prend en charge la cellule entière alors que moi là, je voudrais juste une partie de ce texte. Cette modification de couleur/format, etc.. est activé lorsque l'on clique sur un bouton
voila mon bout de code avec mes cellules qui se modifient si la cellule contient le mot "RA" ou si la cellule est de couleur de fond rouge:
Code:
'modification couleur texte/couleur de fond ou type de texte
With Selection
For rwIndex = 1 To 13
For colIndex = 1 To 6
With Selection.Cells(rwIndex, colIndex)
If .Value = "RA" Then .Font.ColorIndex = 2
If .Interior.ColorIndex = 3 Then .Font.ColorIndex = 2 'Blanc/fond rouge
End With
Next colIndex
Next rwIndex
End With
merci d'avance
WocaM