Macro - Colorier une sélection de cellules
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:
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.
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.
2 réponses
-
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+ -
Bonjour,
lorsque tu as 38 dans une cellule quelle plage veux tu coloriser
