XL 2016 VBA Centrer un Shape dans l'ActiveWindow

  • Initiateur de la discussion Initiateur de la discussion Dudu2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bonjour @Dudu2
ceci fonctionne aussi et c'est même plus précis
VB:
  'Centrer la Shape en largeur
    If LeftPoints = xlNone Then
        With Application
            Shape.Left = .Left + (.UsableWidth - Shape.Width) / 2
        End With
    Else
        Shape.Left = LeftPoints
    End If
  
    'Centrer la Shape en hauteur
    If TopPoints = xlNone Then
        With Application
            Shape.Top = .Top + (.UsableHeight - Shape.Height) / 2
        End With
    Else
        Shape.Top = TopPoints
    End If
petite demo
VB:
Sub Bouton6_Cliquer()
Dim rng As Range, t As String
Set rng = ActiveWindow.VisibleRange
t = "viblerange :" & rng.Address(0, 0) & " : " & rng.Width & " points" & vbCr & vbCr
t = t & " si tu regarde bien  la colonne " & rng.Cells(rng.Cells.Count).EntireColumn.Address(0, 0) & vbCr
t = t & " tu verra quelle n'est pas completement visible " & vbCr & vbCr
t = t & " usableWidth de l'application :" & Application.UsableWidth & " points"
MsgBox t
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
63
Réponses
30
Affichages
2 K
Réponses
3
Affichages
261
Retour