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

A voir également:

Rechercher une référence à partir de textbox
Rechercher ou entrer l'adresse - Guide
Comment faire une recherche à partir d'une photo - Guide
Creer un groupe whatsapp a partir d'un autre groupe - Guide
Reference pto - Accueil - Box & Connexion Internet
Rechercher une chanson - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 Ambassadeur 1 568
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.

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

yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 1 568 > 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?

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?

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.

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.

Réponse 2 / 2

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

yg_be Messages postés 23471 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 15 février 2025 1 568
14 nov. 2018 à 16:29

peut-être

Référence=TextBox1

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

Discussions similaires

Annuaire portable gratuit à partir d'un nom

recherche à partir de la barre d'adresse

problème de pixel

Trouver un numero de portable a partir d'un nom svp