EXCEL: mettre texte en couleur dès le curseur
Fermé
PTHV
Messages postés
19
Date d'inscription
dimanche 4 mai 2008
Statut
Membre
Dernière intervention
11 septembre 2009
-
7 mai 2008 à 13:52
PTHV Messages postés 19 Date d'inscription dimanche 4 mai 2008 Statut Membre Dernière intervention 11 septembre 2009 - 10 mai 2008 à 09:03
PTHV Messages postés 19 Date d'inscription dimanche 4 mai 2008 Statut Membre Dernière intervention 11 septembre 2009 - 10 mai 2008 à 09:03
A voir également:
- EXCEL: mettre texte en couleur dès le curseur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
3 réponses
aquarelle
Messages postés
7140
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
25 mars 2024
1 302
9 mai 2008 à 23:09
9 mai 2008 à 23:09
Bonsoir,
Voici un fichier avec un essai de macro mais cela ne correspond pas vraiment à ce que tu cherches mais s'en rapproche.
Premier point, il faut sélectionner la cellule dans la colonne A et non seulement passer le curseur. Deuxième point, toutes les cellules doivent avoir la même couleur de fond et la même couleur d'écriture car je ne suis pas arrivée à faire retrouver le format de départ si couleur et police différentes pour chaque cellule. Peut-être cette macro peut-elle être améliorée par des personnes plus expertes en la matière :
Fichier exemple : https://www.cjoint.com/?fjxgcxaj3h
Bonne nuit et à+
Voici un fichier avec un essai de macro mais cela ne correspond pas vraiment à ce que tu cherches mais s'en rapproche.
Premier point, il faut sélectionner la cellule dans la colonne A et non seulement passer le curseur. Deuxième point, toutes les cellules doivent avoir la même couleur de fond et la même couleur d'écriture car je ne suis pas arrivée à faire retrouver le format de départ si couleur et police différentes pour chaque cellule. Peut-être cette macro peut-elle être améliorée par des personnes plus expertes en la matière :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static AncienRange As Range On Error Resume Next DerCell = Range("A1").End(xlDown).Address If Union(Target, Range("A1:" & DerCell)).Address <> Range("A1:" & DerCell).Address Then Exit Sub Else Range(Target, Target.Offset(0, 7)).Interior.ColorIndex = 36 Range(Target, Target.Offset(0, 7)).Font.ColorIndex = 3 AncienRange.EntireRow.Interior.ColorIndex = xlColorIndexNone AncienRange.EntireRow.Font.ColorIndex = 1 End If Set AncienRange = Range(Target, Target.Offset(0, 7)) End Sub
Fichier exemple : https://www.cjoint.com/?fjxgcxaj3h
Bonne nuit et à+
Raymond PENTIER
Messages postés
58761
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
17 décembre 2024
17 255
7 mai 2008 à 14:18
7 mai 2008 à 14:18
Attendre la version Excel 2012 (ou ultérieure).
Si tu ne peux pas attendre, tu insères un commentaire, tu déplaces le fenêtre obtenue pour qu'elle recouvre ta cellule, et tu modifies son format. Mais alors, il ne faudrait pas que tu aies beaucoup de cellules à traiter ainsi !
Si tu ne peux pas attendre, tu insères un commentaire, tu déplaces le fenêtre obtenue pour qu'elle recouvre ta cellule, et tu modifies son format. Mais alors, il ne faudrait pas que tu aies beaucoup de cellules à traiter ainsi !
D_D_Du_06
Messages postés
80
Date d'inscription
jeudi 3 janvier 2008
Statut
Membre
Dernière intervention
10 mars 2010
84
7 mai 2008 à 17:28
7 mai 2008 à 17:28
Bonjour,
le seul moyen de le faire est en VBA, en travaillant sur les événement qui peuvent arriver à une feuille et à une cellule.
dans excel: alt+F11 pour accéder à visual basic...
Déroutant au début, mais on s'y fait vite.
A+
D D Du 06
le seul moyen de le faire est en VBA, en travaillant sur les événement qui peuvent arriver à une feuille et à une cellule.
dans excel: alt+F11 pour accéder à visual basic...
Déroutant au début, mais on s'y fait vite.
A+
D D Du 06
10 mai 2008 à 09:03
Merci de votre réponse qui est toujours claire et opérationnelle. C'est une solution envisageable mais j'ai contourné le problème (voir l'autre question sur le forum et le fichier exemple envoyé à Lhermite: VBA pour tester si une ligne ...).
Le macro de Lhermite je parviens pas à l'exécuter.
Merci de votre aide
Bon WE