Combobox et option

[Hélène]

Bonsoir le forum

Je tente de mettre en plce une application de location de pret de dvd et cd

J'ai des soucis pour alimenter mes textbox et combobox le tout reliés a des optionbuttons

J'ai fait un résumé de mon application (taille oblige)
J'ai regardé plusieurs exemples de combobox mais je ne sais pas lequel utiliser chacun y allant de sa propre façon pour les alimenter avec des raccourcis et des abréviations. Je me perds
Si quelqu'un peut me dépanner cela me permettrait d'avancer

Merci de vous intéresser à mon cas

Bonne soirée àa tous et toutes

Hélène [file name=LISTING.zip size=34585]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/LISTING.zip[/file]

 

[porcinet82]

Salut Hélène,

Quel est ton problème au juste? Je ne vois pas tres bien pour quelle partie on doit te filer un coup de main puisqu'il n'y a aucun code dans ton fichier.

Donne nous quelques info supplémentaires.

@+

 

[Hélène]

Bonsoir Porcinet82

Je voudrais être aidée pour alimenter toutes mes combobox de la partie de gauche et sur la partie de droite à partir des options dvd ou cd alimenter les textboxs et alimenter le combobox emprunteur

Dans un premier temps quelle méthode adopter pour alimenter des combobox sans passer par la fenetre des propriétés et les row sources
Dans un second temps si je sélectionne cd : comment alimenter la combobox avec les données de la feuille cd et en cliquant sur un titre faire apparaitre dans les textbox les informations le concernant
ex feuille cd
titre bruel genre pop nbcd 2 support cd
titre pierre genre metal nbcd 1 support cd
feuille dvd
titre les gendarmes genre comedie nbdvd 1 support dvd

Si je selectionne cd je veux avoir dans la combobox bruel et pierre
si je sélectionne pierre je veux dans les textbox les informations le concernant

J'espère être assez claire sinon je me tiens à votre dispo

Bonne soirée
Hélène

 

[porcinet82]

Salut Hélène,

Je te propose tout d'abord de réaliser 2 usf plutot qu'un. C'est à dire que dans le premier, tu auras ta partie saisie, et sur le second ta partie emprunt.

Concernant la partie saisie, regarde dans le fichier joint, tu devrais trouver ton bonheurn je me suis permis de te faire complétement le code, si tu as des questions ou autres n'hesite pas.

[file name=Helene.zip size=41732]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Helene.zip[/file]

Pour la seconde partie, le processus est le meme donc je te laisse essayer de la faire. Si tu as le moindre soucis qui s'avère insurmontable, refais signe.

@+

 

[helene]

Bonsoir le forum et Porcinet82

Merci beaucoup pour cette aide
Je vais tenter de faire l'autre toute seule sinon je ferais un petit signe ...

Merci pour tout et bonne soirée

Hélène

 

[Hélène]

Bonsoir

J'ai un peu avancé mais je coince

J'ai rempli la combobox de l'empruntereur mais je n'arrives pas à rempli celles de cd dvd d'après les options 3 et 4
et remplir les textbox à partir de la combobox j'avoue être à la rue totale

Merci de m'aider à avancer

Bonne soirée à tous et toutes

Hélène [file name=CopiedeHelene.zip size=48954]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CopiedeHelene.zip[/file]

 

[porcinet82]

salut Hélène,

Et bien je vois que tu n'as pas réussit a tout faire, mais au moins, tu as essayer, ca change de certains qui attendent que tout lleur soit fait.

Donc je t'ai fait les modif qui vont bien, regarde et n'hesite pas si tu as un soucis ou des questions. Tu verras que je ne t'ai pas tout fait, je t'ai modifier le code pour les optionbutton fonctionne, ainsi que la première combo et la premiere textbox, je te laisse le soin de faire le reste.

[file name=Helene_v2.zip size=44209]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Helene_v2.zip[/file]

Tiens moi au courant

@+

 

[Hélène]

Bonjour le forum et Porcinet82

Merci beaucoup pour ton aide
Je vais poursuivre et j'espère arriver à aller jusqu'au bout toute seule

Merci pour tout

Hélène

 

[Hélène]

Bonjour le forum et Porcinet82

J'ai bien avancé sur mon projet j'ai réussi à tout faire et même ajouter une autre catégorie

Mon soucis est maintenant de pouvoir afficher des messages d'alerte
USF 1 Date : Date non saisie
Titre : titre non saisi
Ggenre : genre non sélectionné
Nb cd : nb cd non sélectionné
Support : support non sélectionné

USF2 Date : date non saisie
Titre : titre non saisi
Emprunteur : emprunteur non sélectionné

Je voudrais que l'utilisateur ne puisse pas valider tant que tous ces champs ne sont pas renseignés avec pour chaque oubli le message en adéquation
Je voudrais aussi que lorsque tous les champs sont valides que le usf se vide de ses données pour faire une autre saisie

Merci de votre aide à tous et toutes

Dossier ci joint

Bonne soirée

Hélène [file name=HELENE.zip size=30434]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/HELENE.zip[/file]

 

[porcinet82]

Salut Hélène,

Désolé de ne pas t'avoir répondu avant mais j'avais un projet tutoré a finir. Je profite donc entre la fin de celui-ci et la soutenance pour te répondre vite fais.

