Macro - Colorier une sélection de cellules
epaude
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
epaude Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
epaude Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Macro - Colorier une sélection de cellules
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
2 réponses
Bonjour,
Salutations à Mike-31
A+
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+
Merci beaucoup; ça fonctionne :)