combo et presse-papier

Bonjour Gérard,

En prenant pour acquis que tu as renseigné le RowSource de ton combobox,

insère dans le module de ton formulaire ceci :

Toutes ces fonctions sont disponibles là :
http://www.cpearson.com/excel/clipboar.htm

Met l'information du combobox dans le presse-papier à l'aide de la
fonction PutOnclipBoard
'--------------------
Private Sub ComboBox1_Change()
PutOnClipboard (Me.ComboBox1.Text)
End Sub
'--------------------

'Affiche dans la cellule active, le contenu du clipboard
Private Sub CommandButton1_Click()

ActiveCell = GetOffClipboard

End Sub
'--------------------

'--------------------
Public Sub PutOnClipboard(Obj As Variant)
Dim MyDataObj As New DataObject
MyDataObj.SetText Format(Obj)
MyDataObj.PutInClipboard
End Sub
'--------------------
Public Function GetOffClipboard() As Variant
Dim MyDataObj As New DataObject
MyDataObj.GetFromClipboard
GetOffClipboard = MyDataObj.GetText()
End Function
'--------------------

'Fonction pour vider le presse-papier
Public Sub ClearClipboard()
Dim MyDataObj As New DataObject
MyDataObj.SetText ""
MyDataObj.PutInClipboard
End Sub
'--------------------


Salutations!



"gérard" <gege@wanadoo.fr> a écrit dans le message de news: 44207274$0$29208$8fcfb975@news.wanadoo.fr...
Bonsoir
j'ai combobox
je voudrais sur la propriete change, que la valeur aille dans le
presse-papier, et q'ensuite
quand je selectionne une cellule, la valeur se copie dans celle-ci
merci de votre aide