selection d'onglet

[vinc26]

bonjour je voudrait sélectionner plusieur onglet a la fois
le probleme je ne connait pas leur nom
je doit parcourir mes onglet
par l'intermediaire de
For Each ws In Worksheets

Next ws

la je parcour un a un et j'en selectionne juste un
mais y a til un moyen de les selctionner tous direct ???
merci d'avance car en faite tous les onglet je veut configurer leur mise en page d'impression

 

[21ch181]

Bonjour,

Je ne suis pas certain de bien comprendre le problème mais s'il s'agit de sélectioner toutes les feuilles (je suppose que c'est ce que vous vouliez dire !) d'un classeur alors il suffit de faire :

sheets.select

et toutes les feuilles sont sélectionnées dans le classeur en cours

c'est bien ce qu'il vous fallait ?

Cordialement

 

[vinc26]

oui je veut selectionner toutes les feuilles de mon classeur
en meme temps
par contre ton sheets.select me cause une erreur

 

[21ch181]

Sur un nouveau classeur 'tout bête' voici la macro qui fonctionne sur ma version d'excel :

Sub selection()
Sheets.Select
End Sub

Quelle est l'erreur retournée ?
Ne serais tu pas en version EN ?

 

[Guigui]

Hello a vous deux,

Comment puis je remplacer ceci :

'Sheets('HC').Select
 '   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='ange'
'Sheets('Mars').Select
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='ange'
'Sheets('Avril').Select
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='ange'
'Sheets('Mai').Select
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='ange'
'Sheets('Juin').Select
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='ange'
'Sheets('Juillet').Select
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='ange'
'Sheets('Aout').Select
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='ange'
'Sheets('Septembre').Select
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='ange'
'Sheets('Octobre').Select
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='ange'
'Sheets('Novembre').Select
'    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:='ange'

avec on code sheets.select ...

Merci d'avance pour votre aide.

A+
guillaume

 

[21ch181]

pourrais tu essayer avec sheets().select stp

les 2 syntaxes fonctionnent sur une version FR.

peut être est ce là le pb avec ta version EN ?

Tu nous donnes le résultat STP ?

 

[vinc26]

quand je met sheets().select
j'ai un jolie message d'erreur sui est
Numéro de l'erreur: 1004
Source de l'erreur: VBAProject
Description de l'erreur: Erreur définie par l'application ou par l'objet

voila les amis

j'ai exactement
publis sub config_imp()
sheets().select
end function

 

[Eric C]

Bonjour le forum
Bonjour Vin26, bonjour 21ch1281 & bonjour Guigui

???? Tu déclare une procédure et tu clôtures par une fonction ???

publis sub config_imp()
sheets().select
end function

Ceci fonctionnera mieux :

Public Sub config_imp()
sheets().select
End Sub

😉

 

[vinc26]

oui je me trompé mais avec tu a mis ca ne fonctionne pas
il me met un erreru

 

[Eric C]

Re le forum
Re bonjour les intervenants

Ce code est placé dans un module à part entière - Alt F11 - Menu - Insertion - Module -
Là, tu places le code.

Pour l'appeler (directement) depuis ton classeur XL, tu vas dans Menu / Outils / Macros et tu appelles Ta macro -> config_imp

Tu verras ainsi que toutes les feuilles de ton classeur ont été sélectionnées. 😉

 

[vinc26]

je l'ai mis dans un module justement
public sub config()
sheets().select
end sub


et bien quand je l'appel il me met un erreur celle du dessus
et je ne vois pas pourkoi

 

[vinc26]

c'est bon j'ai trouvé mon erreur en faite j'avais des fenetres caché c'est pour cela que ca ne fonctionné pas
donc en rendant visible les feuilles ca fonctionne
merci encors tous pour votre aide