[VBA-W] aide pour inputbox

[clben23]

Bonjour,

bon j'ai réussi a me dépatouiller de mon probleme en changeant de solution car c'était vraiment trop chaud pour mes petits neurones .
il ne me reste maintenant plus qu'a savoir comment on selectionne une chaine de caractère avec une inputbox sous word (ou avec une autre application)
j'ai essaye de faire ca (qui m'a été transmis par uun type sur un forum et que j'ai modifié):

Function Capture_w() As String

Code :

1
2
3
4
5
    Function Capture_w() As String

    Capture_w = InputBox("position de la table Weight" & (Chr(10)) & "" & (Chr(10)) & "Par défaut lbl_w", "Weight", "lbl_w", 10, 10,8)

End Function

le 8 c'est la valeur du type et j'ai pensé que range ca aurait suffit mais apparement même avec n'importe quel type ca bug aidez moi svp.

merci

End Function

[Heureux-oli]

Code :

Capture_w = InputBox("position de la table Weight" & (Chr(10)) & "" & (Chr(10)) & "Par défaut lbl_w", "Weight", "lbl_w", 10, 10,8)

"position de la table Weight" & (Chr(10)) & "" & (Chr(10)) & "Par défaut lbl_w" est ton texte.
"Weight" Titre
"lbl_w" valeur par défaut
10 Position en X
10 Position en Y
8 Help file.

Le type de données doit se trouver derrière InputBox()As String.

[Heureux-oli]

Petit exemple concret :

Utilise ce code

Code :

1
2
3
4
5
6
7
 
Sub TestInputBox()
Dim stTemp as string
   stTemp = InputBox ("Entrez un texte !","Test InputBox","Olivier")
   msgBox stTemp
 
End Sub