mise en forme conditionnelle

[sfconstant]

Bonjour à tous,
Faisant mes premier pas en VBA, j'aimerai faire une mise en forme conditionnelle de 3 cellules côte à côte suivant la valeur de la première formule.
J'ai essayé d'écrire la macro suivante mais ça ne fonctione pas !! Pourquoi ?

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 02/02/2008

Dim x As Integer

ActiveCell.Offset(0, 0) = x

If x = 10 Then
ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 2).Select

Interior.ColorIndex = 36

If x = 8 Then
ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 2).Select

Interior.ColorIndex = 35

If x = 2 Then
ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 2).Select

Interior.ColorIndex = 40

End If
End If
End If

End Sub

Merci pour le coup de main.
Bonne soirée à tous.

 

[pascal21]

Re : mise en forme conditionnelle

bonsoir
si tu n'as pas plus de condition à intégrer, pourquoi ne tentes-tu pas ta chance avec la mise en forme conditionnelle classique

 

[sfconstant]

Re : mise en forme conditionnelle

J'essaie d'apprendre à programmer en VBA, c'est pourquoi, volontairement, je ne casse la tête pour ne pas utiliser la mise en forme conditionnelle.

 

[phlaurent55]

Re : mise en forme conditionnelle

Pourrais-tu joindre un petit bout de fichier "zippé" avec qq explicatiions claires et précises

 

[sfconstant]

Re : mise en forme conditionnelle

Ci-joint un exemple de planning avec l'outil "mise en forme conditionnelle" que j'aimerai réaliser automatiquement à l'aide d'une macro

 

[wilfried_42]

Re : mise en forme conditionnelle

bonjour à tous

If x = 10 Then
     with range(ActiveCell.address & ":" & activecell.offset(0,2).address)
     .Interior.ColorIndex = 36
     exit sub
end if
If x = 8 Then
     with range(ActiveCell.address & ":" & activecell.offset(0,2).address)
     .Interior.ColorIndex = 35
     exit sub
end if
If x = 2 Then
     with range(ActiveCell.address & ":" & activecell.offset(0,2).address)
     .Interior.ColorIndex = 40
     exit sub
end if

 

[pascal21]

Re : mise en forme conditionnelle

J'essaie d'apprendre à programmer en VBA, c'est pourquoi, volontairement, je ne casse la tête pour ne pas utiliser la mise en forme conditionnelle.

ok c'est parfait et c'est tout à ton honneur
bonne continuation

 

[sfconstant]

Re : mise en forme conditionnelle

Je suis désolé mais le code ne fonctionne pas (si je tape une valeur rien ne se passe)
A +

 

[wilfried_42]

Re : mise en forme conditionnelle

re:

il ne faut pas confondre cellule active et cellule cible (Target)

Quand tu fait une saisie dans une cellule et que tu fais Entrée ou Tab, ta cellule active devient la nouvelle cellule, et das la nouvelle celllule, plus de donné à tester

un fichier joint, le code est dans module Feuil1 (Interruption d'evennement sur saisie de cellule)

 

[sfconstant]

Re : mise en forme conditionnelle

re:

il ne faut pas confondre cellule active et cellule cible (Target)

Quand tu fait une saisie dans une cellule et que tu fais Entrée ou Tab, ta cellule active devient la nouvelle cellule, et das la nouvelle celllule, plus de donné à tester

un fichier joint, le code est dans module Feuil1 (Interruption d'evennement sur saisie de cellule)

Merci ça marche bien
Je vais encore me renseigner sur la cellule cible car j'ai un peu de mal avec cette notion
Merci beaucoup pour le code (que je vais étudier)
Bonne soirée
A +
sfconstant