excel 2000 barrer une cellule en MFC

[bezo]

bonsoir à tous,

voilà mon petit soucis, je me suis aperçu que les options dans le format de cellule d'une MFC étaient restreintes par rapport à un format de cellule, d'une cellule, d'une feuille (clic droit), comme par exemple, barrer un cellule en travers.
Ce que je voudrais faire en fait, est assez simple en soit :

pouvoir barrer en travers la cellule A1 d'un trait rouge si dans la cellule A2 j'inscris "refusé".

J'ai bien essayé de trouver une solution un peu partout mais je n'ai pas trouvé de cas similaire au mien. Dois-je me tourner vers une macro (si oui laquelle ?) ou y-a-t'il une astuce pour contourner le problème ?

en vous remerciant d'avance.

 

[JNP]

Re : excel 2000 barrer une cellule en MFC

Bonsoir 🙂,
Pour une MFC, c'est possible en 2007

Sub test()
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=3"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 45
    .Gradient.ColorStops.Clear
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0)
    .Color = 16777215
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0.45)
    .Color = 16777215
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0.5)
    .Color = 255
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0.55)
    .Color = 16777215
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(1)
    .Color = 16777215
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
ActiveCell.FormulaR1C1 = "3"
End Sub

mais je ne pense pas que ça passera en 2000 😱.
Bonne soirée 😎

 

[JNP]

Re : excel 2000 barrer une cellule en MFC

Re 🙂,
Sinon, version 2000, mais ce n'est pas une MFC, juste une bascule sur une événementielle. Voir PJ. Il te suffit de mettre autre chose que refusé, ou de remettre refusé.
Bonne soirée 😎

 

[bezo]

Re : excel 2000 barrer une cellule en MFC

en effet, cela ne fonctionne pas sous 2000. 🙁

merci tout de même.

 

[JNP]

Re : excel 2000 barrer une cellule en MFC

Re 🙂,

en effet, cela ne fonctionne pas sous 2000. 🙁

Le fichier du 2ème post ne fonctionne pas sous 2000 ?
C'est bizare, y rien de spécial 😕.
T'inquiètes-pas, y a bien un possesseur d'Excel 2000 qui te le corrigera 😉.
Bonne soirée 😎

 

[jeanpierre]

Re : excel 2000 barrer une cellule en MFC

Bonsoir bezo, Jean-Noël,

Sous 2000, c'est cette ligne qui bug.... : .TintAndShade = 0

Pour l'instant vois pas trop quoi faire.

Bonne soirée.

Jean-Pierre

 

[bezo]

Re : excel 2000 barrer une cellule en MFC

merci à tous les 2 et en effet sous 2000 ça bug. par contre en enlevant .TintAndShade = 0 cela fonctionne correctement.
maintenant, pour être claire avec ma demande, voilà où je voulais en venir, cette condition de cellule doit-être affectée à toute une colonne en fonction d'un choix de spécialités (MOPOMPI M et POMPI) à chaque fois que je rajoute un nom comme dans le tableau en pièce jointe. C'était le but initial de ce post.

J'espère ne pas être trop exigent, mais je ne penser pas devoir utiliser de macro. Malheureusement, on a 10 ans de retard au boulot avec MS 2000.

Désolé et merci encore.

 

[JNP]

Re : excel 2000 barrer une cellule en MFC

Re 🙂,
Avec ce code, ça devrait le faire

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target.Value = "MOPOMPI M" Or Target.Value = "POMPI" Then
    With Target.Offset(0, -2).Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .Color = -16776961
        .Weight = xlThick
    End With
Else
Target.Offset(0, -2).Borders(xlDiagonalUp).LineStyle = xlNone
End If
End Sub

Bonne AM 😎

 

[bezo]

Re : excel 2000 barrer une cellule en MFC

merci à toi JPN, oh grand manitou de la macro 🙂
c tous ce qu'il me fallait.
bonne soirée et encore merci .