comment déposer INPUTBOX dans le Presse Papier

[loic38]

bonjour à tous

j'ai une petite macro toute simple comme suit :
Sub calculeuros()
Dim val, val1 As Single

sub calculeuros

val = InputBox('Svp saisir le montant à convertir en Euros ?', 'MONTANT')

val1 = CDec(val / 6.55957)

MsgBox ('La conversion de : ' & val & ' Francs, donne la valeur de : ' & val1 & 'Euros ')

End Sub


je voudrais que la valeur de VAL1 soit déposé dans le Presse Papaier, de sorte que lorsque je retourne dans la feuille , je puisse par CTRL + V faire le coller sur n'importe quelle cellule de mon choix

merci de vos réponses

 

[Creepy]

Bonsoir All, Loic38,

Voici le code :

Sub calculeuros()
Dim val, val1 As Single

val = InputBox('Svp saisir le montant à convertir en Euros ?', 'MONTANT')

val1 = CDec(val / 6.55957)

MsgBox ('La conversion de : ' & val & ' Francs, donne la valeur de : ' & val1 & 'Euros ')

    With New DataObject
        .SetText val1
        .PutInClipboard
    End With
End Sub

ATTENTION POUR QUE CA MARCHE IL FAUT COCHER DANS LES REFERENCES : MICROSOFT FORM 2.0 OBJECT LIBRARY

@+

Creepy

 

[Dominique]

Juste une remarque sur la déclaration des variables :
Dim val, val1 As Single

en fait il faudrait écrire :

Dim val as Single, val1 As Single

 

[loic38]

bonjour Creepy, Dominique

absolument génial la réponse de Creepy
pour dominique, je crois que l'on peut déclarer les variables en rafale
je l'ai lu dans un bouquin

merci à tous deux de vos réponses aussi rapides
je suis subjugué

à +

 

[MichelXld]

bonjour Loic , bonjour Dominque , rebonjour Creepy

Loic , je me suis fait remonté les bretelles assez souvent par mon prof préféré (@+Thierry) pour indiquer que c'est Dominique qui a raison en ce qui concerne la déclaration des variables


Toutes les variables sont converties en type Variant si aucun autre type de données n'est explicitement déclaré.

En cas de déclaration de plusieurs variables avec le meme Dim , il faut préciser le type de donnee pour chaque variable .
Si pour définir les variables Xld1 , Xld2 et Xld3 vous écrivez par exemple :
Dim Xld1 , Xld2 , Xld3 As String
Dans ce cas Xld1 et Xld2 seront de type Variant .

Pour y remédier Il faut écrire :
Dim Xld1 As String , Xld2 As String , Xld3 As String


bonne soirée
MichelXld

Message édité par: michelxld, à: 05/10/2005 18:01