Exit sub si strikethrough

phlaurent55

Nous a quittés en 2020

Repose en paix

• 17 Décembre 2011

• #2

Re : Exit sub si strikethrough

Bonjour Demouret,

essaie ceci:

If cells(ActiveCell).Font.Strikethrough = True Then.........

à+
Philippe

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Décembre 2011

• #3

Re : Exit sub si strikethrough

Bonjour
Essayez comme ça:

VB:

Dim Cel As Range
For Each Cel In Range("C8:c100")
   If Cel.Font.Strikethrough Then Exit Sub
   Next Cel

Cordialement

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 17 Décembre 2011

• #4

Re : Exit sub si strikethrough

Salut Demouret, le Forum

Peut-être comme cela

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [C8:C100]) Is Nothing Then
Cancel = True
If Target.Font.Strikethrough = True Then
Exit Sub
Else
UserForm1.Show 0
End If
End If
End Sub

EDITION: Salut Philippe🙂, Bernard🙂
Bonne Journée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Décembre 2011

• #5

Re : Exit sub si strikethrough

Bonjour à tous


Et si la cellule "barrée" ne l'était plus ?
Format/Cellule/Police/ je décoche "barrée"
et là je lance ton userform et il s'affiche.

 

Vote positif 0 Vote négatif

D

Demouret

Guest

• 17 Décembre 2011

• #6

Re : Exit sub si strikethrough

Re bonjour et merci à tous pour votre attention

Dull, Ca fonctionne à merveille Merci
Dranreb, En fait le USF ne s'ouvre plus si une seule des cellules de C8:C100 est barré et pas seulement sur la cellule active. Merci beaucoup
JM , Effectivement tout à fait. Mais c'est seulement pour nous prévenir une erreur de manip en interne et non pour apporter une protection efficace

En tout cas merci à vous tous

Et bon week End

Pierre

 

Vote positif 0 Vote négatif