Sujet Précédent Sujet Suivant

Macro - Colorier une sélection de cellules

Fermé
epaude Messages postés 15 Date d'inscription vendredi 15 juillet 2016 Statut Membre Dernière intervention 4 octobre 2016 - Modifié par epaude le 1/08/2016 à 12:26
epaude Messages postés 15 Date d'inscription vendredi 15 juillet 2016 Statut Membre Dernière intervention 4 octobre 2016 - 2 août 2016 à 10:40
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 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
1 août 2016 à 16:10
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 Date d'inscription vendredi 15 juillet 2016 Statut Membre Dernière intervention 4 octobre 2016
2 août 2016 à 10:40
Bonjour Gyrus,

Merci beaucoup; ça fonctionne :)
0
Réponse 2 / 2
Mike-31 Messages postés 18337 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 27 septembre 2024 5 099
1 août 2016 à 12:43
Bonjour,

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

0
epaude Messages postés 15 Date d'inscription vendredi 15 juillet 2016 Statut Membre Dernière intervention 4 octobre 2016
1 août 2016 à 14:15
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
Outil sélection Adobe Illustrator
csansiqu -
sassou -

22 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses