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

Version imprimable

Voir 40 message(s) de cette discussion en une page

28/05/2017, 20h02
Nicolas JACQUIN

Après cela dépend peut-être du paramétrage du ruban, non ?
Ruban = 71
cadre = 11
Caption = 29.5
28/05/2017, 20h33
mjpmjp

bonjour,

Citation:

A sa suite, je voudrais simplement positionner la flèche de la souris au milieu de cette cellule sélectée.
Cela quelque soit la taille de la feuille affichée et son positionnement sur l'écran..
(Par ex. Pour ensuite avoir la possibilité d' une modification de valeurs dans cette cellule par le clavier ou un déclenchement par BeforeRightClick).

la cible c'est bien la cellule ? --> oui
on connait les coordonnées de la cellule ? --> oui
on connait la largeur et la hauteur ? --> oui
on sait trouvé le milieu ? --> oui

Tout est RELATIF...;)

@+JP
28/05/2017, 20h49
Nicolas JACQUIN

Patrick
Le ruban passe de 71 à 100 %, à 82.92 à 110 %

Moi, je voudrais bien savoir ce qui résulte de ce code sur ta machine, Nicolas JACQUIN, avec ton userform et son ombrage :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub CommandButton1_Click() With UserForm1 .BorderStyle = fmBorderStyleNone .StartUpPosition = 0 .SpecialEffect = fmSpecialEffectFlat .Top = Application.Top .Left = Application.Left .Show End With End Sub
Ce code positionne le userform dans l'angle supérieur gauche de la fenêtre application.
Un userform sans effet d'ombrage s'y trouve "collé"
Que se passe-t-il avec le tien ? Sont-ce les vraies bordures du userform qui s'y trouvent collées où sont-ce les bordures de l' "ombrage" ?

28/05/2017, 21h38
Nicolas JACQUIN

1 pièce(s) jointe(s)

Il y a quand même l'ombrage
Pièce jointe 280196
28/05/2017, 21h45
unparia

Citation:

Il y a quand même l'ombrage

Merci
Oui, mais on peut dès lors écarter sa responsabilité. C'est ce que je voulais savoir. Merci.
28/05/2017, 22h25
patricktoulon

re

oui visuellement il peut prêter a confusion je fait les test sans aero pour mieux voir
28/05/2017, 22h28
patricktoulon

2 pièce(s) jointe(s)

re

Citation:

Patrick
Le ruban passe de 71 à 100 %, à 82.92 à 110 %

c'est pas logique ca ne correspond pas a ce que l'on voit
regarde la capture le ruban n'est pas modifier avec le zoom
Pièce jointe 280213
28/05/2017, 22h30
Nicolas JACQUIN

Citation:

Envoyé par patricktoulon

c'est pas logique ca ne correspond pas a ce que l'on voit

5 min je refais
28/05/2017, 22h37
Nicolas JACQUIN

1 pièce(s) jointe(s)

Oui escuse c'est moi, parce que j'avais changé cette ligne

Code:

pppx = ((.PointsToScreenPixelsX(3) - .PointsToScreenPixelsX(0)) / 3) / Z

Pièce jointe 280215
28/05/2017, 22h50
patricktoulon

re

et oui en fait que ce soit 100 ou 200% le ruban ne devrait pas changer mais pourtant oui, les chiffres parlent

en fin de compte seule est universelle app.left et activewindow.left tout le reste sans parler de dimensions différentes ont un comportement différent
parti de la ca peut durer encore longtemps
28/05/2017, 22h52
Nicolas JACQUIN

Citation:

Envoyé par patricktoulon

et oui en fait que ce soit 100 ou 200% le ruban ne devrait pas changer mais pourtant oui, les chiffres parlent

en fin de compte seule est universelle app.left et activewindow.left tout le reste sans parler de dimensions différentes ont un comportement différent
parti de la ca peut durer encore longtemps

Ben oui c'est ce que je disais un peu plus haut, je pense que c'est du cas par cas

exemple cici
le userform devrait toujour avoir le meme top a 100 ou 200

Code:

1
2
3
4
5
6
7
8
Sub test()
    With UserForm1
        .Show 0
        pppx = (ActiveWindow.ActivePane.PointsToScreenPixelsX(3) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / 3
        .Top = Application.Top + CommandBars("Ribbon").Height / pppx
        .Left = 150
    End With
End Sub

c'est pour te dire a quel point on cours après un chimère

28/05/2017, 23h02
Nicolas JACQUIN

1 pièce(s) jointe(s)

Pièce jointe 280230

top à 113.25

avec cet exemple le userform est il bien a 0 de la grille en left

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Set app = Application: Set actw = ActiveWindow
    Z = (actw.Zoom / 100)
    With actw.ActivePane
        pppx = (.PointsToScreenPixelsX(3) - .PointsToScreenPixelsX(0)) / 3
        cadre = (app.Width - app.UsableWidth) / 3
    End With
    With UserForm1
        .Show 0
        pppx = (ActiveWindow.ActivePane.PointsToScreenPixelsX(3) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / 3
        .Top = 300
        .Left = app.Left + actw.Left + cadre * 2 + 24 * Z
    End With
End Sub

28/05/2017, 23h21
Nicolas JACQUIN

1 pièce(s) jointe(s)

Pièce jointe 280240

La c'est en 100%

et oui donc toi il faut enelever cadre au left et a jouter cadre au top

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Set app = Application: Set actw = ActiveWindow
    Z = (actw.Zoom / 100)
    With actw.ActivePane
        pppx = (.PointsToScreenPixelsX(3) - .PointsToScreenPixelsX(0)) / 3
        cadre = (app.Width - app.UsableWidth) / 3
    End With
    With UserForm1
        .Show 0
        pppx = (ActiveWindow.ActivePane.PointsToScreenPixelsX(3) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / 3
        .Top = Application.Top + CommandBars("Ribbon").Height / pppx + cadre
        .Left = app.Left + actw.Left + 25 * Z
    End With
End Sub

la normalement tu est juste au dessus de la barre des formules et a gaughe 0 de la grille

28/05/2017, 23h28
Nicolas JACQUIN

1 pièce(s) jointe(s)

Pièce jointe 280245

oups j'ai inverssé sur les label
28/05/2017, 23h41
patricktoulon

re

maintenant zoom et tu va voir
28/05/2017, 23h44
Nicolas JACQUIN

1 pièce(s) jointe(s)

zoom à 150 %, mais remonte déjà avant

Pièce jointe 280255

Voir 40 message(s) de cette discussion en une page