Bonjour le Forum,
Dans ma feuille je travaille de C4 à IP63, et celle-ci est remplie de nom et prénom.
Pratiquement tous les jours je dois rajouter manuellement (a quitté le groupe) et le mettre en rouge.
Exemple :
Balthazar Frédéric (a quitté le groupe)
Ma question, est-il possible avec une mise en forme conditionnelle de mettre une fois que j’ai inscrit (a quitté le groupe) de l’afficher automatiquement en rouge : (a quitté le groupe).
Merci d’avance
PJ
Pour faire simple, oui !
si par exemple dans la colonne G tu inscris « à quitter le groupe », tu vas dans les MFC et tu écris
=$G1="à quitter le groupe"
et dans les paramètres d’application tu sélectionnes la colonne où tu auras le nom et prénom
mfc.xlsx (8,8 Ko)
Bonjour taz067,
Merci pour ton code.
Mais toute les colonnes de C4 à IP63 sont remplis de nom prénom.
Je n’ai pas de colonne vide pour y mettre ce que tu propose.
Et j’écris (a quitté le groupe) juste après le nom, dans la même cellule.
C’est pour cela que je demandais si avec une MFC cela était possible de mettre une fois inscrit (a quitté le groupe) de le mettre en rouge automatiquement.
PJ
J’avais déjà testé ce que tu me propose, mais tout est en rouge
Je préférerais comme en dessous.
PJ
En VBA peut-être autrement, je ne pense pas que ce soit possible !
Et tu ne connaitrais pas un bout de code pour le faire en VBA
PJ
Bonjour,
Avec une macro :
Fias un clic droit sur l’onglet de la feuille et clique sur “Visualiser le code”. La fenêtre de l’éditeur VB s’ouvre. Copie le code ci-dessous et colle-le dans la partie droite de la fenêtre :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([C4:IP63], Target) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target Like "*(a quitté le groupe)" Then
deb = InStr(1, Target.Value, "(a quitté le groupe)")
Target.Characters(deb, 20).Font.Color = RGB(255, 0, 0)
Else
Target.Font.Color = xlblack
End If
End Sub
Ferme la fenêtre de l’éditeur VB. Enregistre ton classeur avec le type “Classeur Excel (prenant en charge les macros) (*.xlsm)”
A chaque fois que tu ajouteras la chaîne “(a quitté le groupe)”, elle se colorera en rouge.
Daniel
Bonjour Daniel,
Super merci Daniel ça fonctionne à merveille.
Je te remercie de ton aide ainsi que taz067 pour ces différents codes.
Bon après-midi à tous les 2 et au Forum.
PJ
Maintenant, pourquoi t’obliger à écrire ce texte quand la macro pourrait le faire à ta place ? Dans ce cas, au lieu de la macro précédente, utilise celle-ci en faisant un double-clic sur la cellule:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect([C4:IP63], Target) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target <> "" Then
Application.EnableEvents = False
deb = Len(Target.Value) + 1
Target = Target & " (a quitté le groupe)"
Target.Characters(deb, 20).Font.Color = RGB(255, 0, 0)
Application.EnableEvents = True
End If
End Sub
Daniel
Magnifique, le top du top.
Merci Daniel c’est vraiment super.
A+ et merci.
PJ