XL 2016 Colorier ligne sous condition

jecherche

XLDnaute Occasionnel

• 19 Novembre 2016

• #2

Bonjour,

Remplace ta macro par celle-ci ...
Si tu saisis a ou A , ça fonctionnera.
Le nombre de ligne n'importe pas, il y a détection de la dernière ligne.

Code:

Sub coloriageService()
Dim MyRange As Range
Dim Cel As Range
Dim DerLig As Long
Dim Service As String

DerLig = Range("C" & Rows.Count).End(xlUp).Row
Set MyRange = Range("C2:C" & DerLig)
Service = InputBox("Quel service")
Service = UCase(Service)
For Each Cel In MyRange
    If Cel.Value = Service Then
        Range(Cells(Cel.Row, 1), Cells(Cel.Row, 3)).Interior.ColorIndex = 36
    Else
        Range(Cells(Cel.Row, 1), Cells(Cel.Row, 3)).Interior.ColorIndex = xlNone
    End If
Next
End Sub

Jecherche

 

Dernière édition: 19 Novembre 2016

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 20 Novembre 2016

• #3

Salut jecherche,
Super, merci du service.
Une question si tu me permets; le code fonctionne bien sur une cellule normale si je peux dire ainsi.
Mais si je mets une liste de validation des données, par ex en colonne B, cela ne marche pas.
A++++++ et merci

 

Pièces jointes

• ColorierLigne.xlsm

  21.3 KB · Affichages: 60

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 20 Novembre 2016

• #4

Bonjour,

Change : Service = Ucase(Service)
Pour : Service = UCase(Left(Service, 1)) & Lcase(Right(Service, Len(Service) - 1))
(on peut ainsi rechercher indifféremment : lyon, Lyon ou LYON, qu'il faut comparer au contenu qui est Lyon)



Jecherche

 

Dernière édition: 20 Novembre 2016

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 20 Novembre 2016

• #5

Re jecherche,
Super, merci beaucoup, j'aimerais juste encore te demander si possible, regarde dans la colonne "B", j'ai ajouter d'autre mot, et bizarrement le code ne fonctionne pas.
A++++ merci

 

Pièces jointes

• ColorierLigne.xlsm

  23 KB · Affichages: 61

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 20 Novembre 2016

• #6

Bonjour,

Plus simple ainsi ...

Code:

Sub coloriageService()
Call EffaceCouleur
Dim MyRange As Range
Dim Cel As Range
Dim DerLig As Long
Dim Service As String

DerLig = Range("B" & Rows.Count).End(xlUp).Row
Set MyRange = Range("B2:B" & DerLig)
Service = InputBox("Quel service")
For Each Cel In MyRange
If UCase(Cel.Value) = UCase(Service) Then
Range(Cells(Cel.Row, 1), Cells(Cel.Row, 3)).Interior.ColorIndex = 36
End If
Next
End Sub

Jecherche

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 20 Novembre 2016

• #7

Re jecherche,
Cette fois t'est le plus Ford.
Super, le code fonctionne à merveille, merci à toi de ton service et disponibilité
Bon Dimanche et A+++++

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 20 Novembre 2016

• #8

Bonjour,

Sais-tu que veut dire Ford ?
C'est l'acronyme de Ferraille, Ordures, Résidus, Détritus 😛



Jecherche

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 20 Novembre 2016

• #9

Re bonjour,

Non, non, c'est une horreur, pardon une (erreur) de ma part, faute de frappe. En fait, Gérald Ford serait tous ça.
Ho lalalalal, pas bien ça
A un de ces jour, et merci pour tous

 

Vote positif 0 Vote négatif