Barrer texte cellule

[kaki31]

Bonsoir;

Comment puis je barrer le texte d'une cellule ?

Ex: si K6=Non ;barrer G12;sinon barrer G11

Merci.
🙂

 

[Fred0o]

Re : Barrer texte cellule

Bonsoir kaki13,

Voici le code à mettre dans le code de la feuille (click-droit sur l'onglet puis visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [K6]) Is Nothing Then Exit Sub
    If LCase([K6]) = "non" Then
        [G12].Borders(xlDiagonalDown).LineStyle = xlContinuous
        [G12].Borders(xlDiagonalDown).Weight = xlThin
        [G12].Borders(xlDiagonalUp).LineStyle = xlContinuous
        [G12].Borders(xlDiagonalUp).Weight = xlThin
        [G11].Borders(xlDiagonalDown).LineStyle = xlNone
        [G11].Borders(xlDiagonalUp).LineStyle = xlNone
    Else
        [G11].Borders(xlDiagonalDown).LineStyle = xlContinuous
        [G11].Borders(xlDiagonalDown).Weight = xlThin
        [G11].Borders(xlDiagonalUp).LineStyle = xlContinuous
        [G11].Borders(xlDiagonalUp).Weight = xlThin
        [G12].Borders(xlDiagonalDown).LineStyle = xlNone
        [G12].Borders(xlDiagonalUp).LineStyle = xlNone
    End If
End Sub

A+

 

[R@chid]

Re : Barrer texte cellule

Bonsoir,
voir si j'ai compris la demande,
Amicalement

 

[kaki31]

Re : Barrer texte cellule

Bonsoir Fred0o, bonsoir R@chid

Merci pour vos réponses;

Merci Fred0o
Pour k6= soit "Oui" soit "Non" et la valeur de K6 est trouvé a l'aide de "recherchev" donc il me faut a chaque fois que je valide k6 pour avoir le résultat.

Merci R@chid
c'est quoi le code?

🙂

 

[R@chid]

Re : Barrer texte cellule

Bonsoir @ tous,
C'est pas un code c'est juste une MFC...
Amicalement

 

[kaki31]

Re : Barrer texte cellule

Oui ! pourquoi pas? est c'est simple
Merci R@chid
🙂