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 commande for each

commande for each

8 réponses
Avatar
Martin
Bonjour,

Je suis débutant en VBA, je cherche à remettre l'affichage normal a toutes
les feuilles de mon classeur

J'imagine quelque chose du genre

For Each "feuille" In thisworbook
"feuille".View = xlNormalView
Next "feuille"

Mais je n'y arrive pas, quelqu'un pourrais m'aider SVP!?

Merci

Martin
Signaler un problème avec ce contenu

8 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
Avatar
Aurélien
enleve juste les guillemets et ca devrait passer
feuille est une variable donc pour l'appeler, c'est sans guillement ! :)

For Each feuille In thisworbook
feuille.View = xlNormalView
Next feuille


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

Bonjour,

Je suis débutant en VBA, je cherche à remettre l'affichage normal a toutes
les feuilles de mon classeur

J'imagine quelque chose du genre

For Each "feuille" In thisworbook
"feuille".View = xlNormalView
Next "feuille"

Mais je n'y arrive pas, quelqu'un pourrais m'aider SVP!?

Merci

Martin




Avatar
Herdet
Bonjour,
Tu essayer ceci :
For n=1 to Sheets.Count
Sheets(n).View = xlNormalView
Next

Cordialement
Robert

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

Bonjour,

Je suis débutant en VBA, je cherche à remettre l'affichage normal a toutes
les feuilles de mon classeur

J'imagine quelque chose du genre

For Each "feuille" In thisworbook
"feuille".View = xlNormalView
Next "feuille"

Mais je n'y arrive pas, quelqu'un pourrais m'aider SVP!?

Merci

Martin




Avatar
Martin
Merci a vous deux,

J'ai pas réussi a les faire fonctionner
La méthode de Herdet me donne propriété ou méthode non géré par cet objet
et celle de Aurlien me donne membres de méthode ou données introuvable...

Merci de m'éclairer

Martin

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

Bonjour,
Tu essayer ceci :
For n=1 to Sheets.Count
Sheets(n).View = xlNormalView
Next

Cordialement
Robert

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

Bonjour,

Je suis débutant en VBA, je cherche à remettre l'affichage normal a
toutes


les feuilles de mon classeur

J'imagine quelque chose du genre

For Each "feuille" In thisworbook
"feuille".View = xlNormalView
Next "feuille"

Mais je n'y arrive pas, quelqu'un pourrais m'aider SVP!?

Merci

Martin








Avatar
RaMa
bonjour

Sub nnn()
Application.ScreenUpdating = False
Set dd = ActiveSheet
For Each sh In ThisWorkbook.Worksheets
sh.Activate
'soit selon ce que tu veux
ActiveWindow.Zoom = 100
'soit
Application.DisplayFullScreen = False
'soit
ActiveWindow.View = xlNormalView
Next
dd.Activate
Set dd = Nothing
End Sub

salutations
RaMa

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

Bonjour,

Je suis débutant en VBA, je cherche à remettre l'affichage normal a toutes
les feuilles de mon classeur

J'imagine quelque chose du genre

For Each "feuille" In thisworbook
"feuille".View = xlNormalView
Next "feuille"

Mais je n'y arrive pas, quelqu'un pourrais m'aider SVP!?

Merci

Martin




Avatar
Martin
ca fonctionne a merveille
Merci beaucoup!

Martin

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

bonjour

Sub nnn()
Application.ScreenUpdating = False
Set dd = ActiveSheet
For Each sh In ThisWorkbook.Worksheets
sh.Activate
'soit selon ce que tu veux
ActiveWindow.Zoom = 100
'soit
Application.DisplayFullScreen = False
'soit
ActiveWindow.View = xlNormalView
Next
dd.Activate
Set dd = Nothing
End Sub

salutations
RaMa

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

Bonjour,

Je suis débutant en VBA, je cherche à remettre l'affichage normal a
toutes


les feuilles de mon classeur

J'imagine quelque chose du genre

For Each "feuille" In thisworbook
"feuille".View = xlNormalView
Next "feuille"

Mais je n'y arrive pas, quelqu'un pourrais m'aider SVP!?

Merci

Martin








Avatar
Gaenonius
Essaye cette macro :

Sub test()
For Each feuille In ThisWorkbook.Sheets
feuille.Activate
ActiveWindow.View = xlNormalView
Next feuille
End Sub

--
Gaenonius

Bonjour,

Je suis débutant en VBA, je cherche à remettre l'affichage normal a toutes
les feuilles de mon classeur

J'imagine quelque chose du genre

For Each "feuille" In thisworbook
"feuille".View = xlNormalView
Next "feuille"

Mais je n'y arrive pas, quelqu'un pourrais m'aider SVP!?

Merci

Martin




Avatar
Gaenonius
Arghhhh trop tard !

--
Gaenonius

Essaye cette macro :

Sub test()
For Each feuille In ThisWorkbook.Sheets
feuille.Activate
ActiveWindow.View = xlNormalView
Next feuille
End Sub

--
Gaenonius


Bonjour,

Je suis débutant en VBA, je cherche à remettre l'affichage normal a
toutes
les feuilles de mon classeur

J'imagine quelque chose du genre

For Each "feuille" In thisworbook
"feuille".View = xlNormalView
Next "feuille"

Mais je n'y arrive pas, quelqu'un pourrais m'aider SVP!?

Merci

Martin






Avatar
Martin
Non pas trop tard, je vais l'essayer aussi!

Mieux vaut plus de réponses que pas du tout

Merci c'est apprécié!

Martin
"Gaenonius" a écrit dans le message de news:

Arghhhh trop tard !

--
Gaenonius

Essaye cette macro :

Sub test()
For Each feuille In ThisWorkbook.Sheets
feuille.Activate
ActiveWindow.View = xlNormalView
Next feuille
End Sub

--
Gaenonius


Bonjour,

Je suis débutant en VBA, je cherche à remettre l'affichage normal a
toutes
les feuilles de mon classeur

J'imagine quelque chose du genre

For Each "feuille" In thisworbook
"feuille".View = xlNormalView
Next "feuille"

Mais je n'y arrive pas, quelqu'un pourrais m'aider SVP!?

Merci

Martin