effacer l'intérieur d'une TextBox après une recherche

Bonjour à tous et surtout à Michel qui m'a déjà bien aidé.
Je souhaiterais mettre à CommmandButton4 la fonction pour effacer le
contenu

des TextBox de mon UserForm afin de pouvoir lancer une recherche
dans TextBox2

De même, comment modifier le nom 'UserForm1' dans la boite de
dialogue.

Merci, code complet ci-dessous

Option Explicit
Private Code As String

Private Sub CommandButton1_Click() ' Go
If TextBox2 = "" Then GoTo 1
Dim x As Long
x = nRow(ActiveSheet, 2, TextBox2, True)
If x Then
TextBox1 = ActiveSheet.Cells(x, 1)
TextBox3 = ActiveSheet.Cells(x, 3)
TextBox4 = ActiveSheet.Cells(x, 4)
Else
MsgBox "Le code " & TextBox2 & " n'existe pas dans la base de
données !", 64

End If
1: TextBox2.SetFocus
End Sub

Private Function nRow&(sh As Worksheet, ByVal Col As Byte, What As
Variant,

Whole As Boolean)
Dim W As Range
Set W = sh.Columns(Col).Find(What, LookAt:=IIf(Whole, 1, 2))
If Not W Is Nothing Then nRow = W.Row
End Function

Private Sub CommandButton3_Click() ' Sortie
Unload UserForm1
End Sub

Private Sub CommandButton4_Click()

End Sub

Private Sub TextBox2_Change()
End Sub

Private Sub TextBox4_Change()
End Sub

fonction pour effacer le contenu
des TextBox de mon UserForm

De même, comment modifier le nom 'UserForm1' dans la boite de
dialogue.

Ça presse-tu tant que ça ?


"blackboy" <blackboy@discussions.microsoft.com> a écrit dans le
message de news:D5AA94D9-FEDF-42C6-B987-67E242D6263D@microsoft.com...

Bonjour à tous et surtout à Michel qui m'a déjà bien aidé.
Je souhaiterais mettre à CommmandButton4 la fonction pour effacer le
contenu

des TextBox de mon UserForm afin de pouvoir lancer une recherche
dans TextBox2

De même, comment modifier le nom 'UserForm1' dans la boite de
dialogue.

Merci, code complet ci-dessous

Option Explicit
Private Code As String

Private Sub CommandButton1_Click() ' Go
If TextBox2 = "" Then GoTo 1
Dim x As Long
x = nRow(ActiveSheet, 2, TextBox2, True)
If x Then
TextBox1 = ActiveSheet.Cells(x, 1)
TextBox3 = ActiveSheet.Cells(x, 3)
TextBox4 = ActiveSheet.Cells(x, 4)
Else
MsgBox "Le code " & TextBox2 & " n'existe pas dans la base de
données !", 64

End If
1: TextBox2.SetFocus
End Sub

Private Function nRow&(sh As Worksheet, ByVal Col As Byte, What As
Variant,

Whole As Boolean)
Dim W As Range
Set W = sh.Columns(Col).Find(What, LookAt:=IIf(Whole, 1, 2))
If Not W Is Nothing Then nRow = W.Row
End Function

Private Sub CommandButton3_Click() ' Sortie
Unload UserForm1
End Sub

Private Sub CommandButton4_Click()

End Sub

Private Sub TextBox2_Change()
End Sub

Private Sub TextBox4_Change()
End Sub

fonction pour effacer le contenu
des TextBox de mon UserForm

Textbox1.value = ""

De même, comment modifier le nom 'UserForm1' dans la boite de
dialogue.

Changer la propriété name dans la fenêtre Propriétés

Merci Clément pour tes réponses, cela marche évidement.
Comment retrouver automatiquement mon curseur de souris dans la
TextBox2 ?

Quant je tabule pou passer d'un bouton à l'autre, le sens n'est pas
respecté

suivant leur place, faut-il modifier dans une des fonction du code ?
Merci

fonction pour effacer le contenu
des TextBox de mon UserForm

Textbox1.value = ""

De même, comment modifier le nom 'UserForm1' dans la boite de
dialogue.

Changer la propriété name dans la fenêtre Propriétés

Il doit y avoir une propriété TabOrder à quelque part, soit pour tout
l'UseForm, soit pour chaque contrôle individuellemenrt.

Au pire:
Textbox2.setfocus


"blackboy" <blackboy@discussions.microsoft.com> a écrit dans le
message de news:005C1498-775F-46C7-B0BC-97E4725FD60B@microsoft.com...

Merci Clément pour tes réponses, cela marche évidement.
Comment retrouver automatiquement mon curseur de souris dans la
TextBox2 ?

Quant je tabule pou passer d'un bouton à l'autre, le sens n'est pas
respecté

suivant leur place, faut-il modifier dans une des fonction du code ?
Merci

fonction pour effacer le contenu
des TextBox de mon UserForm

Textbox1.value = ""

De même, comment modifier le nom 'UserForm1' dans la boite de
dialogue.

Changer la propriété name dans la fenêtre Propriétés

Voilà le code sur mon bouton 'EFFACER' avec tes conseils et cela marche
(curseur de souris sur TextBox2). J'avais déjà 1:TextBox2.SetFocus dans une
autre fonction.
Pour l'ordre des tabulations, je me suis rappeler les conseils de Michel et
j'ai résolu le souci en replaçant l'odre des 'Labels' 'TextBox' et
CommandButton' (clic droit sur l'objet et 'ordre de tabulation'
Merci de ton aide généreuse, bonne soirée

Il doit y avoir une propriété TabOrder à quelque part, soit pour tout
l'UseForm, soit pour chaque contrôle individuellemenrt.

Au pire:
Textbox2.setfocus


"blackboy" <blackboy@discussions.microsoft.com> a écrit dans le
message de news:005C1498-775F-46C7-B0BC-97E4725FD60B@microsoft.com...

Merci Clément pour tes réponses, cela marche évidement.
Comment retrouver automatiquement mon curseur de souris dans la
TextBox2 ?

Quant je tabule pou passer d'un bouton à l'autre, le sens n'est pas
respecté

suivant leur place, faut-il modifier dans une des fonction du code ?
Merci

fonction pour effacer le contenu
des TextBox de mon UserForm

Textbox1.value = ""

De même, comment modifier le nom 'UserForm1' dans la boite de
dialogue.

Changer la propriété name dans la fenêtre Propriétés