Bonjour à tous et plus particulièrement à Michel qui m'a bien aidé.
Dans le code ci-dessous, je souhaiterais affecter au bouton : Private Sub
CommandButton4_Click()
End Sub
une macro afin d'effacer la recherche en cours dans TextBox2 et remettre le
curseur de la souris dans TextBox2 afin de lancer une nouvelle recherche de
code dans ma base de données.
De même, je n'arrive pas à trouver comment modifier 'UserForm1' qui apparait
dans la boite de dialogue.
Merci.
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
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
Patrick Fredin
Bonjour,
Où apparaît 'UserForm1' dans la boite de dialogue ?
Pour effacer le contenu et remettre le curseur :
TextBox2 = "" TextBox2.SetFocus
En passant, tu peux changer le nom des TextBoxes (comme txtCritere1, txtCritere2). C'est plus simple pour savoir ensuite ce que contient la TextBox comme info.
Cordialement.
-- Patrick
"blackboy" wrote in message news:
Bonjour à tous et plus particulièrement à Michel qui m'a bien aidé.
Dans le code ci-dessous, je souhaiterais affecter au bouton : Private Sub CommandButton4_Click() End Sub une macro afin d'effacer la recherche en cours dans TextBox2 et remettre le curseur de la souris dans TextBox2 afin de lancer une nouvelle recherche de code dans ma base de données. De même, je n'arrive pas à trouver comment modifier 'UserForm1' qui apparait dans la boite de dialogue. Merci.
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
Bonjour,
Où apparaît 'UserForm1' dans la boite de dialogue ?
Pour effacer le contenu et remettre le curseur :
TextBox2 = ""
TextBox2.SetFocus
En passant, tu peux changer le nom des TextBoxes (comme txtCritere1,
txtCritere2). C'est plus simple pour savoir ensuite ce que contient la
TextBox comme info.
Cordialement.
--
Patrick
"blackboy" <blackboy@discussions.microsoft.com> wrote in message
news:48CBB4D4-C925-46BF-B5C6-68E677B77023@microsoft.com...
Bonjour à tous et plus particulièrement à Michel qui m'a bien aidé.
Dans le code ci-dessous, je souhaiterais affecter au bouton : Private Sub
CommandButton4_Click()
End Sub
une macro afin d'effacer la recherche en cours dans TextBox2 et remettre
le
curseur de la souris dans TextBox2 afin de lancer une nouvelle recherche
de
code dans ma base de données.
De même, je n'arrive pas à trouver comment modifier 'UserForm1' qui
apparait
dans la boite de dialogue.
Merci.
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
Où apparaît 'UserForm1' dans la boite de dialogue ?
Pour effacer le contenu et remettre le curseur :
TextBox2 = "" TextBox2.SetFocus
En passant, tu peux changer le nom des TextBoxes (comme txtCritere1, txtCritere2). C'est plus simple pour savoir ensuite ce que contient la TextBox comme info.
Cordialement.
-- Patrick
"blackboy" wrote in message news:
Bonjour à tous et plus particulièrement à Michel qui m'a bien aidé.
Dans le code ci-dessous, je souhaiterais affecter au bouton : Private Sub CommandButton4_Click() End Sub une macro afin d'effacer la recherche en cours dans TextBox2 et remettre le curseur de la souris dans TextBox2 afin de lancer une nouvelle recherche de code dans ma base de données. De même, je n'arrive pas à trouver comment modifier 'UserForm1' qui apparait dans la boite de dialogue. Merci.
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
