Couleur de cellules et VBA

Résolu
amiralS Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   -  
amiralS Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaite avec du code VBA mettre en couleur les cellules non contiguës qui répondent à une condition.
J'ai une feuille de résultats d'une course et je ne veux pas appliquer la couleur choisie sur toute la ligne concernée par la condition mais seulement des cellules pas forcément contiguës sur cette ligne.

Sub MacroCouleur() 'Mettre des cellules en couleur en fonction du nom de l'établissement (MRiviere )dans la colonne E.
Ma macro ci dessous:

Dim finligne As Byte
Dim NumeroLigne As Byte

finligne = ActiveSheet.UsedRange.Rows.Count + 1 'Variable nombre de lignes
NumeroLigne = 2 'Variable ligne en cours

While NumeroLigne < finligne

If Range("E" & NumeroLigne).Value = "MRiviere" Then Range("B" & NumeroLigne).Interior.Color = RGB(0, 255, 0)
If Range("E" & NumeroLigne).Value = "MRiviere" Then Range("E" & NumeroLigne).Interior.Color = RGB(0, 255, 0)
If Range("E" & NumeroLigne).Value = "MRiviere" Then Range("F" & NumeroLigne).Interior.Color = RGB(0, 255, 0)
NumeroLigne = NumeroLigne + 1

Wend

End Sub

Pour faire court comment je peux mettre dans un seul If les 3 ci-dessus?

Merci pour votre réponse.
amiralS
A voir également:

3 réponses

Réponse 1 / 3
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
Bonjour, 
While NumeroLigne < finligne 

If Range("E" & NumeroLigne).Value = "MRiviere" Then 
    Range("B" & NumeroLigne).Interior.Color = RGB(0, 255, 0)
    Range("E" & NumeroLigne).Interior.Color = RGB(0, 255, 0)
    Range("F" & NumeroLigne).Interior.Color = RGB(0, 255, 0)
end if
NumeroLigne = NumeroLigne + 1 

Wend

c'est ça que tu cherches?
Pourquoi ne pas utiliser simplement la MFC?
0
Réponse 2 / 3
amiralS Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   2
 
Merci,
Le code fonctionne mais je me demandais s'il était possible de faire encore plus court et ne pas répéter à chaque fois .Interior.Color = RGB(0, 255, 0).

Par exemple:
If Range("E" & NumeroLigne).Value = "MRiviere" Then Range("A" & NumeroLigne, "I" & NumeroLigne).Interior.Color = RGB(0, 255, 0)
Dans ce cas toutes les cellules contigües de "E" à "I" sont remplies en vert, la virgule sert de séparateur.
Entre les parenthèses après Then Range n'est il pas possible de mettre des séparateurs pour indiquer quelles cellules je veux remplir en vert?

Je n'ai pas pensé à la MFC et je ne vois pas quelle règle je devrais adopter.

Merci pour ton aide
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
bonjour, ceci? 
Range("B" & NumeroLigne & ",E" & NumeroLigne & ",F" & NumeroLigne).Interior.Color = RGB(0, 255, 0)
0
amiralS Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   2
 
Merci yg_be pour cette réponse qui me va très bien pour alléger mon code
0
Réponse 3 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
Bonjour 

Option Explicit
'--------------------
Sub MacroCouleur() 'Mettre des cellules en couleur en fonction du nom de l'établissement (MRiviere )dans la colonne E.

Dim finligne As Byte
Dim NumeroLigne As Byte
Dim Nbre As Byte, Cptr As Byte
finligne = ActiveSheet.UsedRange.Rows.Count + 1 'Variable nombre de lignes
NumeroLigne = 2 'Variable ligne en cours
'on ne boucle le nbre de fpois où il y a MRiviere
Nbre = Application.CountIf(Columns("E"), "MRiviere")
If Nbre > 0 Then
    For Cptr = 1 To Nbre
        NumeroLigne = Columns("E").Find("MRiviere", Cells(NumeroLigne, "E"), xlValues).Row
        Range("B" & NumeroLigne & ",E" & NumeroLigne & ",F" & NumeroLigne).Interior.Color = RGB(0, 255, 0)
      
 Next
End If

End Sub
0
amiralS Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonjour et merci pur cette réponse qui fonctionne aussi très bien d'une autre manière de coder et je retiens.
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses