paradisecity1996
XLDnaute Nouveau
Bonjour à tous,
je me lance tout doucement sur le VBA. Je suis actuellement entrain de créer une base de données. J'ai réussi à automatiser l'ajout de données sur toute une ligne du tableau sans problème à partir d'un formulaire à remplir.
- Cependant, je n'arrive pas à implémenter quelque chose d'enfantin j'en suis conscient. Chaque ligne de mon tableau est identifiée par une référence (valeurs à partir de D5), c'est un nombre. J'aimerais que cette valeur augmente de 1 à chaque fois que j'ajoute une nouvelle référence dans la BDD. Il faut donc se positionner sur cette même colonne D descendre jusqu'à la dernière valeur non vide, prendre la valeur de l'avant dernière colonne et rajouter +1. Une fois cette valeur implémenter on se décale pour chaque info rentrée dans la boite de dialogue d'une colonne à droite.
- Deuxième question, certaine valeurs à implémenter dans ma boite de dialogue sont des valeurs avec des formats particuliers (m², €, €/m²...). Comment puis-je imposer ces formats automatiquement une fois ces valeurs implémentées. Je pourrais sélectionner la colonne entière et imposer un format mais je me demandais si il n'y avait pas une méthode plus "propre".
- Troisième et dernière question : La boite de dialogue apparait après avoir cliqué sur un bouton. Cependant, pour une raison que j'ignore, la taille de la boite de dialogue change tout le temps et est bien souvent illisible. Comment puis-je fixer les dimensions de cette boite de dialogue ?
Si vous avez besoin d'éclaircissements n'hésitez pas à demander.
Merci d'avance pour votre aide.
je me lance tout doucement sur le VBA. Je suis actuellement entrain de créer une base de données. J'ai réussi à automatiser l'ajout de données sur toute une ligne du tableau sans problème à partir d'un formulaire à remplir.
- Cependant, je n'arrive pas à implémenter quelque chose d'enfantin j'en suis conscient. Chaque ligne de mon tableau est identifiée par une référence (valeurs à partir de D5), c'est un nombre. J'aimerais que cette valeur augmente de 1 à chaque fois que j'ajoute une nouvelle référence dans la BDD. Il faut donc se positionner sur cette même colonne D descendre jusqu'à la dernière valeur non vide, prendre la valeur de l'avant dernière colonne et rajouter +1. Une fois cette valeur implémenter on se décale pour chaque info rentrée dans la boite de dialogue d'une colonne à droite.
- Deuxième question, certaine valeurs à implémenter dans ma boite de dialogue sont des valeurs avec des formats particuliers (m², €, €/m²...). Comment puis-je imposer ces formats automatiquement une fois ces valeurs implémentées. Je pourrais sélectionner la colonne entière et imposer un format mais je me demandais si il n'y avait pas une méthode plus "propre".
- Troisième et dernière question : La boite de dialogue apparait après avoir cliqué sur un bouton. Cependant, pour une raison que j'ignore, la taille de la boite de dialogue change tout le temps et est bien souvent illisible. Comment puis-je fixer les dimensions de cette boite de dialogue ?
Si vous avez besoin d'éclaircissements n'hésitez pas à demander.
Merci d'avance pour votre aide.
Code:
Private Sub btnajout_Click()
Sheets("Source").Activate
Range("D5").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.Offset(0, 1).Select
ActiveCell = txtdate.Value
ActiveCell.Offset(0, 1).Value = txtadresse
ActiveCell.Offset(0, 2).Value = txtcp
ActiveCell.Offset(0, 3).Value = cboville
ActiveCell.Offset(0, 4).Value = cbotypo
ActiveCell.Offset(0, 5).Value = txtsurface
ActiveCell.Offset(0, 6).Value = txtvendeur
ActiveCell.Offset(0, 7).Value = txtacquéreur
ActiveCell.Offset(0, 8).Value = txtpv
ActiveCell.Offset(0, 10).Value = txttaux
ActiveCell.Offset(0, 11).Value = txtcommentaire
MsgBox "L'actif a bien été ajouté", vbOKOnly + vbInformation, "CONFIRMATION"
Unload Me
End Sub
Dernière édition: