Je suis emmerdé avec un module. Je n'arrive pas à récuperer et faire
fonctionner le chemin d'un objet.
En fait le but est de faire un COPIER/COLLER plus élaboré sur le clic droit
dans des textbox.
quelqu'un peut il m'expliquer ou m'aider. Je pense à un probleme de
déclaration de variable 'boite' mais là je trouve pas.
merci !!
-------------------------------------------
Private Sub tbIDoffre_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then Call copiecolle.init(Me.Name, Controls.Item(0).Name)
End Sub
-------------------------------------------
-------------------------------------------
Sub init(nomtb As String, nomobj As String)
Dim boite As Variant '???
boite = nomtb & "." & nomobj
'boite est donc bien egal à "nomuserform.nomtexbox"
MsgBox boite.Text 'pour verifi
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour Shewy80,
Je ne suis pas sûr que ça réponde à ta question, mais essaie :
Private Sub tbIDoffre_MouseUp(ByVal Button As Integer, _ ByVal Shift As Integer, _ ByVal X As Single, _ ByVal Y As Single) If Button = 2 Then Call init(Controls("tbIDoffre")) End Sub
et dans le module :
Public Sub init(boite As MSForms.TextBox) MsgBox boite.Text MsgBox boite.SelText End Sub
Si tu veux gérer un copier coller avec d'autres types de contrôles, ComboBox par exemple, déclare init comme ceci :
Public Sub init(boite As Object)
Bonjour à tous.
Je suis emmerdé avec un module. Je n'arrive pas à récuperer et faire fonctionner le chemin d'un objet. En fait le but est de faire un COPIER/COLLER plus élaboré sur le clic droit dans des textbox.
quelqu'un peut il m'expliquer ou m'aider. Je pense à un probleme de déclaration de variable 'boite' mais là je trouve pas. merci !! ------------------------------------------- Private Sub tbIDoffre_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 2 Then Call copiecolle.init(Me.Name, Controls.Item(0).Name) End Sub ------------------------------------------- ------------------------------------------- Sub init(nomtb As String, nomobj As String)
Dim boite As Variant '???
boite = nomtb & "." & nomobj 'boite est donc bien egal à "nomuserform.nomtexbox" MsgBox boite.Text 'pour verifi
End Sub -------------------------------------------
-- Cordialement,
Jacques.
Bonjour Shewy80,
Je ne suis pas sûr que ça réponde à ta question, mais essaie :
Private Sub tbIDoffre_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
If Button = 2 Then Call init(Controls("tbIDoffre"))
End Sub
et dans le module :
Public Sub init(boite As MSForms.TextBox)
MsgBox boite.Text
MsgBox boite.SelText
End Sub
Si tu veux gérer un copier coller avec d'autres types de contrôles,
ComboBox par exemple, déclare init comme ceci :
Public Sub init(boite As Object)
Bonjour à tous.
Je suis emmerdé avec un module. Je n'arrive pas à récuperer et faire
fonctionner le chemin d'un objet.
En fait le but est de faire un COPIER/COLLER plus élaboré sur le clic droit
dans des textbox.
quelqu'un peut il m'expliquer ou m'aider. Je pense à un probleme de
déclaration de variable 'boite' mais là je trouve pas.
merci !!
-------------------------------------------
Private Sub tbIDoffre_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then Call copiecolle.init(Me.Name, Controls.Item(0).Name)
End Sub
-------------------------------------------
-------------------------------------------
Sub init(nomtb As String, nomobj As String)
Dim boite As Variant '???
boite = nomtb & "." & nomobj
'boite est donc bien egal à "nomuserform.nomtexbox"
MsgBox boite.Text 'pour verifi
Je ne suis pas sûr que ça réponde à ta question, mais essaie :
Private Sub tbIDoffre_MouseUp(ByVal Button As Integer, _ ByVal Shift As Integer, _ ByVal X As Single, _ ByVal Y As Single) If Button = 2 Then Call init(Controls("tbIDoffre")) End Sub
et dans le module :
Public Sub init(boite As MSForms.TextBox) MsgBox boite.Text MsgBox boite.SelText End Sub
Si tu veux gérer un copier coller avec d'autres types de contrôles, ComboBox par exemple, déclare init comme ceci :
Public Sub init(boite As Object)
Bonjour à tous.
Je suis emmerdé avec un module. Je n'arrive pas à récuperer et faire fonctionner le chemin d'un objet. En fait le but est de faire un COPIER/COLLER plus élaboré sur le clic droit dans des textbox.
quelqu'un peut il m'expliquer ou m'aider. Je pense à un probleme de déclaration de variable 'boite' mais là je trouve pas. merci !! ------------------------------------------- Private Sub tbIDoffre_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 2 Then Call copiecolle.init(Me.Name, Controls.Item(0).Name) End Sub ------------------------------------------- ------------------------------------------- Sub init(nomtb As String, nomobj As String)
Dim boite As Variant '???
boite = nomtb & "." & nomobj 'boite est donc bien egal à "nomuserform.nomtexbox" MsgBox boite.Text 'pour verifi
