Positionner curseur sur une cellule sélectée Windows Excel VBA

**Nicolas JACQUIN** · 30/05/2017, 16h04

1er à 4 et l'autre à 5 et colonne A réduite à 20
Nom : Capture.PNG
Affichages : 212
Taille : 12,3 Ko

Nom : Capture1.PNG
Affichages : 210
Taille : 12,2 Ko

**patricktoulon** · 30/05/2017, 16h05

d'accord donc -4 c'est bon j'ai toi et +4 c'est c'est bon chez moi a vu d'œil bien évidement
donc si chez toi

Code :

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

 cadre=Application.Width - Application.UsableWidth

donne 12

et chez moi ca donne '9.59999999999991

et que chez toi entre -5 et -4 tu vois pas la différence
on peut faire alors

Code :

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

1
2
 cadre = Application.Width - Application.UsableWidth
   cadre = IIf(Application.OperatingSystem Like "*10*" And Val(Application.Version) <> 12, -cadre / 3, cadre / 2)

on a ainsi une mesure générique

edit c'est bon j'ai un calcule qui me donne -5 pour toi et 4 pour moi
c'est cadre/2.4

**Nicolas JACQUIN** · 30/05/2017, 16h05

Avec ce code parce que j'ai d'autre test mais c'est le bordel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function PositionForm(usf, rng)
Dim Z As Double, K As Double, E As Double
 
