Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel (vba) optimiser code ...

(vba) optimiser code ...

15 réponses
Avatar
j-pascal
Bonsoir,

Comment puis-je optimiser ce code sous une forme "With ActiveSheet.Shapes
???? End With" ?

Merci pour vos lumières,

JP

'----------------------
Private Sub essai_Montre()

ActiveSheet.Shapes("Aide1").Visible = True
ActiveSheet.Shapes("Aide2").Visible = True
ActiveSheet.Shapes("Aide3").Visible = True
ActiveSheet.Shapes("Aide4").Visible = True
etc...

End Sub

'----------------------
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
MichDenis
Oups, pour optimiser, il faudrait utiliser le nom de l'objet "Feuillle" dans l'éditeur de code

With Feuil1
.Shapes.Range(Array("Aide1", "Aide2", "Aide3", "Aide4")).Visible = msoCTrue ' ou msoFalse
End With

C'est plus rapide, reste à voir si tu peux percevoir la différence : 2 nanosecondes de moins

;-)




"MichDenis" a écrit dans le message de news:

Les Msg ont plus de résilience lorsqu'il s'agit de vider les burettes de vin !!!
;-))

Pourtant, tu y étais presque !

Comme ceci :
With Worksheets("Feuil1")
.Shapes.Range(Array("Aide1", "Aide2", "Aide3", "Aide4")).Visible = msoCTrue ' ou msoFalse
End With

P.S- Tu m'excusera j-pascal de ne pas te fournir un fichier exemple...
j'ai des problèmes avec cjoint !


"Mgr Banni" a écrit dans le message de news:

je m'en doutais
aussi retourne-je dans ma sacristie, sapristi
Mgr T.B.

"j-pascal" a écrit dans le message de news:
%
Testé, et erreur d'exécution 13 "incompatibilité de type"

Pas grave, la solution de Daniel.C me convient parfaitement.

Merci quand même,

JP

"Mgr Banni" a écrit dans le message de news:

bonsoir jp
peut-être comme ceci :

ActiveSheet.Shapes(Array("Aide1,Aide2,Aide3,Aide4")).Visible = True

non testé...et heureusement!
Mgr T.B.

"j-pascal" a écrit dans le message de news:

Bonsoir,

Comment puis-je optimiser ce code sous une forme "With
ActiveSheet.Shapes ???? End With" ?

Merci pour vos lumières,

JP

'----------------------
Private Sub essai_Montre()

ActiveSheet.Shapes("Aide1").Visible = True
ActiveSheet.Shapes("Aide2").Visible = True
ActiveSheet.Shapes("Aide3").Visible = True
ActiveSheet.Shapes("Aide4").Visible = True
etc...

End Sub

'----------------------










Avatar
Mgr Banni
merci...michel, pour m'avoir aidé à finir la burette : et ce matin, j'aurai
l'air un peu moins bête lorsqu'il s'agira pour moi de monter en chaire pour
le sermon dominical
Mgr T.B.

"MichDenis" a écrit dans le message de news:

Les Msg ont plus de résilience lorsqu'il s'agit de vider les burettes de
vin !!!
;-))

Pourtant, tu y étais presque !

Comme ceci :
With Worksheets("Feuil1")
.Shapes.Range(Array("Aide1", "Aide2", "Aide3", "Aide4")).Visible =
msoCTrue ' ou msoFalse
End With

P.S- Tu m'excusera j-pascal de ne pas te fournir un fichier exemple...
j'ai des problèmes avec cjoint !


"Mgr Banni" a écrit dans le message de news:

je m'en doutais
aussi retourne-je dans ma sacristie, sapristi
Mgr T.B.

"j-pascal" a écrit dans le message de news:
%
Testé, et erreur d'exécution 13 "incompatibilité de type"

Pas grave, la solution de Daniel.C me convient parfaitement.

Merci quand même,

JP

"Mgr Banni" a écrit dans le message de news:

bonsoir jp
peut-être comme ceci :

ActiveSheet.Shapes(Array("Aide1,Aide2,Aide3,Aide4")).Visible = True

non testé...et heureusement!
Mgr T.B.

"j-pascal" a écrit dans le message de news:

Bonsoir,

Comment puis-je optimiser ce code sous une forme "With
ActiveSheet.Shapes ???? End With" ?

Merci pour vos lumières,

JP

'----------------------
Private Sub essai_Montre()

ActiveSheet.Shapes("Aide1").Visible = True
ActiveSheet.Shapes("Aide2").Visible = True
ActiveSheet.Shapes("Aide3").Visible = True
ActiveSheet.Shapes("Aide4").Visible = True
etc...

End Sub

'----------------------















Avatar
MichDenis
Un Mgr faisait sa visite dans une paroisse très pauvre de Lion....

En visitant le presbytère, Mgr s'aperçoit qu'il n'y a qu'un seul lit dans une seule chambre à
coucher.

Vous n'avez qu'une seule chambre à coucher?

Oui, Monseigneur, nous sommes trop pauvres pour agrandir le presbytère.

Mais votre servante, où est-ce qu'elle couche?

