formule conditionnelle en vba (reglè)

[pascal21]

bonsoir à tous
j'aimerais savoir comment écrire une formule conditionnelle en vba
en effet le mfc trditionnel ne comporte que 3 conditions ,ce qui n'est pas suffisant pour ce que je veux faire
donc j'aimerais utiliser la fonction 'formula' pour la colonne F
ex si f3100 ' ' ' vert
valable sur la colonne de f3 à f50
comment faut-il procéder
merci

Message édité par: pascal21, à: 22/04/2006 09:40

Message édité par: pascal21, à: 23/04/2006 14:32

 

[_Thierry]

Re:formule conditionnelle en vba

Bonsoir Pascal, Marc, Temjeh, JCGL, mon ami Dan, le Forum

Une autre approche en abandonnant les MFC (qui doivent être supprimées de ta colonne 'F')

Option Explicit
Option Compare Text


Sub ConditionalFormat()
Dim Plage As Range, Cell As Range

Set Plage = Sheets('Feuil1').Range('F7:F50')

For Each Cell In Plage
    If IsNumeric(Cell.Offset(0, 6)) Then
        Select Case Left(Cell.Offset(0, -4).Value, 1)
            Case 'W'
                Cell.Interior.ColorIndex = Parcours(Cell.Offset(0, 6)) + 2
            Case 'T'
                Cell.Interior.ColorIndex = Parcours(Cell.Offset(0, 6)) + 3
            Case 'V'
                Cell.Interior.ColorIndex = Parcours(Cell.Offset(0, 6)) + 4
            Case 'I'
                Cell.Interior.ColorIndex = Parcours(Cell.Offset(0, 6)) + 5
            Case Else
                Cell.Interior.ColorIndex = xlNone
        End Select
    End If
Next Cell

End Sub

Private Function Parcours(KM As Double) As Byte

Select Case KM
    Case Is > 250: Parcours = 1
    Case 200 To 249: Parcours = 10
    Case Is < 200: Parcours = 20
End Select

End Function

Bonne Nuit
[ol]@+Thierry[/ol]

 

[pascal21]

Re:formule conditionnelle en vba

bonjour à tous finalement devant la difficulté de ce problème , j'ai pris la suggestion de marc et poser la mfc sur 3 colonnes (a b c)
moins présentable mais au moins ça fonctionne sans bug
merci à tout ceux qui ont buchés sur mon soucis
sujet fermé

 

[_Thierry]

Re:formule conditionnelle en vba

Bonjour Pascal; le Fil, le Forum


Je ne sais pas si tu as essayé ma proposition, mais elle fonctionne sans bug, et à ma connaissance tu pourra faire autant de Mise en Forme qu'il y a d'IndexColor...

Sub ListIndexColor()
Dim x As Byte

For x = 1 To 56
    With Cells(x, 1)
        .Value = 'Color Index ' & x
        .Interior.ColorIndex = x
    End With
Next


End Sub

Bion Dimanche
[ol]@+Thierry[/ol]

 

[pascal21]

Re:formule conditionnelle en vba

bonjour thierry
en effet j'avais essayé mais sans succès
je pense que je ne dois pas savoir où mettre cette macro: module; feuille ou classeur

 

[_Thierry]

Re:formule conditionnelle en vba

Bonsoir Pascal

Au stade actuel, c'est une simple Sub, de module Standard que tu peux actionner avec un bouton.

Tu peux aussi la lancer depuis une macro évènementielle, bien entendu.

Bonne Soirée
@+Thierry

 

[pascal21]

Re:formule conditionnelle en vba

Ah bon!!! il faut la lancer avec un bouton, j'avais pas vu ça comme ça
je vais essayer pour voir