XL 2016 raccourcir code if

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #16

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

VB:

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

 

Dernière édition: 29 Septembre 2019

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 29 Septembre 2019

• #17

Re,

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

VB:

.Offset(ActiveCell.Row - 1)

?
eric

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 29 Septembre 2019

• #18

Re-Bonjour Eriiiic,

Malheureusement je ne sais vraiment pas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #19

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,

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #20

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 29 Septembre 2019

• #21

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é

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #22

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

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 29 Septembre 2019

• #23

Bonsoir endimanché,

Un grain de sel qui sent le fromage:

VB:

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

 

Pièces jointes

• raccourcir_code_if.xlsm

  20.9 KB · Affichages: 4

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #24

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Septembre 2019

• #25

bonsoir a tous

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #26

Re, Bonsoir patricktoulon

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

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Septembre 2019

• #27

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???

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 29 Septembre 2019

• #28

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,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #29

Re

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #30

Re

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

VB:

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

 

Vote positif 0 Vote négatif