XL 2010 Qui pourrait m'aider a codifier mes Userform [Résolu]

BLACKHAYES

XLDnaute Impliqué
Bonjour a tous; au forum,

Je viens de créer un petit fichier de gestion de parc véhicule.
J'ai créer le tableau BDD
Les UserForm pour renseigner la BDD
Quelques codes que je connais.

Mais ne parlant pas du tout anglais et étant toujours novice en VBA, maintenant je coince sur les codes pour que mes userform aillent chercher les valeurs dans la BDD et ou faire les modifs nécessaires

Il n'y a qu'un seul bouton qui ait un MDP au clic (le mot de passe est "3") c'est celui qui se trouve en haut a droite du UserForm3 sous le nom de "Maintenance", il sert a ouvrir le tableur pour y apporter des modifs structurel si nécessaire.

Dans UserForm1, je souhaiterais qu'une fois un des critère recherche est valider, les données de ce critère s'affiche dans les textBox du dessous.
Même chose dans l'userform de modification.

Je viens donc vous demander très gentillement si quelqu'un sur ce forum pourrait m'aider a codifier mes userform et y apporter des modifs si besoin ait bien sur.

Je vous joins le fichier
Je vous remercie d'avance
BLACKHAYE's
 

Pièces jointes

  • Gestion OTS.xlsm
    337.9 KB · Affichages: 66
Dernière édition:

Dranreb

XLDnaute Barbatruc
Oui ben mettez au début de la CBnVoirAppli_Click une :
VB:
If InputBox("Mot de passe", "Voir tableau") <> "1" Then Exit Sub
Ça vous savez le faire, normalement…

En ajoutant dans la UserForm_QueryClose l'instruction spécifiée en Edit poste précédent ça devrait quitter comme vous dites. Quitter l'application serait dangereux s'il y a un autre classeur ouvert dans la même fenêtre d’application. Mais s'il n'y a que lui, sa fermeture devrait suffire à la quitter.
 

BLACKHAYES

XLDnaute Impliqué
Et bien Voila Dranreb,
Tout fonctionne comme je le souhaitais.
Alors je vous remercie grandement pour votre aide et implication dans mon projet.

Vous m'avez été d'une aide précieuse.
Et je ne peux que vous remercier et m'excuser d'avoir été un tantinet pointilleux dans mes demandes.
Bravo
et a bientôt j’espère
 

Dranreb

XLDnaute Barbatruc
Je n'en voie pas bien l'utilité mais essayez ça dans ThisWorkbook :
VB:
Private Sub Workbook_Open()
Application.Visible = False
With Feuil1.ListObjects("TabBDD").Sort
   .SortFields.Clear
   .SortFields.Add Key:=[TabBDD[Site]], SortOn:=xlSortOnValues, Order:=xlAscending, _
      DataOption:=xlSortNormal
   .Header = xlYes
   .MatchCase = False
   .Orientation = xlTopToBottom
   .SortMethod = xlPinYin
   .Apply: End With
UFmGestVéhic.Show
End Sub
 

Dranreb

XLDnaute Barbatruc
Je suppose que sur une ligne existante le site risque de changer ?…
Ou sinon, pourquoi est-ce que ça ne présenterait aucun intérêt de rechercher dans un site ?
Il suffirait de remplacer la TBxSite par une CBxSite et d'en ajouter la prise en charge par CL !
 

Dranreb

XLDnaute Barbatruc
Mais vous pouvez le faire vous même: c'est très simple !
Lorsque vous aurez remplacé la TextBox par une ComboBox, il suffira de supprimer toutes les instructions qui mentionnaient TBxSite, car c'est CL qui fera le boulot, après ajout dans l'UserForm_Initialize d'une instruction CL.Add Me.CBxSite, 4
Ça implique seulement que ce site ne change plus sur une ligne existante.
 

Dranreb

XLDnaute Barbatruc
Bonjour.
J'avoue que je ne sais pas. Je n'ai jamais essayé d'imprimer un UserForm, encore moins un contrôle. Je pense que je m'orienterais vers l'impression d'une feuille dédiée où j'aurais affecté sa propriété List à la Propriété Value d'une expression Range représentant une plage de cette feuille.
 

Discussions similaires

Réponses
11
Affichages
486

Statistiques des forums

Discussions
311 709
Messages
2 081 769
Membres
101 816
dernier inscrit
Jfrcs