XL 2016 VBA: Sélectionner puis désélectionner toutes les feuilles

[Aloha]

Bonjour,

Je voulais enregistrer l'action de sélectionner toutes les feuilles, mais l'enregistreur n'a rien enregistré

Quel petit code me permettrait de sélectionner toutes les feuilles d'un fichier?
Et lequel pour les désélectionner à nouveau?
Cela ne peut pas être une seule Sub, puisqu'entre l'action de sélectionner et celle de désélectionner il y a d'autres Sub.

Bonne soirée
Aloha

 

[Calvus]

Bonjour Aloha, le forum,

Comme ceci probablement :

ThisWorkbook.Sheets.Select

Puis :
Sheets(1).Select

A+

 

[Aloha]

Bonsoir,
comme c'est simple!
Merci beaucoup
Bonne soirée
Aloha

 

[Staple1600]

Bonsoir le fil, le forum

@Aloha
On peut utiliser la même sub pour la sélection et la déselection
Voir le petit exemple ci-dessous
Pour tester lancer la macro nommée Test

Sub Test()
'On sélectionne toutes les feuilles
WS_Selection
MsgBox "Pause"
'On desélectionne toutes les feuilles
WS_Selection True
End Sub
Sub WS_Selection(Optional Tout As Boolean = False)
'macro unique pour la sélection et la désleection
Dim s As Worksheet
For Each s In Worksheets
s.Select Tout
Next
End Sub

 

[Calvus]

Salut mon ami JM !

Sur ce coup là, je crois que je t'ai battu !

 

[Staple1600]

Re

@Calvus
Relis mon message pour voir la différence avec ta macro
Mon propos était d'utiliser une seule macro pour la sélection et la déselection.

NB: Il n'y a pas de compétition, juste des solutions à des questions.

 

[Calvus]

Re,

NB: Il n'y a pas de compétition, juste des solutions à des questions.

Je le sais bien. Je ne peux pas croire que tu aies perdu ton sens de l'humour, et vu ton niveau et le mien, je suis parfaitement en mesure de faire ce genre de plaisanterie car j'aurai bien plus besoin de toi que toi de moi.

Et j'avais bien lu ton message

 

[Staple1600]

Re

@Calvus
Je n'ai rien perdu, je suis juste tracassé
(voir le fil que je viens de créer dans le forum ce soir)

PS: Ta syntaxe est bien pour sélectionner
mais ceci ne fonctionne pas (pour ce qui est de la déselection)
Sub WS_Selection(Optional Tout As Boolean = False)
ThisWorkbook.Sheets.Select Tout
End Sub

 

[Calvus]

Re,

Puis :
Sheets(1).Select

C'est pour ça que j'avais mis ça.

 

[Staple1600]

Re

Oui mais je parlais de ne faire qu'une seule macro
(comme dans mon exemple, message#3)
Que ce soit pour sélectionner ou désélectionner on n'utilise que la macro WS_Selection
(en changeant seulement le paramètre Tout: soit True soit False)

 

[Aloha]

Bonsoir et merci pour vos messages.

Je viens de me rendre compte que la partie de ma tâche pour laquelle il me faut de l'aide ne se résume pas à sélectionner et à désélectionner.

J'explique mon projet à l'aide d'un exemple:

Dans un fichier Fichier destination avec un certain nombre de feuilles à la structure identique j'ai 9 formules qui vont chercher des données dans un autre fichier nommé Base moyennant la "maudite" fonction INDIRECT().
Qui plus est, dans le fichier source les données ne sont pas accessibles directement; je dois mettre (dans cet exemple) SERVICE 3 en A1 de la feuille "Personnel" et des formules vont chercher les données de base dans la feuille SERVICE 3 et d'autres formules font plein de calculs avec.

Vu la volatilité des formules INDIRECT, je dois ouvrir le fichier "Fichier destination", je sélectionne toutes les feuilles, je copie les cellules contenant les formules INDIRECT et je les recolle comme valeurs pour ensuite désélectionner les fiches, enregistrer le fichier et le fermer .

Comme le fichier sera modifié au cours de l'année et que les valeurs produites par les formules INDIRECT peuvent changer, je dois donc remettre les formules à l'ouverture du fichier, et ainsi de suite.

La suite des opérations:
1. vérifier si le fichier Base est ouvert, sinon l'ouvrir
2. ouvrir le fichier Fichier destination
3. inscrire SERVICE 3 en A1 de la feuille Personnel du fichier Base
4. sélectionner toutes les feuilles du fichier de destination
5. mettre les formules dans B6:E8 de toutes les feuilles
6. remplacer les formules (qui viennent de récolter les informations dans l'autre fichier depuis que SERVICE 3 a été mis en A1 de Personnel; dans mon exemple il n'y a que des N/A; il faut les considérer comme des valeurs) par leurs valeurs
7. désélectionner les feuilles
8. fermer le fichier en le sauvegardant

Donc la tâche ne se limite pas à mon énoncé initial.
Bonne soirée
Aloha

 

[Staple1600]

Re

@Aloha
Mon code se rapporte à l’énoncé initial.
Par conséquent à mon niveau mission accomplie.

Je passe à la main à mes petits camarades de jeux immunisés contre ces questions à tiroirs

NB: On se demande bien pourquoi le dernier message d'Aloha n'est pas le premier message de cette discussion?
(Car on y trouve des explications détaillées et un fichier exemple...)

 

[Aloha]

Parce que Aloha croyait d‘abord à tort qu‘il allait maîtriser sans problème le reste de sa tâche.
Errare humanum est!

 

[Staple1600]

Re

@Aloha
perseverare diabolicum

NB:
Pourquoi n'as-tu pas tenté d'utiliser l'enregistreur de macros pour certaines actions?
Pourquoi joindre des fichier *.xlsx (et pas des *.xlsm) ?
(ce qui indique qu'on y trouvera pas les codes VBA précédemment déposés par Calvus ou moi, ni tes différents essais de macros)

 

[Aloha]

Re,
J‘ai beaucoup utilisé l‘enregistreur: voir mon premier message.
La brève histoire de ces deux fichiers exemples: j‘ai travaillé sur mes fichiers réels où j‘ai essayé d‘intégrer l‘une de vos macros et je me suis rendu compte que les choses ne sont pas si simples que je ne croyais. Voilà pourquoi j‘ai imaginé les deux fichiers reproduisant la situation réelle pour faire comprendre. Voilà!
Salve
Aloha