Pré-remplir TextBox1 en fonction de TextBox2

Bonjour le forum,

Je suis sur un projet d'entreprise pour linéariser la charge de travail par personnes.

Mon but est simple à réaliser mais je n'est rien trouver de concluant pour effectuer ce que je veux.

J'ai effectuer un petit fichier avec les bases, pour avoir un support.

Mon but :

• Rentrer le N° de d'affaire dans la textbox1
• En fonction de TextBox1, TextBox2 trouve le nom de l'affaire
  
  • Si TextBox2 trouve alors "NOM DE L'AFFAIRE" sinon : laisser l'utilisateur entrer le nom à la main
• Cliquer sur valider pour coller les valeurs des deux cellule en A15 et B15

Je vous remercie d'avance pour l'aide et encore désolé si le défi est facile à relever.

Bonsoir Masta, Bienvenue sur le Forum,

Pas d'ouverture de pièce jointe en début de discussion.

Tu peux gérer le contenu de la 2ème zone de texte par un évènement sur la 1ère.
Par exemple, l'évènement Exit.
Le texte de cette 2ème zone de texte serait retourné par l'emploi de la méthode Find en testant la valeur "rien" de celle-ci.
Dans ce dernier cas, le focus se porterait sur celle-ci.

Pour ce faire, tu peux consulter cet espace fondamental.

Bonjour Marcel, et merci d'avoir pris le temps de répondre.

Cependant c'est un peut du chinois pour moi, et honnêtement je ne sais pas assembler les paramètre une fois trouver le bon...:(

Je ne sais pas comment aider la communauté pour que ce soit plus aisé pour tous le monde.

Bonjour,

As-tu lu le tutoriel dans son intégralité.
Pourrais-tu, dans un premier temps gérer l'évènement Exit pour la 1ère Textbox.
Pour ce faire, dans l'éditeur VBE, au code associé au formulaire, tu disposes de 2 zones de liste au sommet de l'éditeur
- 1 pour l'objet contrôle, tu choisis Textbox1
- 1 pour l'évènement, tu choisis Exit

1 nouvelle procédure s'affichera

Code:

---

1 2 3 4

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)     End Sub

---

Tu alimentes cette procédure par ces lignes de code

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim t As Range Set t = Worksheets(1).Range("A1:A5").Find(TextBox1, LookIn:=xlValues, lookat:=xlWhole) MsgBox t.Address Set t = Nothing End Sub

---

En adaptant le nom de la feuille et la plage de recherche.

Reviens en ayant testé, soit
- en affichant le formulaire
- en informant Textbox 1 par une zone de texte dont la valeur existe dans la plage
- en activant la touche "Entrée"
- en fermant le formulaire

La procédure marche! Cela me renvoie la ligne et la colonne!

C'est cool, la recherche marche bien, maintenant il faut que j'arrive à récupérer la valeur de la colonne à coté dans la textbox2.

Je vais essayer de trouver le bon code...

Salut,

Tant mieux.

Il faudra gérer le cas où t n'est pas trouvé
Donc:
Si t n'est pas rien, la Textbox2 aura son texte informé de la cellule t décalée de 1 colonne (propriété Offset)
Sinon, la Textbox2 recevra le focus pour saisie.

Je te laisse traduire ce qui précède, en ayant consulté les liens que je t'ai indiqués (notamment l'exemple de code reporté sur l'aide de la méthode Find) ainsi que l'aide Microsoft sur la propriété Offset.

Surtout, tu reviens avec le code.

Bon après presque 1 semaine de test je n'arrive pas a avoir une petite ligne...:(

J'ai essayé pleins de truc mais rien ne fonctionne

On est d'accord que le if est à écrire dans la textbox1?
j'ai essayer de sélectionner la cellule trouvé après mon find pour la décaler ensuite en offset, grace à un ActiveCells, mais la aussi je n'arrive pas à sélectionner la cellule.



... Du coup je reviens sans code ...
:calim2:

Salut Masta,

Content de te retrouver

As-tu suivi mes indications du 15/11 à 10h56?
Je t'ai donné tous les éléments pour traduire en code VBA non post précédent.
Sachant que la Textbox 2 sera soit informée soit réceptrice du focus, la traduction se reportera dans la procédure évènementielle Exit de Textbox1 que j'ai mentionnée plus haut.

Donc.
1 - Consulte les liens (Méthode Find et les contrôles de formulaires)
2 - Essaie d'adapter
3 - Reviens avec le code
Même si celui-ci n'est pas parfait, tu auras cherché et donc progressé vers la solution à ta problématique.

Pour aboutir, s'il te plaît, décortique chaque indication presque mot par mot et suis les indications à la lettre.

A plus tard.