OVH Cloud OVH Cloud

Pouvoir positionner la calculatrice en VBA ??

5 réponses
Avatar
DC
Bonjour à tous,

Voilà, j'utilise la calculatrice de Excel 2000 sous XP, J'ai donc une macro,
qui s'éxécute avec un bouton, mais le petit inconvénient, c'est que
j'aimerais qu'elle se positionne toujours à droite de l'écran, au niveau des
lignes ou je travaille. Est-ce possible d'envisager ce genre de chose, avec
un code, à insérer dans la macro, Merci d'avance d'y penser !
'-------------------------------------------------------------
Sub Calculatrice()
Application.ActivateMicrosoftApp xlMicrosoftcalc
End Sub
'-------------------------------------------------------------
Cordialement ! DC

5 réponses

Avatar
michdenis
Bonjour DC,

Dans le haut d'un module standard, et
tu exécutes la procédure : PositionCalculatrice


'Déclaration des API

Private Declare Function MoveWindow& Lib _
"user32" (ByVal hwnd&, ByVal x&, ByVal y& _
, ByVal nWidth&, ByVal nHeight&, ByVal bRepaint&)
Private Declare Function FindWindow& _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function GetWindowRect& _
Lib "user32" (ByVal hwnd&, lpRect As RECT)
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


'-------------------------------------------
Sub PositionCalculatrice()

'L = Left de l'application
'T = Top de l'application

'Tu peux modifier les constantes selon
'la position que tu veux donner à la calculatrice

Const L& = 50, T& = 50
Dim hwnd, R As RECT
Application.ActivateMicrosoftApp 0
hwnd = FindWindow(vbNullString, "Calculatrice")
GetWindowRect hwnd, R
MoveWindow hwnd, L, T, R.Right - R.Left, R.Bottom - R.Top, 1
End Sub
'-------------------------------------------



Salutations!



"DC" a écrit dans le message de news: 443e1db1$0$29407$
Bonjour à tous,

Voilà, j'utilise la calculatrice de Excel 2000 sous XP, J'ai donc une macro,
qui s'éxécute avec un bouton, mais le petit inconvénient, c'est que
j'aimerais qu'elle se positionne toujours à droite de l'écran, au niveau des
lignes ou je travaille. Est-ce possible d'envisager ce genre de chose, avec
un code, à insérer dans la macro, Merci d'avance d'y penser !
'-------------------------------------------------------------
Sub Calculatrice()
Application.ActivateMicrosoftApp xlMicrosoftcalc
End Sub
'-------------------------------------------------------------
Cordialement ! DC
Avatar
Jean-Pierre
Pour allez un peu plus loin

Peut on récuperer le résultat de la calculette dans une cellule?

Jean-Pierre


"DC" a écrit dans le message de news:
443e1db1$0$29407$
Bonjour à tous,

Voilà, j'utilise la calculatrice de Excel 2000 sous XP, J'ai donc une
macro, qui s'éxécute avec un bouton, mais le petit inconvénient, c'est que
j'aimerais qu'elle se positionne toujours à droite de l'écran, au niveau
des lignes ou je travaille. Est-ce possible d'envisager ce genre de chose,
avec un code, à insérer dans la macro, Merci d'avance d'y penser
!
'-------------------------------------------------------------
Sub Calculatrice()
Application.ActivateMicrosoftApp xlMicrosoftcalc
End Sub
'-------------------------------------------------------------
Cordialement ! DC



Avatar
JièL Goubert
Bonjoir© Jean-Pierre

savez vous que l'on peut directement faire un calcul dans Excel ? ;-)
Parait même qu'il est fait pour ça ;->>>>

tapez = suivi de votre formule et appuyez sur F9 avant d'appuyer sur
entrée... C'est bon ?

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Le 14/04/2006 08:26 vous avez écrit... :
Pour allez un peu plus loin

Peut on récuperer le résultat de la calculette dans une cellule?

Jean-Pierre


"DC" a écrit dans le message de news:
443e1db1$0$29407$
Bonjour à tous,

Voilà, j'utilise la calculatrice de Excel 2000 sous XP, J'ai donc une
macro, qui s'éxécute avec un bouton, mais le petit inconvénient, c'est que
j'aimerais qu'elle se positionne toujours à droite de l'écran, au niveau
des lignes ou je travaille. Est-ce possible d'envisager ce genre de chose,
avec un code, à insérer dans la macro, Merci d'avance d'y penser
!
'-------------------------------------------------------------
Sub Calculatrice()
Application.ActivateMicrosoftApp xlMicrosoftcalc
End Sub
'-------------------------------------------------------------
Cordialement ! DC







Avatar
Patrick BASTARD
Bonjour, *JièL Goubert*

Excel pourrait alors être utilisé comme tableur ?

rofl rofl


--
Bien amicordialement,
P. Bastard

Bonjoir© Jean-Pierre

savez vous que l'on peut directement faire un calcul dans Excel ? ;-)
Parait même qu'il est fait pour ça ;->>>>

tapez = suivi de votre formule et appuyez sur F9 avant d'appuyer sur
entrée... C'est bon ?


Le 14/04/2006 08:26 vous avez écrit... :
Pour allez un peu plus loin

Peut on récuperer le résultat de la calculette dans une cellule?

Jean-Pierre


"DC" a écrit dans le message de news:
443e1db1$0$29407$
Bonjour à tous,

Voilà, j'utilise la calculatrice de Excel 2000 sous XP, J'ai donc
une macro, qui s'éxécute avec un bouton, mais le petit
inconvénient, c'est que j'aimerais qu'elle se positionne toujours à
droite de l'écran, au niveau des lignes ou je travaille. Est-ce
possible d'envisager ce genre de chose, avec un code, à insérer
dans la macro, Merci d'avance d'y penser !
'-------------------------------------------------------------
Sub Calculatrice()
Application.ActivateMicrosoftApp xlMicrosoftcalc
End Sub
'-------------------------------------------------------------
Cordialement ! DC






Avatar
DC
Bonsoir à tous,

Merci de ta réponse, super positive, michdenis,

En éffet çà fonctionne à merveille et le positionnement se fait, disons au
millimètre, c'est plus que parfait, un grand MERCI !

Cordialement ! Bon WE ! DC

"Jean-Pierre" a écrit dans le message de news:
hgH%f.13$
Pour allez un peu plus loin

Peut on récuperer le résultat de la calculette dans une cellule?

Jean-Pierre


"DC" a écrit dans le message de news:
443e1db1$0$29407$
Bonjour à tous,

Voilà, j'utilise la calculatrice de Excel 2000 sous XP, J'ai donc une
macro, qui s'éxécute avec un bouton, mais le petit inconvénient, c'est
que j'aimerais qu'elle se positionne toujours à droite de l'écran, au
niveau des lignes ou je travaille. Est-ce possible d'envisager ce genre
de chose, avec un code, à insérer dans la macro, Merci d'avance
d'y penser !
'-------------------------------------------------------------
Sub Calculatrice()
Application.ActivateMicrosoftApp xlMicrosoftcalc
End Sub
'-------------------------------------------------------------
Cordialement ! DC