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 replacer les fenêtre de dimention différente

replacer les fenêtre de dimention différente

17 réponses
Avatar
Daniel
un petit coupde main SVP

J'ai un fichire que j'ouvre avec 3 fenêtre de dimention et onglet différent
.
je voudrait inclure dans une de mes macro inclure la position et la
grandeur des fenêtre.
j'ai fait avec l'enrégistreur cette macro qui ne fonctionne pas toujour ?

Sub placer_Écran()
'
' placer_Écran Macro
' Macro recorded 2003/08/21 by pellet15
'
'
Windows("Insp_RDP.xls:2").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Feuille D'insp.").Select
With ActiveWindow
.Top = -5
.Left = 182.5
End With
Windows("Insp_RDP.xls:3").Activate
ActiveWindow.WindowState = xlNormal
Sheets(" Base ").Select
With ActiveWindow
.Top = 70.75
.Left = 367.75
End With
With ActiveWindow
.Width = 401.25
.Height = 417
End With
Windows("Insp_RDP.xls:1").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Aiguilles").Select
End Sub
Signaler un problème avec ce contenu

10 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
isabelle
bonjour Daniel,

voici un exemple pour récupérer l'information "position des trois
fenêtres"

Public fichier(3)
Public haut(3)
Public gauche(3)
Sub PositionDeNouvelleFenetre()
For i = 1 To 3
Windows("Classeur1:" & i).Activate
fichier(i) = "Classeur1:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
Next
MsgBox "Le fichier " & fichier(1) & " Top =" & haut(1) & " Left =" &
gauche(1)
MsgBox "Le fichier " & fichier(2) & " Top =" & haut(2) & " Left =" &
gauche(2)
MsgBox "Le fichier " & fichier(3) & " Top =" & haut(3) & " Left =" &
gauche(3)
End Sub

isabelle


un petit coupde main SVP

J'ai un fichire que j'ouvre avec 3 fenêtre de dimention et onglet différent
.
je voudrait inclure dans une de mes macro inclure la position et la
grandeur des fenêtre.
j'ai fait avec l'enrégistreur cette macro qui ne fonctionne pas toujour ?

Sub placer_Écran()
'
' placer_Écran Macro
' Macro recorded 2003/08/21 by pellet15
'
'
Windows("Insp_RDP.xls:2").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Feuille D'insp.").Select
With ActiveWindow
.Top = -5
.Left = 182.5
End With
Windows("Insp_RDP.xls:3").Activate
ActiveWindow.WindowState = xlNormal
Sheets(" Base ").Select
With ActiveWindow
.Top = 70.75
.Left = 367.75
End With
With ActiveWindow
.Width = 401.25
.Height = 417
End With
Windows("Insp_RDP.xls:1").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Aiguilles").Select
End Sub


Avatar
isabelle
pour t'en rassurer, exectute cette macro au pas à pas en visualisant les
feuilles excel.

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Classeur1:" & i).Activate
fichier(i) = "Classeur1:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub

isabelle


un petit coupde main SVP

J'ai un fichire que j'ouvre avec 3 fenêtre de dimention et onglet différent
.
je voudrait inclure dans une de mes macro inclure la position et la
grandeur des fenêtre.
j'ai fait avec l'enrégistreur cette macro qui ne fonctionne pas toujour ?

Sub placer_Écran()
'
' placer_Écran Macro
' Macro recorded 2003/08/21 by pellet15
'
'
Windows("Insp_RDP.xls:2").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Feuille D'insp.").Select
With ActiveWindow
.Top = -5
.Left = 182.5
End With
Windows("Insp_RDP.xls:3").Activate
ActiveWindow.WindowState = xlNormal
Sheets(" Base ").Select
With ActiveWindow
.Top = 70.75
.Left = 367.75
End With
With ActiveWindow
.Width = 401.25
.Height = 417
End With
Windows("Insp_RDP.xls:1").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Aiguilles").Select
End Sub


Avatar
Daniel
Bonsoir isabelle

