Colorer des lignes , macro !
Résolu/Fermé
DJ FA
Messages postés
50
Date d'inscription
jeudi 14 décembre 2006
Statut
Membre
Dernière intervention
20 avril 2013
-
1 déc. 2012 à 13:44
DJ FA Messages postés 50 Date d'inscription jeudi 14 décembre 2006 Statut Membre Dernière intervention 20 avril 2013 - 2 déc. 2012 à 11:10
DJ FA Messages postés 50 Date d'inscription jeudi 14 décembre 2006 Statut Membre Dernière intervention 20 avril 2013 - 2 déc. 2012 à 11:10
A voir également:
- Colorer des lignes , macro !
- Macro logiciel - Télécharger - Organisation
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
4 réponses
pépé35530
Messages postés
2941
Date d'inscription
vendredi 1 mai 2009
Statut
Membre
Dernière intervention
19 mars 2016
1 376
1 déc. 2012 à 15:24
1 déc. 2012 à 15:24
Bonjour,
La mise en forme conditionnelle devrait répondre à ton problème.
A+
pépé
La mise en forme conditionnelle devrait répondre à ton problème.
A+
pépé
DJ FA
Messages postés
50
Date d'inscription
jeudi 14 décembre 2006
Statut
Membre
Dernière intervention
20 avril 2013
1 déc. 2012 à 15:37
1 déc. 2012 à 15:37
Merci pour ton fichier, mais j'ai bien parlé de macro, je ne veux pas de MFC.
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
1 déc. 2012 à 16:29
1 déc. 2012 à 16:29
Bonjour
Option Explicit
Sub colorier_5ouB_en_colB()
Dim derlig As Integer, lig As Integer
Application.ScreenUpdating = False
derlig = Columns("B").Find("*", , , , , xlPrevious).Row
For lig = 2 To derlig
Select Case Cells(lig, "B")
Case Is = 5
Rows(lig).Interior.ColorIndex = 36
Case Is = "B"
Rows(lig).Interior.ColorIndex = 35
End Select
Next
End Sub
DJ FA
Messages postés
50
Date d'inscription
jeudi 14 décembre 2006
Statut
Membre
Dernière intervention
20 avril 2013
1 déc. 2012 à 17:28
1 déc. 2012 à 17:28
Bonjour, merci michel, ta macro fonctionne très bien, mais désolé j'ai omis une chose c'est que dans la colonne B il peut y avoir le B ou le 5 accompagnés d'autres valeurs, peux-tu modifier le fichier joint.
http://ti1ca.com/p7samhvm-essai.xls.html
<config>Windows 8 / Firefox 17.0</config
http://ti1ca.com/p7samhvm-essai.xls.html
<config>Windows 8 / Firefox 17.0</config
eriiic
Messages postés
24513
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
7 168
1 déc. 2012 à 17:50
1 déc. 2012 à 17:50
Bonjour,
Tu as mis ces caractères à chaque fois en début de chaine donc :
Select Case Left(Cells(lig, "B"), 1)
eric
Tu as mis ces caractères à chaque fois en début de chaine donc :
Select Case Left(Cells(lig, "B"), 1)
eric
DJ FA
Messages postés
50
Date d'inscription
jeudi 14 décembre 2006
Statut
Membre
Dernière intervention
20 avril 2013
1 déc. 2012 à 17:55
1 déc. 2012 à 17:55
Ok mais si la valeur se situe entre les deux ?
eriiic
Messages postés
24513
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
7 168
1 déc. 2012 à 18:04
1 déc. 2012 à 18:04
il faut mettre tous les cas de figure dans un exemple...
entre les deux quoi ??? entre B et 5 ?
Je suppose en n'importe quelle position... :
Par ailleurs il manquait une ligne de code pour réinitialiser la couleur à 'aucune'
eric
entre les deux quoi ??? entre B et 5 ?
Je suppose en n'importe quelle position... :
Sub colorier_5ouB_en_colB()
Dim derlig As Integer, lig As Integer
Application.ScreenUpdating = False
Rows.Interior.ColorIndex = xlNone
derlig = Columns("B").Find("*", , , , , xlPrevious).Row
For lig = 2 To derlig
If InStr(Cells(lig, "B"), 5) > 0 Then
Rows(lig).Interior.ColorIndex = 36
ElseIf InStr(Cells(lig, "B"), "B") > 0 Then
Rows(lig).Interior.ColorIndex = 35
End If
Next
End Sub
Par ailleurs il manquait une ligne de code pour réinitialiser la couleur à 'aucune'
eric
DJ FA
Messages postés
50
Date d'inscription
jeudi 14 décembre 2006
Statut
Membre
Dernière intervention
20 avril 2013
1 déc. 2012 à 18:47
1 déc. 2012 à 18:47
Superbe, merci beaucoup !
DJ FA
Messages postés
50
Date d'inscription
jeudi 14 décembre 2006
Statut
Membre
Dernière intervention
20 avril 2013
1 déc. 2012 à 20:54
1 déc. 2012 à 20:54
Je viens de m'apercevoir d'une chose, c'est que les lignes sont colorées jusqu'au bout, j'essaye mais je n'arrive pas à modifier la macro pour ne colorer que les cellules qui sont pleines.
1 déc. 2012 à 15:28
https://www.cjoint.com/?BLbpB30oYOX
A+
pépé