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

Tableau
Vba

senecartour Messages postés 324 Date d'inscription Statut Membre Dernière intervention -
senecartour Messages postés 324 Date d'inscription Statut Membre Dernière intervention - 30 mars 2014 à 19:45

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

Afficher la suite

A voir également:

Afficher tableau vba
Tableau word - Guide
Tableau ascii - Guide
Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant ✓ - Forum Excel
Trier un tableau excel - Guide
Tableau croisé dynamique - Guide

6 réponses

Réponse 1 / 6

senecartour Messages postés 324 Date d'inscription Statut Membre Dernière intervention 3

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!!

Réponse 6 / 6

senecartour Messages postés 324 Date d'inscription Statut Membre Dernière intervention 3

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!

Discussions similaires

Trouver la première ligne vide sur excel à l'aide de macro

Problème Excel VBA: "l'indice n'appartient pas à la sélection"

Remplir un tableau excel via VBA

Calcul nombre de ligne vba

Erreur de compilation : Impossible d'affecter à un tableau / OBJ

VBA: remplir combobox à partir d'une colonne

Votre réponse

Discussions similaires