Userform

A

Alexandre

Guest
Bonjour encore à toutes et à tous.

N'étant pas du tout spécialiste des Userforms, je voulais savoir si il était possible d'en créer un sur la feuille2 de façon à renseigner différents champs (probablement une vingtaine) qui, une fois validés, serait insérés automatiquement dans la base de données qui se situerait sur cette même feuille.

De plus, la validation classerait automatiquement par ordre alphabétique les données (en se basant sur la colonne A). Cela me permettrait de verrouiller la feuille pour éviter toute modification hormis les entrées définies par le Userform.

Compliqué ? Pour moi, oui.

Encore une fois, merci à toutes et à tous.


Alexandre
 

ZZR09

XLDnaute Occasionnel
Bonjour Alexandre,

A la vue de ce que tu écris, je pense ne pas trop m'engager en te disant que non seulement c'est possible mais, en plus, si tu fais un descriptif plus précis de ce que tu veux - voire même un fichier joint (zippé et de moins de 50ko)- tu l'auras avant la fin de soirée !

A+
;)
 

jeanpierre

Nous a quitté
Repose en paix
Bonsoir Alexandre, ZZR09 et re le forum,

Vois ce fil et ma réponse,
Certe le code n'est peut-être pas le meilleur qui soit, car il y avait, dans le fichier d'origine, une particularité et avant que je ne la découvre, des erreurs en permanence, j'ai donc conservé sur ce fichier la dernière version. Pas eu le temps de revenir en arrière.
Tu l'adaptes à ton souci.

Lien supprimé

Ensuite, pour ta seconde question, c'est possible, mais seulement après... pour ne pas recommencer dix fois....

Bon courage à toi

Jean-Pierre
 

myDearFriend!

XLDnaute Barbatruc
Bonjour Alexandre, ZZR09, jeanpierre,

A toutes fins utiles, ci-joint un exemple simple de chargement et modification d'une base de données à l'aide d'un Userform...

Pour la 2ème question, il convient simplement d'ajouter quelque chose comme ça à l'issue de la mise-à-jour de cette base :
Dim Plage As Range
      Set Plage = ActiveSheet.UsedRange
      Plage.Sort Key1:=Plage.Range('A1'), Order1:=xlAscending, Header:=xlYes
Cordialement, [file name=mDF_EnrgUSF.zip size=15519]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_EnrgUSF.zip[/file]
 

Pièces jointes

  • mDF_EnrgUSF.zip
    15.2 KB · Affichages: 20
  • mDF_EnrgUSF.zip
    15.2 KB · Affichages: 22
  • mDF_EnrgUSF.zip
    15.2 KB · Affichages: 22

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour Alexandre, ZZR09, JeanPierre, le Forum

Oui JP, ton travail pour JMR est assez interressant mais j'ai peur que notre ami se perdre avec tes Variables Alphabétiques (Non Déclarées, coquin !)

Je propose plus simple dans le premier de la série des Démos 'Rudiment Basic UserForm' je conseille ce Fichier à Alexandre

Lien supprimé

Pour la seconde question, tu devrais pouvoir t'en sortir avec un tri sur la Feuille assez simple avec l'enregistreur de macros.

Sub Macro1()
   
Sheets('Feuil1').Select
       
    Range('A1').Sort Key1:=Range('A2'), Order1:=xlAscending, _
                                        Header:=xlYes, _
                                        Orientation:=xlTopToBottom
End Sub

Pour la Protection, fais une recherche à 'UserInterface' sur ce Forum, tu devrais aussi trouver ton bonheur.


Bonne découverte
[ol]@+Thierry[/ol]
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Salut Didier

Désolé je ne t'avais pas venir vu sur ce coup là !

et donc dans la lignée des Rudiments Basics, vu que tu t'attaques à d'autres contrôles voici :

USF-Rudiments-Basic-OptionButton.zip

Lien supprimé

USF_ListBox_Rudiments_Basics_V02.xls.zip

Lien supprimé

Lien supprimé

Il y en a plein d'autres, mais ce devrait déjà être un bon début pour Alexandre.

Bonne Soirée
[ol]@+Thierry[/ol]
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson