Rechercher une référence à partir de textbox
Résolu
Bonjour,
je veux saisir la référence directement sur TextBox1 sans passer par inputbox ou listbox
cordialement
je veux saisir la référence directement sur TextBox1 sans passer par inputbox ou listbox
Private Sub BtNouveau_Click()
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox1.SetFocus
Dim Référence As String, Verif As String
Référence = InputBox("Saisissez Une Référence:", "Article ")
Verif = ""
Dim i As Integer
i = 2
Do While Sheets("BDA").Cells(i, 1) <> ""
If UCase(Sheets("BDA").Cells(i, 1)) Like UCase(Référence) Then
Me.TextBox1.Value = Sheets("BDA").Cells(i, 1).Value
Me.TextBox2.Value = Sheets("BDA").Cells(i, 2).Value
End If
i = i + 1
Loop
Verif = "OK"
Exit Sub
If UCase(Sheets("BDA").Cells(i, 1)) <> UCase(Référence) Then
If MsgBox("vous devez creer cet Article?", vbYesNo, "Référence introuvable") = vbYes Then
Unload Me
U4.Show
End If
End If
End Sub
cordialement
2 réponses
-
Contributeurbonjour, j'ai l'impression que tu poses beaucoup de questions et que tu négliges les réponses que nous te proposons.
peux-tu suivre les réponses proposées à tes questions précédentes, ou marquer les sujets comme résolus?
quand ce sera fait, je te propose, ensuite, de faire ceci:
1) utiliser la coloration syntaxique chaque fois que tu postes du code
2) nous expliquer l'aide que tu souhaites recevoir.-
merci pour la solution que tu m'a proposé, ce n'était pas ce que je cherchais, donc j'ai laissé la formule pour l'ensemble des textBox comme suite les unes après les autres:
Private Sub TextBox2_Enter() TextBox2.BackColor = vbYellow End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2.BackColor = vbWhite End Sub
-
Contributeur@DEVPLUSje t'invitais à ne pas abandonner tout ceci:
https://forums.commentcamarche.net/forum/s/m/DEVPLUS
peux-tu suivre les réponses proposées à tes questions précédentes, ou marquer les sujets comme résolus?
je t'invitais aussi à utiliser la coloration syntaxique, peux-tu tenir compte de cette invitation? -
-
3- comme le cas de ta proposition, ce que j'ai écrit ça marche, je voulais réduire le nombre de formule, ce que tu as proposé ça ne marche pas de la mémé manière à ce que j'ai mis.
ex: pour le sujet "rechercher une référence à partir d'un textbox, le code que j'ai donné marche très bien avec un input box, ma demande est pour améliorer le code. -
Contributeur@DEVPLUSpour mettre un sujet comme résolu, ou parce qu'il n'est plus utile de le continuer, utilise la roue dentée à droite du titre.
-
-
mon Probléme n'a pas été Résolu
