Bonjour à tous,
J'ai crée une base de données pour mon boulot sous excel. Actuellement celle ci tourne pas mal, mais j'aimerai améliorer l'affichage pour cela je souhaite créer un formulaire qui reprend les données. Sachant que je dans cette base j'aurai 5 critères de choix. Si quelqu'un peut me donner un coup de main, je lui en serai reconnaissant.
Ci joint fichier de base de données
Salut Tatan62,
Hélas pour toi, Excel n'est pas un gestionnaire de base de donnée ... et pour réaliser ce que tu veux faire, tu vas devoir mettre les mains dans le cambouis !
Mais il est très possible de créer un tel formulaire en passant par VBA qui est inclus dans Excel. Il est possible de créer toutes sortes de formulaires mais pourquoi ne pas te cantonner à tes feuilles Excel et à "jouer" dans les cellules et leur mise en page ? Ca demanderait moins d'effort et permet d'éviter VBA si tu ne connais pas.
Les nombreuses fonctions d'excel permettent déjà d'effectuer pas mal de travail avec tes données.
A+
Bonjour Papy Octet,
Ce que je voudrai faire c'est créer un formulaire sous VBA, qu'il me permette de chercher et d'ajouter de données. Je sais qu'il y a du boulot pour y arriver. Ci joint un aperçu du formulaire (le formulaire est dans UserForm) que je voudrai.
Merci
Si quelqu'un peu me donner un début d'aide pour le formulaire.
J'ai modifié le principe du formulaire mais le problème que je rencontre est que comme j'ai certaine valeurs qui se répète celle ci apparaissent plusieurs fois dans mon menu de choix. Ci vous avez une idée pour régler ce problème.
B'jour,
Ton affaire n'a pas l'air bien compliquée mais il faut surtout savoir ce que tu veux exactement. Je propose ceci :
On a un bouton qui appelle la boîte.
Les 5 zones d'entrée en haut sont des listbox ce qui évite d'avoir à claviéter un texte. Chaque listbox est chargée en fonction d'une liste (à mettre à jour si besoin) située sur une feuille à part.
On peut afficher la fiche où se trouve la cellule active dans la base, la modifier, la supprimer ou l'ajouter à la fin de la base.
On peut effectuer une recherche selon les 5 critères et afficher le résultat sur une autre feuille.
Mais si t'as l'gosier, Qu'une armure d'acier, Matelasse. Brassens, Le bistrot.
Bonjour Sitalgo,
J'ai réussi à trouver de l'aide pour mon formulaire à l'heure actuel . j'aimerai que quand je clique sur "information je récupère la totalité des infos de la ligne sélectionner. on m'a donné ce code que j'ai intégré à mon bouton Information
"mais quand je clique sur information celui ci me lance le userform2 sans rien dedans. Si tu vois le pb peut tu me dire lequel. MerciCode:Private Sub CommandButton2_Click() Dim Ind As Long, Lig As Long ' Récupérer le numéro d'index de ligne sélectionnée Ind = Me.ListBox1.ListIndex ' Récupérer le numéro de ligne dans la 1ère colonne invisible de la ListBox Lig = Me.ListBox1.Column(0, Ind) ' Inscrire ensuite les données dans l'USF 2 With Sheets("Base de donnée") UserForm2.Bigram = Range("A" & Lig).Value ' etc ... End With UserForm2.Show End Sub"
Dernière modification par yoda1234 ; 01/06/2009 à 07h15.
Il manque le point avant range.Code:With Sheets("Base de donnée") UserForm2.Bigram = .Range("A" & Lig).Value
Mais si t'as l'gosier, Qu'une armure d'acier, Matelasse. Brassens, Le bistrot.
Bonsoir,
J'aimerai savoir si c'est possible de récupérer la mise en forme d'une cellule, lorsqu'on importe les données de celle-ci
La méthode copy copie tout, contenu, remplissage, police...
ActiveSheet.Cells(1, 1).Copy Destination:=ActiveSheet.Cells (2, 1)
Mais si t'as l'gosier, Qu'une armure d'acier, Matelasse. Brassens, Le bistrot.
Au lieu de UserForm2.Bigram = Range("A" & Lig).Value, essaye ceci :
:
Je crois que c'est le nom de la feuille "origine" qui accroche. Lorsqu'on veut passer des paramètres d'une feuille à une autre, il vaut mieux que les choses soient explicites. Surtout en VB.Code:UserForm2.Bigram = Feuil1.Range("A" & Lig).Value
Un exemple : lorsque tu écrisprends l'habitude d'écrire ce qui est implicite, à savoirUserForm2.BigramC'est bête, mais ce sera sacrément utile lorsque qqn d'autre aura à maintenir ton code.UserForm2.Bigram.text
Faut pas, ça va planter vu qu'il a mis :Envoyé par TiClic
Mais c'est vrai que quand on soumet un listing à quelqu'un d'autre il faut mettre plus de commentaires, notamment le but de la routine.Code:With Sheets("Base de donnée")
Mais si t'as l'gosier, Qu'une armure d'acier, Matelasse. Brassens, Le bistrot.
Je vérifie.
Bizarre, les pièces jointes semblent polymorphes. Maintenant, j'ai un fichier Excel avec "Je m'appelle Tatan" dans une cellule. Qqn peut m'éclairer ?
Plus de macro.
Voici le fichier de la base de données.
J'ai une question aussi j'aimerai que quand j'appuie sur information la textbox avec le lien reprenne le lien hypertexte qui se trouve dans lafeuille de données. Pour être sur de mettre fait comprendre je voudrai que quand je clique sur le lien qu'il m'envoie au fichier désiré.
Merci beaucoup
En fait ça devrait marcher mais vu qu'il y a
Ce serait dommage de mettreCode:With Sheets("Base de donnée")
Code:UserForm2.Bigram = Sheets("base de données").Range("A" & Lig).Value
Mais si t'as l'gosier, Qu'une armure d'acier, Matelasse. Brassens, Le bistrot.
Je ne pense pas que ce soit possible, à mon avis il faut un bouton à côté de la listbox qui ouvre un navigateur avec l'adresse en paramètre.
Je ne me rappelle plus quelle instruction utiliser pour lancer une application.
Mais si t'as l'gosier, Qu'une armure d'acier, Matelasse. Brassens, Le bistrot.
C'est possible à condition (ce n'est peut-être pas la seule solution) de mettre un bouton qui va exécuter un shellExecute sur le contenu de la zone "Lien".
Dans module1, tu colles le codes ci-dessous :
et dans ton bouton ce code :Code:Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Public Const SW_SHOWNORMAL = 1
Code:Private Sub CommandButton1_Click() Dim ret As Long Dim strURL As String strURL = Lien.Text ret = ShellExecute(hwnd, "Open", strURL, ByVal 0&, 0&, SW_Normal) If ret < 32 Then MsgBox "Une erreur s'est produite lors de l'activation de la cible" & vbCrLf _ & strURL, vbOKOnly + vbExclamation End Sub