je ne par vient pas afaire fonctionner la macro:-(
les noms de mes fichier sont inscrie plus bas.
("Insp_RDP.xls:1") ("Insp_RDP.xls:2") ("Insp_RDP.xls:3")

"isabelle" a écrit dans le message de
news:
pour t'en rassurer, exectute cette macro au pas à pas en visualisant les
feuilles excel.

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Classeur1:" & i).Activate
fichier(i) = "Classeur1:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub

isabelle


un petit coupde main SVP

J'ai un fichire que j'ouvre avec 3 fenêtre de dimention et onglet
différent


.
je voudrait inclure dans une de mes macro inclure la position et la
grandeur des fenêtre.
j'ai fait avec l'enrégistreur cette macro qui ne fonctionne pas toujour
?



Sub placer_Écran()
'
' placer_Écran Macro
' Macro recorded 2003/08/21 by pellet15
'
'
Windows("Insp_RDP.xls:2").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Feuille D'insp.").Select
With ActiveWindow
.Top = -5
.Left = 182.5
End With
Windows("Insp_RDP.xls:3").Activate
ActiveWindow.WindowState = xlNormal
Sheets(" Base ").Select
With ActiveWindow
.Top = 70.75
.Left = 367.75
End With
With ActiveWindow
.Width = 401.25
.Height = 417
End With
Windows("Insp_RDP.xls:1").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Aiguilles").Select
End Sub




Avatar
isabelle
bonjour Daniel,

il faut modifier c'est deux lignes

Windows("Classeur1:" & i).Activate
fichier(i) = "Classeur1:" & i

par celle ci

Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i

isabelle


Bonsoir isabelle

je ne par vient pas afaire fonctionner la macro:-(
les noms de mes fichier sont inscrie plus bas.
("Insp_RDP.xls:1") ("Insp_RDP.xls:2") ("Insp_RDP.xls:3")

"isabelle" a écrit dans le message de
news:
pour t'en rassurer, exectute cette macro au pas à pas en visualisant les
feuilles excel.

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Classeur1:" & i).Activate
fichier(i) = "Classeur1:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub

isabelle


un petit coupde main SVP

J'ai un fichire que j'ouvre avec 3 fenêtre de dimention et onglet
différent


.
je voudrait inclure dans une de mes macro inclure la position et la
grandeur des fenêtre.
j'ai fait avec l'enrégistreur cette macro qui ne fonctionne pas toujour
?



Sub placer_Écran()
'
' placer_Écran Macro
' Macro recorded 2003/08/21 by pellet15
'
'
Windows("Insp_RDP.xls:2").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Feuille D'insp.").Select
With ActiveWindow
.Top = -5
.Left = 182.5
End With
Windows("Insp_RDP.xls:3").Activate
ActiveWindow.WindowState = xlNormal
Sheets(" Base ").Select
With ActiveWindow
.Top = 70.75
.Left = 367.75
End With
With ActiveWindow
.Width = 401.25
.Height = 417
End With
Windows("Insp_RDP.xls:1").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Aiguilles").Select
End Sub






Avatar
Daniel
Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub
Avatar
isabelle
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub


Avatar
Daniel
Le message est " Erreur de compilation: Variable non définie "
et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le message de
news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub




Avatar
ru-th
Salut

si tu as option explicite par défaut
rajoutes après Sub PositionDeNouvelleFenetre()

dim i as integer

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Daniel" a écrit dans le message de news:
ZnHgb.70255$
Le message est " Erreur de compilation: Variable non définie "
et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le message de
news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub








Avatar
Clément Marcotte
Bonjour

essaie de mettre

dim i as integer

juste dessous sum xxx()




sub machin
"Daniel" a écrit dans le message de
news:ZnHgb.70255$
Le message est " Erreur de compilation: Variable non définie "
et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le message de
news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub








Avatar
Daniel
Bonjour Gros merci pour votre aide
J'ai copier dim i as integer
et le message est " Erreur de compilation: Sub ou unction non
définie "
et le curseur est arrêter sur le fichier(i)

"Clément Marcotte" a écrit dans le message
de news:
Bonjour

essaie de mettre

dim i as integer

juste dessous sum xxx()




sub machin
"Daniel" a écrit dans le message de
news:ZnHgb.70255$
Le message est " Erreur de compilation: Variable non définie "
et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le message de
news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub











1 2