Rechercher une référence à partir de textbox

Résolu/Fermé
DEVPLUS Messages postés 28 Date d'inscription dimanche 30 octobre 2016 Statut Membre Dernière intervention 17 novembre 2018 - Modifié le 29 oct. 2018 à 10:29
DEVPLUS Messages postés 28 Date d'inscription dimanche 30 octobre 2016 Statut Membre Dernière intervention 17 novembre 2018 - 14 nov. 2018 à 16:43
Bonjour,
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

yg_be Messages postés 21063 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 janvier 2023 1 307
27 oct. 2018 à 20:57
bonjour, 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.
0
DEVPLUS Messages postés 28 Date d'inscription dimanche 30 octobre 2016 Statut Membre Dernière intervention 17 novembre 2018
Modifié le 29 oct. 2018 à 10:30
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
0
yg_be Messages postés 21063 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 janvier 2023 1 307 > DEVPLUS Messages postés 28 Date d'inscription dimanche 30 octobre 2016 Statut Membre Dernière intervention 17 novembre 2018
Modifié le 27 oct. 2018 à 22:24
je 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?
0
DEVPLUS Messages postés 28 Date d'inscription dimanche 30 octobre 2016 Statut Membre Dernière intervention 17 novembre 2018
27 oct. 2018 à 23:15
1- ou trouver la réponse résolu
2- si la réponse ne me convenu pas et j'ai sauté cette étape, que ce qu'il faut mettre? et ou?
0
yg_be Messages postés 21063 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 janvier 2023 1 307 > DEVPLUS Messages postés 28 Date d'inscription dimanche 30 octobre 2016 Statut Membre Dernière intervention 17 novembre 2018
28 oct. 2018 à 00:55
pour 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.
0
DEVPLUS Messages postés 28 Date d'inscription dimanche 30 octobre 2016 Statut Membre Dernière intervention 17 novembre 2018
27 oct. 2018 à 23:21
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.
0
DEVPLUS Messages postés 28 Date d'inscription dimanche 30 octobre 2016 Statut Membre Dernière intervention 17 novembre 2018
14 nov. 2018 à 09:58
mon Probléme n'a pas été Résolu
0
yg_be Messages postés 21063 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 janvier 2023 1 307
14 nov. 2018 à 16:29
peut-être
Référence=TextBox1
?
0
DEVPLUS Messages postés 28 Date d'inscription dimanche 30 octobre 2016 Statut Membre Dernière intervention 17 novembre 2018
14 nov. 2018 à 16:43
Merci, c'est résolu
0