Range et cells pour une couleur cellule

[Ozons123]

Bonjour au forum,

je tourne en rond sur ce problème. J'essaye d'intégrer une couleur de fond aux cellules sur deux onglets. Je tourne le problème dans tous les sens et je bloque.Voici le code

Sub toto()
Range(Cells(9, 2), Cells(9, 3)).Select
Range(Cells(9, 5), Cells(9, 7)).Select
Range("Cells(9, 9), Cells(9, 14), Cells(9, 21)").Select 😡 (là ca prend pas pourtant il accepte Range("A1:B5,C8,D9").select)
Sheets("Onglet2").Select
cells(10,9).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Sheets("Onglet1").Select
Selection.Interior.ColorIndex = 35
end sub

Merci pour votre aide

@+ Ozons

 

[Ozons123]

Re : Range et cells pour une couleur cellule

Pour information on peut contourner le problème de cette manière mais cela n'est pas satisfaisant. JE ne sais pas si nous avons la possibilitée d'utiliser une commande pour regrouper toutes les cellules .

Sub Macro8()

Range(Cells(9, 2), Cells(9, 3)).Select
Selection.Interior.ColorIndex = 35
Range(Cells(9, 5), Cells(9, 7)).Select
Selection.Interior.ColorIndex = 35
Cells(9, 9).Select
Selection.Interior.ColorIndex = 35
Cells(9, 14).Select
Selection.Interior.ColorIndex = 35
Cells(9, 21).Select
Sheets("Ajustements").Select
Cells(9, 10).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Sheets("Gestion Du Risque").Select
Selection.Interior.ColorIndex = 35
End Sub

@+ et merci Ozons

 

[Moa]

Re : Range et cells pour une couleur cellule

Salut Ozons123 !

Je passe vite fait, mais d'un premier abord, plusiuers choses.

1) Pas besoin de "Select" pour tes cellules à modifier.

2) Pour regrouper plusiuers cellules disjointes dans une procédure, tu peux utiliser la fonction "Union".

Voilà, tout simplement:

Sheets("Gestion Du Risque").Range("G2:G3").Interior.ColorIndex = 35

@ +++

ChrisOne

 

[Ozons123]

Re : Range et cells pour une couleur cellule

Merci pour ton aide. Je ne connaissais pas cette fonction Union elle est intéressante.

@+ Ozons

 

[michel_m]

Re : Range et cells pour une couleur cellule

Bonjour,

Excuses moi Moa mais c'était fait!

Sub toto()
With Sheets(1)
Application.Union(Range(.Cells(9, 2), .Cells(9, 3)), Range(.Cells(9, 5), .Cells(9, 7)), _
Range(.Cells(9, 9), .Cells(9, 14)), .Cells(9, 21)).Interior.ColorIndex = 35
End With
With Sheets(2).Cells(10, 9).Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End Sub

 

[ziopizza]

Re : Range et cells pour une couleur cellule

Bonjour à tous,
Peut être comme ça,en partant de la feuille1

Sub Macro2()
Range("B9:C9,e9,g9").Select 'plage sur feuille1
Sheets("Feuil2").Select
Range("A26,B8😀8").Select 'Plage sur feuille2
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sheets("Feuil1").Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub

Salut Yves
Oups j'ai beaucoup de retard? Jolie code Michel M

 

[Ozons123]

Re : Range et cells pour une couleur cellule

Alors là Michel c'est la cerise sur le gateau 🙂
Merci

@+ Ozons

 

[Ozons123]

Re : Range et cells pour une couleur cellule

Merci Ziopizza pour ton aide

@+ Ozons