Exit sub si strikethrough

[Demouret]

Bonjour Le Forum
Lorsque je double-clic sur une cellule en C8:C100 ça ouvre un USF
Je voudrai empecher l'ouverture de cet USF si le contenu de la cellule en C est barré
j'ai écris ça mais ca ne fonctionne pas en l'état
Si un spécialiste pouvait m'aiguiller

Merci


For Each Cell In Range("C8:c100")
If Cells(ActiveCell).Strikethrough = True Then Exit Sub
Next

 

[phlaurent55]

Re : Exit sub si strikethrough

Bonjour Demouret,

essaie ceci:

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

à+
Philippe

 

[Dranreb]

Re : Exit sub si strikethrough

Bonjour
Essayez comme ça:

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

Cordialement

 

[Dull]

Re : Exit sub si strikethrough

Salut Demouret, le Forum

Peut-être comme cela

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

 

[Staple1600]

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.

 

[Demouret]

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