Discussion :

[tritri33551]

Bonjour,
je souhaites réaliser une fonction en vba qui modifie les bordures d'une cellule excel en fonction de ce qui est écrit dedans. Pour cela, j'utilise les méthodes borders, lineStyle et colorIndex. Or une fois le programme créé seule la méthode ColorIndex fonctionne alors que la méthode lineStyle n'a aucun effet.
J'ai déjà identifié le même problème avec la méthode de remplissage de cellule (font.IndexColor) mais je n'ai plus besoin de trouver de solution.

Pouvez-vous m'aider ?
Malgré mes nombreuses recherches, je n'ai pas trouvé de réponses ni sur les forums anglais ni sur les français.
Merci d'avance et bonne journée

Ci-joint les photos d'un exemple de ce que je veux faire

[78chris]

Bonjour

Ceci fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    With Range("A1").Borders(xlEdgeBottom)
        .LineStyle = xlDot
        .ColorIndex = 7

Mais si Phrase est une cellule nommée, la syntaxe n'est pas bonne

Une solution en événementiel dans le module de la feuille concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("Phrase")) Is Nothing Then Exit Sub
 
    With Range("A1")
        .Borders(xlEdgeBottom).LineStyle = xlDot
        If Target.Value = "OUI" Then
            .Borders(xlEdgeBottom).ColorIndex = 7
        ElseIf Target.Value = "NON" Then
            .Borders(xlEdgeBottom).ColorIndex = 3
        Else
            .Borders(xlEdgeBottom).LineStyle = xlNone
        End If
    End With
 
End Sub

[tritri33551]

Bonjour et merci pour votre réponse rapide,
votre première solution ne marche pas de mon coté, je n'obtiens pas une ligne en pointillée comme vous le montre ces photos.



Pour la deuxième solution, je ne comprends pas très bien ce que vous me proposez.
Je ne comprends pas comment implémenter ce programme
Mais pour plus de précision, dans la cellule A6, j'ai cette fonction : =ftest(B3)

Merci d'avance

[78chris]

RE

Tu as quelle version Excel ?

La partie else ne peux pas fonctionner puisqu'il n'y a plus de ligne définie en xlDot

[Philippe Tulliez]

Bonjour,
Je ne pense pas que votre problème vienne de cette propriété mais personnellement, je privilégie toujours la propriété Color au lieu de ColorIndex car seule la première restitue la même couleur quelque soit la version ou le PC

[tritri33551]

Bonjour,
Je ne pense pas que votre problème vienne de cette propriété mais personnellement, je privilégie toujours la propriété Color au lieu de ColorIndex car seule la première restitue la même couleur quelque soit la version ou le PC

Merci pour l'information, je retiens pour la suite de mon projet.

[tritri33551]

RE

Tu as quelle version Excel ?

La partie else ne peux pas fonctionner puisqu'il n'y a plus de ligne définie en xlDot

Je suis sur Excel avec la licence Microsoft Office Famille et Petite Entreprise 2019.
Justement, quand il est marqué "oui", je veux que la bordure soit en pointillée et quand c'est autre choses je veux qu'il n'y ai pas la bordure.