Rechercher une référence à partir de textbox

Résolu

DEVPLUS Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
DEVPLUS Messages postés 28 Date d'inscription Statut Membre Dernière intervention - 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
Comment faire une recherche à partir d'une photo - Guide
Creer un groupe whatsapp a partir d'un autre groupe - Guide
Rechercher ou entrer l'adresse - Guide
Reference pto - Accueil - Box & Connexion Internet
Rechercher une chanson - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 583

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 Statut Membre Dernière intervention

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 23541 Date d'inscription Statut Contributeur Dernière intervention 1 583 > DEVPLUS Messages postés 28 Date d'inscription Statut Membre Dernière intervention

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 Statut Membre Dernière intervention

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 Statut Membre Dernière intervention

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.

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 583 > DEVPLUS Messages postés 28 Date d'inscription Statut Membre Dernière intervention

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 Statut Membre Dernière intervention

mon Probléme n'a pas été Résolu

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 583

peut-être

Référence=TextBox1

?

DEVPLUS Messages postés 28 Date d'inscription Statut Membre Dernière intervention

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

Forum VB / VBA