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,

 

[Staple1600]

Re

Donc qu'affiche cette MsgBox si ce n'est la ligne active !!!
(ou plutôt l'adresse des cellules des colonnes G,J,L,Q,R,T,V de la ligne active)
(je parle de la macro du message#14)


Ce sera peut-être plus clair avec cette autre macro de test

Sub test4()
Dim p As Range
Set p = Range("G1,J1,L1,Q1,R1,T1,V1").Offset(ActiveCell.Row - 1)
MsgBox p.Address
MsgBox Left(Split(p.Address, "$")(2), 2)
MsgBox ActiveCell.Row
End Sub

 

[eriiic]

Re,

tu n'as pas une petite idée de ce à quoi sert

.Offset(ActiveCell.Row - 1)

?
eric

 

[Usine à gaz]

Re-Bonjour Eriiiic,

Malheureusement je ne sais vraiment pas

 

[Staple1600]

Re, Bonjour eriiiic

Tu n'as pas une petit idée de que cette phrase peut bien vouloir dire ?

Mais je peux être sur n'importe ligne active et c'est "la ligne active" qui doit être analysée
lionel,

Parce que pour moi, la ligne active, comme son nom l'indique, elle est unique et active.
Et qu'on se trouve sur n'importe quelle ligne active, celle-ce sera toujours la ligne active, été comme hiver, et même les années bissextiles
Et c'était déjà le cas dans Excel 4

 

[Staple1600]

Re

arthour973
Tu as testé les macros test3 et test4* ????
Si oui, ce qui s'affiche correspond bien à la ligne active, non ?
Je ne comprends pas qu'un barbatruc comme toi bloque sur ce bout de code

*: voir macro dans le message#16

 

[Usine à gaz]

LOL barbatruc barbatruc OUI selon le nombre de messages
Mais rien à voir avec le niveau LOL

Je n'ai pas encore eu le temps de tester car je suis en réunion.
Je le fais dès que j'ai terminé

 

[Staple1600]

Re

Si tu avais testé, on ne serait pas déjà arriver au message#21.

PS: Je t'ai déjà dit que le coup de l’auto dépréciation ne fonctionne pas avec moi

 

[Hasco]

Bonsoir endimanché,

Un grain de sel qui sent le fromage:

Public Sub boutonRechercheRob()
    Dim adr As String:  adr = Replace("G?,j?,L?,Q?,R?,T?,V?", "?", ActiveCell.Row)
     MsgBox Array("C'est bon", "C'est pas bon")(-(Application.CountA(Range(adr)) > 0 And Range("T3") = 1))
End Sub

Bonne soirée

 

[Staple1600]

Re le fil, Bonsoir Roblochon

Roblochon
J'adore le raifort
Et ici, l'Array c'est fort (dans le MsgBox s'entends)
Je mets cela en signet.

 

[patricktoulon]

bonsoir a tous

Roblochon ++++++
je vous en donne une autre
dans le style

Public Sub boutonRechercheRob()
    Dim x
    x = Trim(Join(Application.Index(Application.Index(Rows(ActiveCell.Row).Value, [{1;1}], Array(10, 12, 17, 18, 20, 22)), 1, 0)))
 MsgBox Array("C'est bon", "C'est pas bon")(Abs(x <> ""))
End Sub

 

[Staple1600]

Re, Bonsoir patricktoulon

Je sors juste la serpette, pour élagage avant ma tisane du soir

Sub boutonRechercheRobA()
    Dim adr As String:  adr = Replace("G?,j?,L?,Q?,R?,T?,V?", "?", ActiveCell.Row)
     MsgBox "C'est " & Array("bon", "pas bon")(-(Application.CountA(Range(adr)) > 0 And Range("T3") = 1))
End Sub
Sub boutonRechercheRobB()
Dim x
With Application
.ScreenUpdating = False
x = Trim(Join(.Index(.Index(Rows(ActiveCell.Row).Value, [{1;1}], Array(10, 12, 17, 18, 20, 22)), 1, 0)))
MsgBox "C'est " & Array("bon", "pas bon")(Abs(x <> ""))
End With
End Sub

 

[patricktoulon]

re
oui si tu veux, j'ai quand même oublié le [T3]=1 dans la condition reste a l' associer dans le "ABS"
question:
le "ScreenUpdating = False" il sert a quoi???

 

[Usine à gaz]

Re-Bonjour JM, Eriiiic,

Bonjour Roblochon, Patrick,

Les codes de Roblochon et de Patrick fonctionnent nickel, je vous en remercie

Merci à vous tous pour m'avoir aidé car j'avais déjà avancé (sans résoudre complètement) avec les codes de JM et d'Eriiiic.
Bonne fin de dimanche,
Amicalement,
lionel,

 

[Staple1600]

Re

Et dans tous les codes proposés dans le fil, on utilisait ActiveCell.Row
Va comprendre, Charles...

 

[Staple1600]

Re

Pour finir, je sors du garage (et après relecture de tout le fil, je corrige la macro test4)

Sub test5()
Dim p As Range
Set p = Range("G1,J1,L1,Q1,R1,T1,V1").Offset(ActiveCell.Row - 1)
If Application.CountA(p) > 0 And [T3] = 1 Then
MsgBox "C'est bon"
Else
MsgBox "C'est pas bon"
End If
End Sub