Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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
- 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