Z = ActiveWindow.Zoom / 100
K = ((ActiveWindow.ActivePane.PointsToScreenPixelsX(ActiveSheet.[A1].Width) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / ActiveSheet.[A1].Width) / Z
E = IIf(Application.OperatingSystem Like "*10*" And Val(Application.Version) <> 12, -5, 1)
lleft = (ActiveWindow.PointsToScreenPixelsX(rng.Left * K * Z) / K) + E
ttop = ActiveWindow.PointsToScreenPixelsY(rng.Top * K * Z) / K
 
Wwidth = IIf(rng.Columns.Count > 1, (rng.Width * Z) + 10, usf.Width)
Hheight = IIf(rng.Rows.Count > 1, (rng.Height * Z) + 5, usf.Height)
 
PositionForm = Array(lleft, ttop, Wwidth, Hheight)
UserForm1.Label1.Caption = "Zoom" & "  " & Z * 100
 
End Function

**Nicolas JACQUIN** · 30/05/2017, 16h07

escuse mais revoie les com précédent

**patricktoulon** · 30/05/2017, 16h12

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function PositionForm2(usf, rng)
    Dim Zooom#, PtToPx#, cadre#, usable#
    cadre = Application.Width - Application.UsableWidth
   cadre = IIf(Application.OperatingSystem Like "*10*" And Val(Application.Version) <> 12, -cadre / 2.4, cadre / 2.4)
      With ActiveWindow
        Zooom = .Zoom / 100
        PtToPx = ((.ActivePane.PointsToScreenPixelsX(ActiveSheet.[A1].Width) - .ActivePane.PointsToScreenPixelsX(0)) / ActiveSheet.[A1].Width) / Zooom
        lleft = (.PointsToScreenPixelsX(rng.Left * PtToPx * Zooom) / PtToPx) + cadre
        ttop = .PointsToScreenPixelsY(rng.Top * PtToPx * Zooom) / PtToPx
        Wwidth = IIf(rng.Columns.Count > 1, rng.Width * (Zooom) - usable + cadre, usf.Width)
        Hheight = IIf(rng.Rows.Count > 1, rng.Height * Zooom - usable, usf.Height)
    End With
    PositionForm2 = Array(lleft, ttop, Wwidth, Hheight)
End Function
 
 
Sub TestUserformtopleftcell2()
    r = PositionForm2(UserForm1, [b3])
    With UserForm1: .Show 0: .Left = r(0): .Top = r(1): End With
End Sub

**Nicolas JACQUIN** · 30/05/2017, 16h17

oui ça colle

**Nicolas JACQUIN** · 30/05/2017, 16h24

Wwidth = IIf(rng.Columns.Count > 1, rng.Width * (Zooom) - usable + cadre, usf.Width)

c'est quoi le usable ?
désolé

**patricktoulon** · 30/05/2017, 16h28

donc maintenant occipons noude tes deux lignes suivantes

chez toi

Code :

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

1
2
Wwidth = IIf(rng.Columns.Count > 1, (rng.Width * Z) + 10, usf.Width)
Hheight = IIf(rng.Rows.Count > 1, (rng.Height * Z) + 5, usf.Height)

il est facile de remplacer ton +10 par +cadre*2
et donc ton +5 par +cadre

et donc chez moi
Wwidth = IIf(rng.Columns.Count > 1, rng.Width * Zooom - cadre * 2, usf.Width)
Hheight = IIf(rng.Rows.Count > 1, rng.Height * Zooom - cadre, usf.Height)

il nous reste plus qu'a combiner ces 4 lignes en une pour le générique

**patricktoulon** · 30/05/2017, 16h32

usable tu peut l'enlever il sert plus a rien

**Nicolas JACQUIN** · 30/05/2017, 16h40

Code :

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

1
2
Wwidth = IIf(rng.Columns.Count > 1, (rng.Width * Zooom) - cadre * 2, usf.Width)
    Hheight = IIf(rng.Rows.Count > 1, (rng.Height * Zooom) - cadre, usf.Height)

je suis obligé de mettre en "-" pour que sa passe

**patricktoulon** · 30/05/2017, 16h44

bon ben chose étonnante c'est pareil pour nous deux

**Nicolas JACQUIN** · 30/05/2017, 16h48

Ben un coup c'est + et un coup c'est -, mais ça marche

**patricktoulon** · 30/05/2017, 17h11

c'est normal les - a la place des + les "- -"="+"

change moi les + en moins la ou il faut chez toi sauf dans la ligne "cadre=iif........"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function PositionForm2(usf, rng)
    Dim Zooom#, PtToPx#, cadre#, usable#
    cadre = Application.Width - Application.UsableWidth
    cadre = IIf(Application.OperatingSystem Like "*10*" And Val(Application.Version) <> 12, -cadre / 2.4, cadre / 2.4)
    With ActiveWindow
        Zooom = .Zoom / 100
        PtToPx = ((.ActivePane.PointsToScreenPixelsX(ActiveSheet.[A1].Width) - .ActivePane.PointsToScreenPixelsX(0)) / ActiveSheet.[A1].Width) / Zooom
        lleft = (.PointsToScreenPixelsX(rng.Left * PtToPx * Zooom) / PtToPx) + cadre
        ttop = .PointsToScreenPixelsY(rng.Top * PtToPx * Zooom) / PtToPx + cadre
 
        Wwidth = IIf(rng.Columns.Count > 1, rng.Width * (Zooom) - cadre * 2, usf.Width)
        Hheight = IIf(rng.Rows.Count > 1, rng.Height * Zooom - cadre, usf.Height)
    End With
    PositionForm2 = Array(lleft, ttop, Wwidth, Hheight)
End Function

**Nicolas JACQUIN** · 30/05/2017, 17h19

Problème sur le top

Code :

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

ttop = .PointsToScreenPixelsY(rng.Top * PtToPx * Zooom) / PtToPx + cadre

Nom : Capture.PNG
Affichages : 258
Taille : 12,2 Ko

Code :

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

ttop = .PointsToScreenPixelsY(rng.Top * PtToPx * Zooom) / PtToPx - cadre

Nom : Capture1.PNG
Affichages : 225
Taille : 13,8 Ko

**patricktoulon** · 30/05/2017, 17h20

a oui c'est vrai tu n'en a pas besoins pour le top

**Nicolas JACQUIN** · 30/05/2017, 17h21

non

**patricktoulon** · 30/05/2017, 17h28

voila ne change rien teste c'est tout

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function PositionForm2(usf, rng)
    Dim Zooom#, PtToPx#, cadre#, system
    system = Application.OperatingSystem
    cadre = Application.Width - Application.UsableWidth
    cadre = IIf(system Like "*10*" And Val(Application.Version) <> 12, -cadre / 2.4, cadre / 2.4)
    With ActiveWindow
        Zooom = .Zoom / 100
        PtToPx = ((.ActivePane.PointsToScreenPixelsX(ActiveSheet.[A1].Width) - .ActivePane.PointsToScreenPixelsX(0)) / ActiveSheet.[A1].Width) / Zooom
        lleft = (.PointsToScreenPixelsX(rng.Left * PtToPx * Zooom) / PtToPx) + cadre
        ttop = .PointsToScreenPixelsY(rng.Top * PtToPx * Zooom) / PtToPx + IIf(system Like "*6*", cadre, 0)
 
        Wwidth = IIf(rng.Columns.Count > 1, rng.Width * (Zooom) - cadre * 2, usf.Width)
        Hheight = IIf(rng.Rows.Count > 1, rng.Height * Zooom - cadre, usf.Height)
    End With
    PositionForm2 = Array(lleft, ttop, Wwidth, Hheight)
End Function

**Nicolas JACQUIN** · 30/05/2017, 17h32

ouais ça colle et avec le zoom pas de problème non plus

**patricktoulon** · 30/05/2017, 17h35

voila on a maintenant une fonction compatible avec
W7 2007
W10 2007
W10 2010
W10 2013
W10 2016

demain je récupèrerais mon ancien PC portable si je trouve le chargeur est j'essaierais sur XP2003

on est les champions
et plus de données numérique en dur on prends tout dans excel sauf le 2.4 mais comme il est identique pour tous on le prendra pas en compte