Macro pour changer la couleur du texte de cellules
Fermé
Quentin.1375
Messages postés
3
Date d'inscription
jeudi 9 mars 2017
Statut
Membre
Dernière intervention
9 mars 2017
-
9 mars 2017 à 16:48
via55 Messages postés 14474 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 19 septembre 2024 - 10 mars 2017 à 14:35
via55 Messages postés 14474 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 19 septembre 2024 - 10 mars 2017 à 14:35
A voir également:
- Macro couleur cellule selon texte
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Excel compter cellule couleur sans vba - Guide
- Aller à la ligne dans une cellule excel - Guide
3 réponses
Chaton333
Messages postés
189
Date d'inscription
mercredi 8 mars 2017
Statut
Membre
Dernière intervention
21 janvier 2018
272
9 mars 2017 à 17:48
9 mars 2017 à 17:48
Quentin.1375
Messages postés
3
Date d'inscription
jeudi 9 mars 2017
Statut
Membre
Dernière intervention
9 mars 2017
9 mars 2017 à 18:15
9 mars 2017 à 18:15
Je précise que j'ai besoin de faire cette manip en VBA
et pas en mise en forme conditionelle
(les tableaux doivent être ouvert avec un autre tableur par la suite)
Merci!
et pas en mise en forme conditionelle
(les tableaux doivent être ouvert avec un autre tableur par la suite)
Merci!
Chaton333
Messages postés
189
Date d'inscription
mercredi 8 mars 2017
Statut
Membre
Dernière intervention
21 janvier 2018
272
9 mars 2017 à 18:17
9 mars 2017 à 18:17
Il me semble juste que Google Docs est compatible avec la mise en forme conditionelle
via55
Messages postés
14474
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
19 septembre 2024
2 728
10 mars 2017 à 14:35
10 mars 2017 à 14:35
Bonjour Quentin
Essaie une macro de ce style :
Cdlmnt
Via
Essaie une macro de ce style :
Sub colore()
Dim Ligne As Long
' derniere ligen remplie en col R
Ligne = Columns(18).Find("*", , , , xlByColumns, xlPrevious).Row
'boucle sur les lignes
For n = 2 To Ligne
col = 0
'code couleur en fonction de valeur en R
If Range("R" & n) = "Client" Then col = 255 Else If Range("R" & n) = "ECA2" Then col = 15773696 Else If Range("R" & n) = "Shared" Then col = 10498160
' si codecouleur selection de H à R et coloration
If col > 0 Then
Range("H" & n & ":R" & n).Select
Selection.Interior.Color = col
End If
Next
End Sub
Cdlmnt
Via
9 mars 2017 à 18:13
Merci pour ta réponse!
Par contre je précise que je veux le faire en VBA
et pas en mise en forme conditionelle.
La mise en forme conditionelle n'est pas exportable vers d'autre tableurs
ou alors peut être as tu une solution pour figer la mise en forme conditionelle en vrai couleur afin d'être exportable??
Merci en tout cas!!
9 mars 2017 à 18:15