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
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]
 

Discussions similaires

Statistiques des forums

Discussions
300 715
Messages
1 986 637
Membres
209 554
dernier inscrit
Khaay