Pour tes contrôles, ce n'est pas difficile, il te suffit de rajouter dans le code de ton bouton de validation des controles du genre :

If combobox1.value='' then
  msgbox 'Veuillez remplir le champ ....'
  exit sub
End if

A noter que tu peux peut etre utiliser une boucle en tout cas pour les textbox (a voir pour les combo, je ne peux pas tester j'ai pas excel sur ce pc) si tu ne les as pas renommés, ce qui te donnerait :

For i=1 to nb_textbox
  if controls('textbox' & i).value='' then
     msgbox 'veuillez remplir ...'
     exit sub
  end if
next i

Concernant ton petit soucis pour vider ton USF, je te propose d'aller voir Lien supprimé
pour voir si tu trouves ton bonheur, mais je ne puis sur que cela convienne, donc je te propose au cas ou le code suivant (a placer du code de ton bouton valider):

unload userform1
userform1.show

Tiens moi au courant si tu as un soucis, je serais de retour sur le forum lundi normalement.

@+

 

[Hélène]

Bonjour le forum et Porcinet82

Voici ma solution :

Private Sub CommandButton1_Click()


If UserForm1.cd = False And UserForm1.dvd = False And UserForm1.dvdgrave = False Then
MsgBox 'Veuillez sélectionner cd, dvd ou dvd grave', vbInformation, 'DVDTHEQUE'
Exit Sub
End If
If UserForm1.TextBox1 = '' Then
MsgBox 'Veuillez saisir la date', vbInformation, 'DVDTHEQUE'
UserForm1.TextBox1.SetFocus
Exit Sub
End If


If UserForm1.TextBox2 = '' Then
MsgBox 'Veuillez saisir le titre du film', vbInformation, 'DVDTHEQUE'
UserForm1.TextBox2.SetFocus
Exit Sub
End If


If UserForm1.ComboBox1.ListIndex = -1 Then
MsgBox 'Veuillez sélectionner le genre du film', vbInformation, 'DVDTHEQUE'
UserForm1.ComboBox1.SetFocus
Exit Sub
End If

If UserForm1.ComboBox2.ListIndex = -1 Then
MsgBox 'Veuillez sélectionner le nombre de cd ', vbInformation, 'DVDTHEQUE'
UserForm1.ComboBox2.SetFocus
Exit Sub
End If
If UserForm1.ComboBox3.ListIndex = -1 Then
MsgBox 'Veuillez sélectionner le support', vbInformation, 'DVDTHEQUE'
UserForm1.ComboBox3.SetFocus
Exit Sub
End If

If dvd = True Then
Sheets('dvd').Range('c65536').End(xlUp).Offset(1, 0).Value = TextBox1.Value
Sheets('dvd').Range('d65536').End(xlUp).Offset(1, 0).Value = TextBox2.Value
Sheets('dvd').Range('e65536').End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Sheets('dvd').Range('f65536').End(xlUp).Offset(1, 0).Value = ComboBox2.Value
Sheets('dvd').Range('g65536').End(xlUp).Offset(1, 0).Value = ComboBox3.Value
ElseIf cd = True Then
Sheets('cd').Range('c65536').End(xlUp).Offset(1, 0).Value = TextBox1.Value
Sheets('cd').Range('d65536').End(xlUp).Offset(1, 0).Value = TextBox2.Value
Sheets('cd').Range('e65536').End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Sheets('cd').Range('f65536').End(xlUp).Offset(1, 0).Value = ComboBox2.Value
Sheets('cd').Range('g65536').End(xlUp).Offset(1, 0).Value = ComboBox3.Value
ElseIf dvdgrave = True Then
Sheets('DVDGRAVE').Range('c65536').End(xlUp).Offset(1, 0).Value = TextBox1.Value
Sheets('DVDGRAVE').Range('d65536').End(xlUp).Offset(1, 0).Value = TextBox2.Value
Sheets('DVDGRAVE').Range('e65536').End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Sheets('DVDGRAVE').Range('f65536').End(xlUp).Offset(1, 0).Value = ComboBox2.Value
Sheets('DVDGRAVE').Range('g65536').End(xlUp).Offset(1, 0).Value = ComboBox3.Value
Else
'MsgBox 'Veuillez choisir entre cd, DVDGRAVE et dvd'
Exit Sub
End If
cd = False
dvd = False
dvdgrave = False
TextBox1 = ''
TextBox2 = ''
ComboBox1 = ''
ComboBox2 = ''
ComboBox3 = ''


End Sub

Est elle fiable ?

Merci en tout cas pour toute l'aide déjà apportée
Bonne journée et bon week end

Hélène

 

[porcinet82]

Salut Hélène,

Ouai ton code ne pas l'air mal mais je ne suis pas un expert dans l'optiimisation de code, j'utiliserai cependant a la fin un With, ce qui allegerait un peu le code, et qui donnerait quelques chose du genre :

With Sheets('dvd')
  .Range('c65536').End(xlUp).Offset(1, 0).Value = TextBox1.Value
  'le reste du code pour cette feuille
End with

Content que tu ais réussit a t'en sortir comme une grande, j'espère que tu as appris plein de truc.

@+