insérer le champ sélectionné d'une listbox dans une textboxRésolu

Question

Bonjour,
Je suis débutant sur VBA et je dois créer une mini comptabilité pour un projet.
J'ai créer une feuille pour remplir mes écritures et une feuille où dans la 1ère colonne j'ai le numéro de cpte et dans la 2è, j'ai le libellé de compte associé.

J'ai créer un formulaire pour remplir mes écritures et dans une listbox je fais apparaitre les libellés de compte.
Dans une textbox juste au dessous j'aimerai que, lorsque je click sur le libellé, il aille cherché  le numéro de compte qui est associé à ce libellé et qu'il le mette dans cette textbox.

Quelqu'un peut-il m'aider?

Tony

cnt · Accepted Answer

Bonjour

On peut utiliser la méthode "FIND" --> recherche dans une PLAGE (Range)
    Dim maCellule As Range

    Dim monTexte As String

    Set maCellule = Range("maZoneSource").Find(maListBox.Text, LookIn:=xlValues)

    If Not maCellule Is Nothing Then

        monTexte = maCellule.Offset(0, -1).Value

    End If

Salut

cs_Jack · Answer

Salut
(modif catégorie question --> VBA)

Il te faut echercher la ligne dans ta feuille correspond à l'élément sélectionné
- Définis un Range de la zone où se trouvent les éléments contenus dans ta ListBox "maZoneSource"
- Fait une recherche avec une boucle For-Next
- Prendre le texte de la cellule située à gauche

Exemple :
   Dim maCellule As Objext
   Dim monTexte As String
   For Each maCellule In Range("maZoneSource")
      If maCellule.Value = maListBox.Text Then
         monTexte = maCellule.Offset(0, -1).Value
         Exit For
      End If
   Next

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

Bien sûr, tu mets ça dans l'évènement maListBox_Click

cs_Jack · Answer

Oui, beaucoup plus judicieux, CNT

cs_Tony1201 · Answer

Merci, ca marche

Tony

Insérer le champ sélectionné d'une listbox dans une textbox

5 réponses

Votre réponse

Discussions similaires