Afficher les données d'un tableau dans un formulaire VBA
Fermé
senecartour
Messages postés
325
Date d'inscription
dimanche 12 mai 2013
Statut
Membre
Dernière intervention
29 octobre 2020
-
22 mars 2014 à 21:17
senecartour Messages postés 325 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 - 30 mars 2014 à 19:45
senecartour Messages postés 325 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 - 30 mars 2014 à 19:45
A voir également:
- Afficher tableau vba
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. ✓ - Forum Jeux vidéo
- Tableau word - Guide
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
6 réponses
senecartour
Messages postés
325
Date d'inscription
dimanche 12 mai 2013
Statut
Membre
Dernière intervention
29 octobre 2020
3
22 mars 2014 à 21:33
22 mars 2014 à 21:33
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!!
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!!
