XL 2016 raccourcir code if

[Usine à gaz]

Bonjour à toutes et à tous,

Réflexion du dimanche matin après petit dej - nettoyage frimousse -ptit coup de peigne et p'tit brossage de dent comme dirait notre cher Staple1600,

Je voudrait raccourcir une code il et je ne sais pas faire.

Voilà ce que ça donne actuellement :

If Cells(ActiveCell.Row, 7) = "" And Cells(ActiveCell.Row, 10) = "" And Cells(ActiveCell.Row, 12) = "" And Cells(ActiveCell.Row, 17) = "" And Cells(ActiveCell.Row, 18) = "" Cells(ActiveCell.Row, 22) = "" And Cells(ActiveCell.Row, 20) = "" And [T3] <> "OK" Then [T3] <> "OK" Then

Est-il possible de coder autrement pour regrouper les conditions ="" en une seule ?

Avec mes remerciements,
Je vous souhaite à toutes et à tous, un très beau dimanche,
Amicalement,
lionel,

 

[Usine à gaz]

Merci JM pour tant de perspicacité,

Je testerai tes deux derniers codes post 26 et 30 dès que j'ai un moment et je te dirai

 

[patricktoulon]

re
et la même pour ceux qui connaissent pas l’écriture abrégée d' Evaluate de mon premier modele

donc evaluate textuellement codée

Public Sub boutonRecherchePat2()
    Dim va
    With Application
        va = Trim(Join(.Index(.Index(Rows(ActiveCell.Row).Value, Evaluate("ROWS(1)"), Array(10, 12, 17, 18, 20, 22)), 1, 0)))   'mettre les colonnes que l'on veut dans l'ordre voulues
    End With
    MsgBox Array("C'est bon", "C'est pas bon")(Abs(va <> ""))
End Sub

ajouter la condition t3 dans le ABS