rebonjour, trouver une solution pour selectionner toutes les cellules
de meme couleur?
peut etre que ca pourrais marcher
ou alors n'imprimer que les pages pleines ?
merci de votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Benead
Bonsoir prhoner
Essaie un truc comme cela :
Sub SelectionCellulesRouges() Dim Cellule As Range, Plage As Range For Each Cellule In ActiveSheet.UsedRange If Cellule.Interior.ColorIndex = 3 Then _ If Plage Is Nothing Then Set Plage = Cellule _ Else Set Plage = Union(Plage, Cellule) Next Cellule If Not Plage Is Nothing Then Plage.Select End Sub
La couleur 3 représente le rouge, va voir l'aide pour avoir le détail.
A+ Benead XL2000
a écrit:
rebonjour, trouver une solution pour selectionner toutes les cellules de meme couleur? peut etre que ca pourrais marcher ou alors n'imprimer que les pages pleines ? merci de votre aide
Bonsoir prhoner
Essaie un truc comme cela :
Sub SelectionCellulesRouges()
Dim Cellule As Range, Plage As Range
For Each Cellule In ActiveSheet.UsedRange
If Cellule.Interior.ColorIndex = 3 Then _
If Plage Is Nothing Then Set Plage = Cellule _
Else Set Plage = Union(Plage, Cellule)
Next Cellule
If Not Plage Is Nothing Then Plage.Select
End Sub
La couleur 3 représente le rouge, va voir l'aide pour avoir le détail.
A+
Benead
XL2000
prhoner@netplus.ch a écrit:
rebonjour, trouver une solution pour selectionner toutes les cellules
de meme couleur?
peut etre que ca pourrais marcher
ou alors n'imprimer que les pages pleines ?
merci de votre aide
Sub SelectionCellulesRouges() Dim Cellule As Range, Plage As Range For Each Cellule In ActiveSheet.UsedRange If Cellule.Interior.ColorIndex = 3 Then _ If Plage Is Nothing Then Set Plage = Cellule _ Else Set Plage = Union(Plage, Cellule) Next Cellule If Not Plage Is Nothing Then Plage.Select End Sub
La couleur 3 représente le rouge, va voir l'aide pour avoir le détail.
A+ Benead XL2000
a écrit:
rebonjour, trouver une solution pour selectionner toutes les cellules de meme couleur? peut etre que ca pourrais marcher ou alors n'imprimer que les pages pleines ? merci de votre aide