VBA Sélectionner 4 objets d'un coup

Bonsoir à tous,

Peut-on écrire ce code sur une seule ligne ? (la virgule ne marche pas)

ActiveSheet.Shapes("Group 55").Visible = False
ActiveSheet.Shapes("Group 56").Visible = False
ActiveSheet.Shapes("Group 74").Visible = False
ActiveSheet.Shapes("Group 100").Visible = False

Amicalement

Claude.

Bonsoir,

A essayer :

ActiveSheet.Array(Shapes("Group 55"), Shapes("Group 56"), Shapes("Group 74"), xhapes("Group 100")).Visible = False

Amicalement

Dan

re,

Dan, çà donne "erreur 13" type incompatible

j'ai essayé aussi :

ActiveSheet.Shapes("Group 55", "Group 56", "Group 74", "Group 100").Visible = False

"erreur 450" nombre d'arguments incorrect

Claude.

Bonsoir Claude,

en 1 ligne, je ne sais pas, mais en 3, avec une boucle :

For Each grp In Array("55", "56", "74", "100")
    ActiveSheet.Shapes("Group " & grp).Visible = True
Next grp

Re-,

quoique, avec une ligne :

ActiveSheet.Shapes.Range(Array("Group 55", "Group 56", "Group 74", "Group 100")).Visible = False

PS, donné par l'enregistreur de macro

Bon dimanche au forum,

Merci à Dan et felix,

Finalement, le dernier code à felix fonctionne !

Je vous joint le fichier avec un Private Sub, (sur saisie données)

https://www.excel-pratique.com/~files/doc/Arc_solveur.xls

Dites-moi si fonctionne normalement.

amicalement

Claude.

Bonjour Claude

Bon dimanche à toi. Je vois que tu cherches le perfectionnement tous les jours de la semaine.

Et bien, en voulant faire de même, j'ai enregistré ton fichier, mais chez moi, dés que je sélectionne une cellule bleue, j'ai "Erreur de compilation" projet ou bibliothéque introuvable"

C'est vrai que je suis pas une référence en la matière...

Cependant, pour que les néophites soient moins réfractaires à VBA, tu devrais (Pour eux bien sur) mettre la petite explication que personnellement je n'ai pas trouvée.

PS un certain nombres de Noms renvoient #REF!

Cordialement

Bonjour,

Effectivement Amadeus, j'ai aussi ce message pour plusieurs instructions:

1. remplace If Arc] <= [corde] Then par If Range("Arc") <= Range("corde") Then

2. SolverOK :il faut que la macro solver.xla soit installée si je ne me trompe..

edit : une fois en VBA, aller dans OUITLS / REFERENCE et cocher la macro SOLVER.

Amicalement

Dan

Bonjour Amadéus et Dan,

Fichier corrigé , effectivement, il faut activer le solveur, mais pourquoi la macro ne le

fait pas toute seule (comme une grande !)

C'est mon dernier fichier qui me restait d'Excel4, je vais me remettre en Excel2000. et

laisser tomber le 97.

https://www.excel-pratique.com/~files/doc/Arc_solveur2.xls

Bon dimanche

Claude.

re,

Ton fichier fonctionne bien Claude.

L'histoire de la macro Solveur est effectivement bizarre. Si tu utilises le Solveur par Outils / Solveur, on la voit apparaitre dans VBA par Outils / références.

Probablement est-elle visible à ce moment là. D'où la question de savoir comment par ton fichier faire appel à cette macro sans que l'utilisateur doive cocher cette option.

Je n'ai testé cela que sous Excel MAC. A vérifier sous Excel windows (ce que je ferai au boulot.

A plus tard

Dan

Salut le forum

Version 3 à tester si le problème persiste ! ! !

https://www.excel-pratique.com/~files/doc/Arc_solveur3.xls

Mytå (Alias Le Schtroumpf Grognon)

P.S. Aucun problème et testé avec Excel 97, 2000, 2002(XP), 2003, 2007

Pour la version MAC je ne peux me prononcer, je n'en ai pas

Bonjour et merci à tous,

Mytå, je ne vois aucun changement dans ta version3 !

qu'a-tu fais ?

Bon çà marche, c'est le principal.

je suis maintenant en "Office2000"

Amicalement

Claude.

Salut le forum

Preparing Solver for First Use

One frequent complaint about automating Solver is that it doesn't work using VBA until it has been used at least once manually

Pour que les add-ins soit inclus il faut au moins lancer le solver manuellement une fois,

ensuite les macros deviennent fonctionnelles. Tu enregistres ensuite le fichier.

Mytå

Salut à tous,

Mytå, quézaco !! ce code ?

je ne le vois pas dans le VBA

est-ce "référence à SOLVER.xla" que je vois en dessous du module1 ? ou c'est un code caché ?

à demain et merci

Claude.