Macro - Colorier une sélection de cellules

epaude Messages postés 15 Statut Membre -  
epaude Messages postés 15 Statut Membre -
Bonjour, je souhaite réaliser une macro qui colorie les cellules suivant un critère mais seulement dans la sélection donnée.

J'ai donc écrit le code ci-dessous: 

Sub Macro1()

Dim Cell As Object

  ' Sélectionne l'ensemble des données (utile pour qu'Excel ne travaille pas sur les 65000 lignes)
Sheets(4).Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select

For Each Cell In Selection
    If Cell.Value = "38" Then
    Cell.EntireRow.Interior.ColorIndex = 6
    End If
Next Cell

End Sub


Le soucis c'est qu'il colorie toute la ligne et pas seulement la sélection.
C'est logique étant donné qu'il y a écrit "EntireRow" mais je ne sais pas comment faire autrement.

Merci pour votre aide.
A voir également:

2 réponses

Réponse 1 / 2
Gyrus Messages postés 3360 Statut Membre 526
 
Bonjour, 

Sub Macro1()
Dim Cell As Range, MaPlage As Range
    With Sheets(4)
        For Each Cell In .UsedRange
            If Cell.Value = "38" Then
                Application.Intersect(Cell.EntireRow, .UsedRange).Interior.ColorIndex = 6
            End If
        Next Cell
    End With
End Sub


Salutations à Mike-31
A+
1
epaude Messages postés 15 Statut Membre
 
Bonjour Gyrus,

Merci beaucoup; ça fonctionne :)
0
Réponse 2 / 2
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 
Bonjour,

lorsque tu as 38 dans une cellule quelle plage veux tu coloriser

0
epaude Messages postés 15 Statut Membre
 
C'est une plage qui est susceptible de varier, actuellement ce sont les colonnes (A:K)
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
additionner nombres dans cellules avec texte
kawimaki -
kawimaki -

6 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
Outil sélection Adobe Illustrator
csansiqu -
sassou -

22 réponses