Re User et base de données

  • Initiateur de la discussion Initiateur de la discussion Max Diack
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

Max Diack

Guest
Bonjour à tous les membres du forum, je vous présente mes meilleurs voeux pour l'année 2005.
A mon dernier envoie j'avais oublié complétement la piéce jointe.
Depuis ce jour j'ai progrésser sur le projet. Mais cependant je reste toujours conffronté à quelques soucis.

- Le Textbox qui affiche la date renvoie la date actuelle : je voudrai le remplacer par un Combobox pour pouvoir choisir la date (je n'arrive pas à écrire ce code).

- Ensuite j'avais l'ittention de créer un troisiéme bouton pour ajouter un enregistrement à la base de donner sans pour autant quitter le user. Par défaut j'ai trouvé une parade peu pratique (une fois q'on valide les données le user se ferme et se réouvre automatiquement.)

Pour la forme du user et une trés grande partie des codes sont issues de modèles déja réalisés par @Thierry.
 

Pièces jointes

Max

Ton premier problème je n'ai pas compros, sinon tu pourrais utiliser le controle calendar.

Pour ton deuxième soucie :

Recopie ce code, il contien les modifications a faire, se sera plus rapide que de te dire ce qu'il faut enlever et rajouter:

Option Explicit
'Réalisé par Max Diack Baye Fallou Serigne Massamba
Dim MaPlage As Integer

Private Sub userform_initialize()
Dim Var1 As Integer
Dim Var2 As String
Var1 = Sheets("Produits").Range("A65536").End(xlUp).Row
Var2 = Sheets("Produits").Range("A2:A" & Var1).Address
ListBox1.RowSource = "Produits!" & Var2
End Sub

Private Sub listbox1_Click()
MaPlage = UserForm1.ListBox1.ListIndex + 2
Label1 = Format(Sheets("Produits").Range("B" & MaPlage).Value, "#,##0.00")
Label2 = Format(Sheets("Produits").Range("C" & MaPlage).Value, "#,##0.00")
End Sub
Private Sub CheckBox1_change()
If TextBox3 = "" Then
MsgBox "Vous devez mettre une date SVP"
End If
Label3 = Format((TextBox1 * Label1) + (TextBox2 * Label2), "0#")
End Sub


Private Sub CommandButton1_Click()
ActiveCell.Value = TextBox3.Value
ActiveCell.Offset(0, 1).Value = ListBox1
ActiveCell.Offset(0, 2).Value = Val(TextBox1)
ActiveCell.Offset(0, 3).Value = Val(TextBox2)
ActiveCell.Offset(0, 4).Value = Val(Label3.Caption)

Range("A65536").End(xlUp).Offset(1, 0).Select
userform_initialize
End Sub

Private Sub Commandbutton3_click()
Unload UserForm1
End Sub

Private Sub textbox3_change()
TextBox3.Value = Format(Now, "DD/MM/YYYY")
End Sub

Salut, G'Claire
 
Bonsoir Max Diack, bonsoir G'Claire,

Tous mes vœux pour cette année qui commence...

Ça tombe bien que tu parles de Controle Calendar G'Claire car j'ai galéré comme un malade avec un bug systématique dès que le mot Format apparaissait dans le code... Heureusement à un moment donné la boîte de dialogue Référence - VBAproject s'est ouverte et il y avait une référence nommée Manquant:blabla Calendar ver. blabla (je ne me souviens plus des termes exacts). J'ai décoché cette case et je n'ai plus eu de bug...

Max, en pièce jointe je te propose une version modifié avec une ComboBox à la place de la TextBox pour les date.

À plus,

Robert
 
bonjour à tous,
bonne année et bonne santé.

j'ai une question qui concerne l'utilisation de base de données.

j'ai un fichier exel sous forme d'un formulaire, envoyé à des personnes en pièce jointe. que chacun doit remplir.
comment faire pour mettre un lien entre ces information de type liste check box, caractère, date, etc et la base de données.

c'est vraiment urgent.

merci d'avance à tous
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour