Re User et base de données

[Max Diack]

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.

 

[G'Claire]

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

 

[G'Claire]

Max, le forum, re

Voila, je te donne une soulution, a voir fichier joint.

Bye, G'Claire

 

[Robert]

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

 

[G'Claire]

Re,

il me semble qu'il faut avoir instalé Access, pour avoir ce controle, ou le téléchargé je ne sais plus ou, a voir pour infos.

G'Claire

 

[Robert]

Re à tous,

Merci du tuyau G'Claire car je n'ai pas pu utiliser ton fichier à cause de ça.

À plus,

Robert

 

[Robert]

Re...

Encore moi ! Je viens de me rendre compte que j'avais oublié la pièce jointe dans la première réponse.

Reparación...

À plus,

Robert

 

[G'Claire]

Max, Robert le forum

Voici un lien, si j'ai un peu compris, car pas trés fort moi en english, pour télécharger le control calendar

<http://www.sunscrip.com/OfficeXP.htm>

Salut, G'Claire

 

[Max Diack]

Bonjour à tous les membres du forum .
Je vous remercie pour votre aide qui m'a été précieux.
Plus particuliérement à Robert et G Claire.

Encore merci.

 

[sam]

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