Problème code

[eduraiss]

Bonjour le forum

Voici un morceaux de code qui mets l'intérieur des certaines celules en "vert"

Dim DateSamedi As Date, FindRang As Range
Application.ScreenUpdating = False

FeuilSamedi$ = ActiveSheet.Name
FeuilGroupe$ = "Groupes semaines"
CouleurTravail = 4 'couleur des noms qui travaillent(vert clair)
DateSamedi = Sheets(FeuilSamedi$).Range("F1") 'le samedi recherché dans la feuille FeuilSamedi$

' met la couleur des champs noms à nul
Sheets(FeuilSamedi$).Range("C4:J123").Interior.ColorIndex = xlColorIndexNone

Range( _
"C3:J3,C13:H13,I28,I33,J33,I38,J38,I44,J44,C36:H36,I52,J52,C64:J64,I62:J63,I81,I95,J95,I100,J100,I106,J106,I114,J114,C97:H97" _
).Select
Range("C97").Activate

With Selection.Interior

.PatternColorIndex = 34
.Color = 16777164

Je voudrais que cela ne soit pas l'intérieur de la celule qui se mette en vert mais la police

Merci de votre aide

 

[Le Pierre]

Re : Problème code

Bonjour

Remplace simplement :
.Interior.ColorIndex = ...
par :
.Font.ColorIndex = ...

à plus

 

[eduraiss]

Re : Problème code

Re bonjour le pierre

J'ai déjà essayé avec Font, le message d'erreur apparaît

"impossible de définir la propriété coloindex de la classe font"

Merci encore

 

[Bebere]

Re : Problème code

bonsoir

enlève Range("C97").Activate entre select et selection

à bientôt

 

[eduraiss]

Re : Problème code

Bonsoir le forum

Merci bebere pour cet réponse mais cela ne fonctionne pas

Merci quand même

Cordialement

 

[PMO2]

Re : Problème code

Bonjour,

Essayez avec votre code modifié

Dim DateSamedi As Date, FindRang As Range
Application.ScreenUpdating = False

FeuilSamedi$ = ActiveSheet.Name
FeuilGroupe$ = "Groupes semaines"
CouleurTravail = 4 'couleur des noms qui travaillent(vert clair)
DateSamedi = Sheets(FeuilSamedi$).Range("F1") 'le samedi recherché dans la feuille FeuilSamedi$

' met la couleur des champs noms à nul
Sheets(FeuilSamedi$).Range("C4:J123").Interior.Col orIndex = xlColorIndexNone

Range( _
"C3:J3,C13:H13,I28,I33,J33,I38,J38,I44,J44,C36:H36,I52,J52,C64:J64,I62:J63,I81,I95,J95,I100,J100,I106,J106,I114,J114,C97:H97" _
).Select

With Selection.Interior
  .Color = 16777164
End With

With Selection.Font
  .ColorIndex = 3
    '--- et aussi ---
  .Bold = True
  .Italic = True
  .Size = 15
  .Name = "Tahoma"
    '--- etc ---
End With

Cordialement.

PMO
Patrick Morange

 

[ROGER2327]

Re : Problème code

Bonsoir à tous.

Je vois

Sheets(FeuilSamedi$).Range("C4:J123").Interior.[COLOR="Red"][B]Col orIndex[/B][/COLOR] = xlColorIndexNone

Si c'est un "copié-collé" du code, il y a une espace en trop. Mais peut-être ne s'agit-il que d'une faute de frappe en recopiant le code ?​

Bonne nuit !
ROGER2327

 

[Bebere]

Re : Problème code

bonjour
j'ai essayé comme suit et c'est ok(excel2003)
Sub c()
Dim rng As Range
FeuilSamedi$ = ActiveSheet.Name
With Sheets(FeuilSamedi$)
.Range("C4:J123").Interior.ColorIndex = xlNone
Set rng = .Range( _
"C3:J3,C13:H13,I28,I33,J33,I38,J38,I44,J44,C36:H36,I52,J52,C64:J64,I62:J63,I81,I95,J95,I100,J100,I106,J106,I114,J114,C97:H97" _
)
End With
'1 à 56
rng.Interior.ColorIndex = 4 'vert
With rng.Font
.ColorIndex = 3 'rouge
'--- et aussi ---
.Bold = True
.Italic = True
.Size = 15
.Name = "Tahoma"
'--- etc ---
End With


End Sub


à bientôt