Liaison Zone texte et Userform (Formulaire)

[ssassam]

Bonjour,

Et comme toujours encore besoin de votre aide mes chers amis

J'ai un petit problème de liaison entre une Zone texte et un Userform (Voir fichier joint avec explication)

Je souhaite que la saisie sur mon formulaire soit saisie sur la Zone de texte et non pas sur la celule [A1] ,

Merci beaucoup.

 

[Staple1600]

Re : Liaison Zone texte et Userform (Formulaire)

Bonsoir à tous

Tout simplement comme ceci

Private Sub CommandButton1_Click()
Sheets(1).TextBox1.Text = TextBox1.Text
End Sub

Ce qui adapté à ton code donnera

Private Sub CommandButton1_Click()
If Controls("Objett") = "" Then
MsgBox "Vous devez ABSOLUMENT indiquer votre Objet Réclamation !", vbCritical, _
"ERREUR ... votre Objet Réclamation SVP !"
Controls("Objett").SetFocus
Exit Sub
End If
Sheets("F001").TextBox1.Text = objett.Text
Unload UserForm1
MsgBox "Merci, votre demande a bien été prise en compte ! ", vbInformation
End Sub

 

[ssassam]

Re : Liaison Zone texte et Userform (Formulaire)

C'est Exactement ce que je cherche Merci beaucoup Staple1600 😉

Stp est ce qu'il est possible de verrouiller la modification sur ma textbox.text après cette macro.

Merci

 

[Staple1600]

Re : Liaison Zone texte et Userform (Formulaire)

Bonjour à tous

Qu'entends-tu par verrouiller ?
Que doit-il se passer quand tu ré-afficheras l'userform

Tu peux utiliser la protection fournie par Excel (sur ta textbox -> format de controle -> protection-> vérouillé)
(mais cela implique que tu protèges ta feuille )

 

[ssassam]

Re : Liaison Zone texte et Userform (Formulaire)

Voila la feuil est protégé la macro exécute Unprotect"123" > saisie des donnés > unload Userform puis il protect"123"

Mon problème c'est qu'il laisse la main de saisir ou modifier sur la textbox

 

[Staple1600]

Re : Liaison Zone texte et Userform (Formulaire)

Bonjour à tous

En biaisant un peu, on peut "verrouiller" la textbox sur la feuille.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Sheets(1).TextBox1.Text = TextBox1.Text
Sheets(1).TextBox1.Enabled = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Unload UserForm1
End Sub

 

[Staple1600]

Re : Liaison Zone texte et Userform (Formulaire)

Re

Après réflexion on peut se passer de passer par l'étape Protection de la feuille

Private Sub CommandButton1_Click()
Sheets(1).TextBox1.Text = TextBox1.Text
Sheets(1).TextBox1.Enabled = False
Unload UserForm1
End Sub

 

[ssassam]

Re : Liaison Zone texte et Userform (Formulaire)

Merci ca marche !

 

[56kback]

Re : Liaison Zone texte et Userform (Formulaire)

Bonjour,

J'utilise ce post pour savoir si il existe une fonction similaire qui pourrait afficher une date non pas sur une zone de texte comme ici, mais sur un calendrier ?

Des idées ?