Problème code

eduraiss · 5 Février 2009

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 · 5 Février 2009

Re : Problème code

Bonjour

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

à plus

eduraiss · 5 Février 2009

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 · 5 Février 2009

Re : Problème code

bonsoir

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

à bientôt

eduraiss · 5 Février 2009

Re : Problème code

Bonsoir le forum

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

Merci quand même

Cordialement

PMO2 · 5 Février 2009

Re : Problème code

Bonjour,

Essayez avec votre code modifié

Code:

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 · 6 Février 2009

Re : Problème code

Bonsoir à tous.

Je vois

Code:

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 · 6 Février 2009

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

Problème code

eduraiss

XLDnaute Accro

Le Pierre

Guest

eduraiss

XLDnaute Accro

Bebere

XLDnaute Barbatruc

eduraiss

XLDnaute Accro

PMO2

XLDnaute Accro

ROGER2327

XLDnaute Barbatruc

Bebere

XLDnaute Barbatruc

Discussions similaires

Problème code

eduraiss

XLDnaute Accro

Le Pierre

Guest

eduraiss

XLDnaute Accro

Bebere

XLDnaute Barbatruc

eduraiss

XLDnaute Accro

PMO2

XLDnaute Accro

ROGER2327

XLDnaute Barbatruc

Bebere

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency