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.
Désolé Patrick je sais pas, fait pipi dans un coin ou ça crain pas trop :D;),
J'ai 3 écrans don 1 en résolution différente mais le problème est toujours identique.
Mais bon à la base c'était pas le sujet désolé, beau calendrier.
Comme je disais à Patrick (que j'aprécie beaucoup), au poste 4 et 6, le fameux -5 au left, on n'en à passer des heures à le trouver ce fameux code sur un autre site.
Bonjour,
remplacer la fonction proposé du même nom par celle si pour voir
merci
Private Function placementRange(Obj As Object)
If Obj Is Nothing Then Exit Function
Dim Z#, L1#, T1#, Hx#, Wx#, PtoPx#
With ActiveWindow
PtoPx = 1 / ((.ActivePane.PointsToScreenPixelsX(7200) -...
re
Désolé que tu me dises que je suis têtu, je n'est pas les drivers graphiques génériques, mes drivers sont chez NVIDIA pour ma RTX3070 à jour et W10 64bits
C'était juste pour t'informer.
Comme ça, ça va bien pour moi,
Private Function placementRange(Obj As Object)
If Obj Is Nothing Then Exit Function
Dim Z#, L1#, T1#, Hx#, Wx#, PtoPx#
With ActiveWindow
PtoPx = 1 / ((.ActivePane.PointsToScreenPixelsX(7200) - .ActivePane.PointsToScreenPixelsX(0)) / 7200)...
Tu te rapelles:
Function PositionForm(FORM As Object, rng As Range)
Dim Z As Double, K As Double
Z = ActiveWindow.Zoom / 100
K = ((ActiveWindow.ActivePane.PointsToScreenPixelsX(ActiveSheet.[A1].Width) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / ActiveSheet.[A1].Width) / Z
lleft =...
Bonjour,
Vous avez 2 fois la même procédure sur ThisWorkbook
Private Sub Workbook_Open()
With Sheets("feuil1")
Application.WindowState = xlMaximized ' Ouvre le Classeur en grand
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar =...
Bonjour,
pas tout à fait ce qui est demandé,
mais peut-être une piste ou une solution à la demande
Private Sub CommandButton1_Click()
Dim plage As Range
Set plage = Worksheets("feuil1").Range("B2:G7")
numero = Range("K2").Value
Worksheets("feuil1").Range("B2:G7").Interior.ColorIndex = 2...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.