import resultat calculatrice

S

schmail

Guest

• 7 Janvier 2004

• #2

Bonsoir hervé

Ton USF devra avoir un bouton pour lancer la calculette et un bouton pour copier le résultat.

Démarrage de la calculette
Private Sub CommandButton1_Click()
Shell ("C:\WINDOWS\CALC.EXE")
End Sub

Copie le résultat en "imitant" les raccourcis clavier
Private Sub CommandButton2_Click()
Dim calc
calc = "Calculatrice" 'nom de la calculette
AppActivate calc
SendKeys "^C", True 'copie comme Ctrl+C
SendKeys "%{F4}", True 'ferme
UserForm1.taTextBox.SetFocus
SendKeys "^V", True 'colle
taTextBox.Value = Format(taTextBox.Value, "0.00") 'regle le format du nombre (optionnel)
End Sub

@+ et bonne soirée

 

Vote positif 0 Vote négatif

H

herve

Guest

• 8 Janvier 2004

• #3

bonsoir!

merci Schmail pour ton code.

hélas, cela ne fonctionne pas tout a fait... cela ne colle rien dans le textbox!

j'ai du louper quelque chose non??

@+ et bonne nuit

 

Vote positif 0 Vote négatif

R

Roland

Guest

• 8 Janvier 2004

• #4

Bonsoir ou bonjour à tous les deux

Mais si cela marche Mais passe en commentaire la dernière pour tes essais.

Roland

 

Vote positif 0 Vote négatif

H

herve

Guest

• 8 Janvier 2004

• #5

re bonsoir​

pour que cela marche, j'ai du rajouter


SendKeys "=", True
SendKeys "^C", True 'copie comme Ctrl+C

dans la premiere partie...

je ne comprends pas pourquoi, mais c'est ok maintenant...


merci et bonne nuit !

herve

 

Vote positif 0 Vote négatif

S

schmail

Guest

• 8 Janvier 2004

• #6

Bonjour Hervé, Roland et le forum

hops ! L'instruction SendKeys permet de "bricoler" mais avec tes rajouts, hervé, je ne comprend plus trop la logique du bricolage (peut être des propriétés d'usf ou de controles différentes....)
Je te joins un fichier exemple qui fonctionne très bien sur mon ordi (W98, XL2000). Pour voir

@+ et bonne journée

 

Pièces jointes

• calculatrice.zip

  8.8 KB · Affichages: 46
• calculatrice.zip

  8.8 KB · Affichages: 45
• calculatrice.zip

  8.8 KB · Affichages: 50

Vote positif 0 Vote négatif

H

herve

Guest

• 8 Janvier 2004

• #7

bonjour a tous !

merci Schmail pour ta patience...
en effet, je ne sais pas pourquoi, mais ca marche même bien ton truc...

Et est il possible de faire dans le genre :

1 bouton pour lancer la calc, et automatiquement à la fermeture de celle-ci la valeur resultat est copiée et mise dans un textbox précis, ce qui permettrai de supprimer ton bouton résultat...

encore merci.

Herve

 

Vote positif 0 Vote négatif

S

schmail

Guest

• 8 Janvier 2004

• #8

bonsoir hervé

Je bricole un peu en VBA mais là.... capter l'évenement fermeture de la calculatrice... je cale

bonne soirée qd même et peut être qu'un spécialiste passera par là ou que nos recherches sur le sujet porteront leur fruit...@ suivre

 

Vote positif 0 Vote négatif

H

herve

Guest

• 8 Janvier 2004

• #9

bonsoir

merci Schmail pour t'on aide... j'arrive a faire ce que je voulais... enfin presque...

a defaut de fonction calculette (telle calendar), je ferai avec cette soluce,

a moins (on peut rever), qu'un gourou d'XL ai fait un unserform calculette...


@suivre en effet !

Hervé

 

Vote positif 0 Vote négatif

R

Roland

Guest

• 8 Janvier 2004

• #10

Bonsoir à tous

En attendant les spécialistes

Voici un début de calculette à terminer je n'ai plus le temps ce soir.

Si quelqu'un s'y met qu'il le dis sinon je terminerai ce WeekEnd

A+ Roland

 

Vote positif 0 Vote négatif

R

Roland

Guest

• 8 Janvier 2004

• #11

Un oubli Sorry

 

Pièces jointes

• Calculette.zip

  20 KB · Affichages: 34
• Calculette.zip

  20 KB · Affichages: 28
• Calculette.zip

  20 KB · Affichages: 30

Vote positif 0 Vote négatif

E

EMG

Guest

• 8 Janvier 2004

• #12

Bonsoir à tous

Ben yaka demandé tout t'est la

@+ Gérard

 

Pièces jointes

• CalculetteVBA.zip

  32.4 KB · Affichages: 54
• CalculetteVBA.zip

  32.4 KB · Affichages: 51
• CalculetteVBA.zip

  32.4 KB · Affichages: 50

Vote positif 0 Vote négatif

E

EMG

Guest

• 9 Janvier 2004

• #13

Bonjour le forum

Hier soir j'ai omis de mettre une petite note d'utilisation pour la calculette

l'insertion du résultat se fait sur n'importe quelle cellule ou groupe de cellule, cette calculette est crée directement à partir du code VBA qui fait référence a un module de classe

lors de la fermeture de celle-ci en cliquant sur la petite croix de fermeture blanche elle disparaît, pour l'afficher de nouveau a l'écran il suffit de faire dans la barre des menus la manip suivante :

Affichage....Barres d'outils....Calculette V1.00

@+ Gérard

 

Vote positif 0 Vote négatif