Ici, mais vous savez, nous avons un gros chien bien dompté et il couche entre nous deux.

Mais vous devez avoir des tentations... Qu'est-ce que vous faites alors?


Quand ça m'arrive, je me lève, je vais dehors faire le tour du presbytère, ça passe et je reviens.

Mais votre servante, elle doit avoir des tentations elle aussi.

Quand ça lui arrive, c'est elle qui se lève, qui va dehors faire le tour du presbytère et ça lui
passe.

Mais si ça vous arrive d'avoir une tentation tous les deux en même temps?

Dans ce cas-là, Monseigneur, on envoie le chien faire le tour du presbytère...






"Mgr Banni" a écrit dans le message de news:
%23$
merci...michel, pour m'avoir aidé à finir la burette : et ce matin, j'aurai
l'air un peu moins bête lorsqu'il s'agira pour moi de monter en chaire pour
le sermon dominical
Mgr T.B.

"MichDenis" a écrit dans le message de news:

Les Msg ont plus de résilience lorsqu'il s'agit de vider les burettes de
vin !!!
;-))

Pourtant, tu y étais presque !

Comme ceci :
With Worksheets("Feuil1")
.Shapes.Range(Array("Aide1", "Aide2", "Aide3", "Aide4")).Visible > msoCTrue ' ou msoFalse
End With

P.S- Tu m'excusera j-pascal de ne pas te fournir un fichier exemple...
j'ai des problèmes avec cjoint !


"Mgr Banni" a écrit dans le message de news:

je m'en doutais
aussi retourne-je dans ma sacristie, sapristi
Mgr T.B.

"j-pascal" a écrit dans le message de news:
%
Testé, et erreur d'exécution 13 "incompatibilité de type"

Pas grave, la solution de Daniel.C me convient parfaitement.

Merci quand même,

JP

"Mgr Banni" a écrit dans le message de news:

bonsoir jp
peut-être comme ceci :

ActiveSheet.Shapes(Array("Aide1,Aide2,Aide3,Aide4")).Visible = True

non testé...et heureusement!
Mgr T.B.

"j-pascal" a écrit dans le message de news:

Bonsoir,

Comment puis-je optimiser ce code sous une forme "With
ActiveSheet.Shapes ???? End With" ?

Merci pour vos lumières,

JP

'----------------------
Private Sub essai_Montre()

ActiveSheet.Shapes("Aide1").Visible = True
ActiveSheet.Shapes("Aide2").Visible = True
ActiveSheet.Shapes("Aide3").Visible = True
ActiveSheet.Shapes("Aide4").Visible = True
etc...

End Sub

'----------------------















Avatar
MichDenis
J'oublilais... si je te mets ça dans un fichier, est-ce que cela va t'aider à comprendre ?

;-)))
Avatar
j-pascal
Bonsoir,

Merci pour cette autre proposition que j'ai testée avec succès et que je
conserve précieusement.

JP

"MichDenis" a écrit dans le message de news:

Oups, pour optimiser, il faudrait utiliser le nom de l'objet "Feuillle"
dans l'éditeur de code

With Feuil1
.Shapes.Range(Array("Aide1", "Aide2", "Aide3", "Aide4")).Visible =
msoCTrue ' ou msoFalse
End With

C'est plus rapide, reste à voir si tu peux percevoir la différence : 2
nanosecondes de moins

;-)




"MichDenis" a écrit dans le message de news:

Les Msg ont plus de résilience lorsqu'il s'agit de vider les burettes de
vin !!!
;-))

Pourtant, tu y étais presque !

Comme ceci :
With Worksheets("Feuil1")
.Shapes.Range(Array("Aide1", "Aide2", "Aide3", "Aide4")).Visible =
msoCTrue ' ou msoFalse
End With

P.S- Tu m'excusera j-pascal de ne pas te fournir un fichier exemple...
j'ai des problèmes avec cjoint !


"Mgr Banni" a écrit dans le message de news:

je m'en doutais
aussi retourne-je dans ma sacristie, sapristi
Mgr T.B.

"j-pascal" a écrit dans le message de news:
%
Testé, et erreur d'exécution 13 "incompatibilité de type"

Pas grave, la solution de Daniel.C me convient parfaitement.

Merci quand même,

JP

"Mgr Banni" a écrit dans le message de news:

bonsoir jp
peut-être comme ceci :

ActiveSheet.Shapes(Array("Aide1,Aide2,Aide3,Aide4")).Visible = True

non testé...et heureusement!
Mgr T.B.

"j-pascal" a écrit dans le message de news:

Bonsoir,

Comment puis-je optimiser ce code sous une forme "With
ActiveSheet.Shapes ???? End With" ?

Merci pour vos lumières,

JP

'----------------------
Private Sub essai_Montre()

ActiveSheet.Shapes("Aide1").Visible = True
ActiveSheet.Shapes("Aide2").Visible = True
ActiveSheet.Shapes("Aide3").Visible = True
ActiveSheet.Shapes("Aide4").Visible = True
etc...

End Sub

'----------------------
















1 2