Ubuntu-fr

Caracole

Migration de fichier excel vers Calc

Bonjour,

J'ai récemment migrer mes fichiers vers open office et certaines macro me résistent :

1)Private Sub CommandButton1_Click()

    Range("A2").Select
    Selection.AutoFilter Field:=1, Criteria1:="=REAL", Operator:=xlOr, _
        Criteria2:="=CA"

sélection d'un filtre a deux critères sur un bouton

2)Private Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range

For Each Target In Range("h4:ak68")
  Select Case Target.Value
    Case Is = ""
    Target.Interior.ColorIndex = 2
    Case Is = "RE"
    Target.Interior.ColorIndex = 24
    Case Is = "ré"
    Target.Interior.ColorIndex = 24
    Case Is = "R"
    Target.Interior.ColorIndex = 24
    Case Is = "r"
End Select
 

Next
Range("g4:g68").Interior.ColorIndex = 6
 
End Sub
(Colorisation auto en fonction de la valeur rentrée dans une cellule)

Si quelqu'un a une idée avant moi je suis preneur