Discussion :

[Vba14]

Bonjour à tous,

J'ai ce code qui me permet de cacher des colonnes et des lignes à l'ouverture d'un fichier.

Dans cette page "Accueil", j'ai un texte et une image. Je souhaiterai que le tout soit centré par rapport à l'écran. Cela a pour but d'avoir un meilleur visuel à l'ouverture du fichier.

J'ai bien trouvé ce code ici :

https://www.developpez.net/forums/d1...entre-l-ecran/

mais je ne le comprends pas, donc je ne sais pas si il pourrait faire l'affaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Image As String
Dim Ligne As Byte
Dim Colonne As Byte
 
Ligne = ActiveWindow.ScrollRow
Colonne = ActiveWindow.ScrollColumn
 
Image = "REMBT.png"
Set img = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\Images\" & Image)
  img.Left = Cells(Ligne, Colonne).Left
  img.Top = Cells(Ligne, Colonne).Top
  img.Name = Image

Pouvez-vous m'apporter votre aide s'il vous plait ?

Je vous en remercie par avance

Mon code à l'ouverture du ficher (ThisWorkBook) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Accueil").Range("A:D,P:XFD").EntireColumn.Hidden = True
Sheets("Accueil").Range("39:1048576").Rows.Hidden = True
Application.ScreenUpdating = True
End Sub

[EricDgn]

Bonjour,

Pour commencer, cette instruction supprime l'aspect grille de la feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWindow.DisplayGridlines = False

S'il faut vraiment parfaitement centrer l'image, il faut commencer par déterminer la taille de l'écran, la taille de la fenêtre Excel, la taille de l'image, si le ruban est réduit ou non. Un début de solution sur cette page.

Bon amusement.

[patricktoulon]

re

bonjour
exemple
ceci te mettra l'image 1 au centre du visiblerange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
    Dim WW&, HH&, Pvisible As Range
    Set Pvisible = ActiveWindow.VisibleRange
    WW = Pvisible.Width
    HH = Pvisible.Height
    With Sheets(1).Shapes("Image 1")
        .Top = (HH - .Height) / 2 + Pvisible.Top
        .Left = (WW - .Width) / 2 + Pvisible.Left
    End With
End Sub