modifier 2 parametres simultanément

[ong alain]

Bonjour à toutes et à tous

je n 'arrives pas à trouver la syntaxe pour colorer des cellules et ecrire en gras

For x = 1 To 7
If CelleLa = CDate(mess) - x Then CelleLa.Interior.ColorIndex = 8
Selection.Font.Bold = True

Cellela est la cellule selectionner
CDate est la date du jour

si quelques bons génies avait une solution....

merci

Ong alain

 

[JJ59]

Bonjour Alain

As-tu essayé la Mise en Forme Conditionnelle ?


JJ59

 

[CBernardT]

Bonojur Ong et JJ59,

Cela peut être du style :

For x = 1 To 7
If CelleLa <> CDate(mess) - x Then
Range('CelleLa').Interior.ColorIndex = 8
Range('CelleLa').Font.FontStyle = 'Gras'
End If
Next x

Cordialement

Bernard

 

[ong alain]

Re

merci JJ59
mais la MFC fonctionne mais ne va pas dans ce cas d' école


Merci Bernard

je viens de tenter mais ça ne veut pas marcher

@plus merci encore
Ong alain

 

[ong alain]

Bonjour à toutes et à tous


Je viens de simplifier mon classeur pour pouvoir passer sous la barre des 50 ko (l' été approche regime à tous les étages) :woohoo:

Je voudrais que les dates inférieures à celle du jour soit de couleur et en gras mais je n 'arrives pas à trouver la syntaxe....
:sick:

Si vous voyez une solution
merci d'avance...
Ong alain

 

[jerome-gmc]

,

Essaye ça: (une bonne macro manuelle et voila le code)


With Selection.Font
.FontStyle = 'Gras'
End With
With Selection.Interior
.ColorIndex = 3
End With

 

[ong alain]

Merci Jerome-gmc


Je viens de tester mais cela ne fonctionne pas


J' ai mis gras entre '' ça a debugger mais les cellules ne sont
malheusement pas modifiées....


Merci pour ton aide
Ong alain

 

[jerome-gmc]

A coller dans thisworkbook:

Private Sub Workbook_Open()

Dim i
Dim j

For i = 1 To 6 'ligne 1 à 6
For j = 1 To 1 ' colonne A à A
Range(Cells(i, j), Cells(i, j)).Select

If ActiveCell.Value <> Date Then

With Selection.Font
.FontStyle = 'Gras'
End With
With Selection.Interior
.ColorIndex = 3
End With

End If

Next
Next

End Sub

 

[ong alain]

Bonjour à toutes et à tous


Merci jerome.gmc

Je vais tester et je te tiens au courant

merci à lundi

ong alain

 

[ong alain]

Bonjour à toutes & à tous


merci les gars pour votre aide

j' ai trouvé cette solution qui n' utilise pas les select qui ralentissait trop ....
Cela doit pouvoir se simplifier et c' est peut être pas trés académique mais ça fonctionne tout de même....

encore merci
Ong Alain

For Each cellule In Range('c3:ag14')
'si la cellule est inferieure à a1 alors couleur bleue
     If cellule < mess Then cellule.Interior.ColorIndex = 8
' si égale alors couleur jaune
     If cellule = mess Then cellule.Interior.ColorIndex = 7
'si inferieure ou égale alors ecrit en gras
     If cellule <= mess Then cellule.Font.FontStyle = 'gras'
'selection de la cellule du jour
     If cellule = CDate(mess) Then cellule.Select
'coloration en jaune
     ActiveCell.Interior.ColorIndex = 6