Microsoft 365 affichage curieux pendant l'exécution d'une macro

TooFatBoy

XLDnaute Barbatruc

• 19 Mars 2020

• #16

Staple1600 à dit:

C'est pour cela que j'avais bien précisé
Mon VBA ne connait pas ActiveRows (de manière native)
"L'avantage", c'est que cette erreur ne génère pas d'erreur mais renvoie n'importe nawak
La preuve

Cliquez pour agrandir...

OK, donc la réponse à ma question semble être "oui", ça aurait pu être une fonction si je comprends bien.

ActiveRows n'étant pas connu d'Excel, il doit être considéré par Excel comme étant une variable, et s'il n'y a pas d'Option Explicit, ça ne génère bien sûr pas d'erreur, je suppose.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 19 Mars 2020

• #17

Bonjour D.D., merci d'être là
Mais c'est bon maintenant voir #15
Bonne fin de journée
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 19 Mars 2020

• #18

@ Marcel 32 #7 : merci à toi... je vois le principe

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Mars 2020

• #19

arthour973 à dit:

J'ai trouvé Marcel32 avait raison il fallait tout simplement placer :
Application.EnableEvents = False
Application.ScreenUpdating = False

Cliquez pour agrandir...

J'avais bien parlé de ScreenUpdating sans être sûr, loin de là...
J'avais pensé aux événements, mais n'y comprenant pas grand chose, je n'avais pas abordé le sujet.

Enfin, je crois que le fait de ne pas utiliser les Activate et Select est plus efficace pour ce problème, et en plus ça fait tourner la macro plus rapidement.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 19 Mars 2020

• #20

En fait j'avais placé :
Application.EnableEvents = False
Application.ScreenUpdating = False
au niveau ou le code agit si les conditions de blocage ne sont pas existantes,
mais il fallait le placer en tout début du code.
lionel,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mars 2020

• #21

Re

•>Marcel32
A force d'être confiné, on risque de finir con
(je parle uniquement pour moi bien sûr )
La preuve

VB:

Sub Pour_Marcel32()
Dim ActiveRows&, la_ligne_A_Marcel&
Application.Goto Cells(Application.RandBetween(1, 32), "S")
ActiveRows = ActiveCell.Row
la_ligne_A_Marcel = Rows(Val("Marcel32") + Val(Chr(51) + Chr(50))).Row 'pour le gag ;-)
MsgBox ActiveRows
MsgBox la_ligne_A_Marcel
End Sub

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 19 Mars 2020

• #22

Re-JM,
Ti crois qu'on a attendu le "con finement" ?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Mars 2020

• #23

J'aime pas beaucoup le Val("Marcel32"), qui donne bien sûr... zéro !!!



lol

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mars 2020

• #24

Re

•>arthour973
Si je précise
•>Pseudo
C'est que le message s'adresse à Pseudo
Donc le message#21 s'adressait à ?


PS: Dans ce cas, change ta signature
"Seule la connerie de l'humain envers l'humain et son biotope en finira avec l'Humanité"
Ce qui sera une bonne chose pour Gaia
(Oh zut, je viens de refaire une rechute de nihilisme)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mars 2020

• #25

Re

•>Marcel32
Tu as testé ?
Parce que chez moi, la ligne à Marcel elle vaut 32
J'espère que tu faisais de l'humour ? T'es pas vexé pour de vrai, hein ?
Parce que le code du message#21 répondait en mode détente à ta question du message#16

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Mars 2020

• #26

Oui, bien sûr que j'ai testé, et ça donne bien 32, mais plus grâce au Val(Chr(51) + Chr(50)) qu'au Val("Marcel32")...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mars 2020

• #27

Re

•>Marcel32
Voir l'édition du message#25
(Ouf )

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Mars 2020

• #28

Y a no soucy man : voir le #23 en entier, en particulier juste au-dessus de ma signature (et pour une fois, ce n'est pas un [edit][/edit] )

 

Vote positif 0 Vote négatif