Afficher les données d'un tableau dans un formulaire VBA

Question

Bonjour,

J'ai un tableau avec des données. Je souhaite créer un formulaire qui me permet d'afficher (dans le formulaire) les données de certaines cellules de la ligne et ceci en renseignant la référence d'un acrticle.

Quelqu'un aurait une idée.?

Merci d'avance pour votre aide

senecartour · Accepted Answer

Oui, j'ai conçu une formulaire pour la saisie avec le code suivant et qui fonctionne bien:

Private Sub VALIDER_Click()
    Dim rep As Integer
    Dim derl As Integer

       derl = Sheets("Maintenance_Corrective").Range("C2000").End(xlUp).Row + 1

       Range("A" & derl).Value = TextBox1
       Range("B" & derl).Value = TextBox2
       Range("C" & derl).Value = TextBox3
       Range("D" & derl).Value = TextBox3
       Range("E" & derl).Value = TextBox4
       Range("F" & derl).Value = TextBox5

End Sub


Cependant ce que j'aimerais avoir, c'est de pouvoir afficher les données d'une ligne dans le formulaire, lorsque je saisie la référence dans la cellule A.
Merci d'avance pour votre aide!!

Polux31 · Answer

Bonjour,

Elle est où la difficulté ? Tu as déjà fait quelque chose qui ne fonctionne pas ?

Polux31 · Answer

Bonjour,

Voilà un fichier exemple https://www.cjoint.com/c/DCxjOJglEKT

senecartour · Answer

Merci polux,
Ton fichier est très bien:)
Mais ce n'est pas exactement ce que je souhaiterais avoir.
En gros, je souhaite qu'après avoir sélectionné une valeur dans ma liste déroulane que les autres champs se remplissent automatiquement.

Le dernier champs (Responsable) sera le seul champ que je vais saisir!
Après avoir cliqué sur le bouton Valider, je dois avoir les données qui s'enregistrent.

Je te mets en PJ, le fichier. https://www.cjoint.com/?DCBmCR6ynbP

Merci d'avance pour ton aide

Polux31 · Answer

Bonjour,

J'ai donné un fichier exemple. Il y a tout dedans pour faire ce que tu veux mettre en place.

senecartour · Answer

Bonojur,
Si j'applique ce que vous m'avez transmis cela fonctionne correctement,mais l'idée c'est de comprendre commengt y arriver!

C'est pour quoi j'ai essayé de l'appliquer en écrivant le code à ma façon mais je ne vois pas où se situe l'erreur. ci-desosu mon code:


Private Sub UserForm_Initialize()
ComboBox1.RowSource = ("Ref")
End Sub

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1)
TextBox2 = ComboBox1.List(ComboBox1.ListIndex, 2)
TextBox3 = ComboBox1.List(ComboBox1.ListIndex, 3)
End Sub

Private Sub CommandButton1_Click()
Point = ComboBox1.ListIndex + 1
TextBox1 = Range("Matrice").Cells(Point, 1)
TextBox2 = Range("Matrice").Cells(Point, 1)
TextBox3 = Range("Matrice").Cells(Point, 1)
End Sub


1- J'ai bien fait la liste déroulante
2- I'ai affecté la valeur des textBox avec la listIndex

Mais la Macro ne focntionne pas!

Existerait-il un détails qui m'échappe?

Merci d'avance et désolé encore!

Afficher les données d'un tableau dans un formulaire VBA

6 réponses

Discussions similaires

Newsletters