Vous devez être membre et vous identifier pour publier un article.
Les visiteurs peuvent toutefois commenter chaque article par une réponse.

Modifier la clé de Windows XPAccélérer l'arrêt du système [Windows XP/2000/2003]

Liste déroulante modifiable en VBA

Inhaltsverzeichnis
Astuces de l’Infobrol (Développement)Article publié le 27/10/2005 10:11:20


Les contrôles



Nom de la ComboBox = Constructeur
Nom du CommandButton "Valider Choix" = OK
Nom du CommandButton "Annuler" = Annuler


Le code



Code lançant l'ouverture de la boîte de dialogue 
  1. Sub AfficheListeDeroulanteModifiable()
  2.       ListeDeroulanteModifiable.Show
  3. End Sub


Code d'initialisation du formulaire 

  1. Private Sub UserForm_Initialize()
  2.         Me.Constructeur.RowSource = "Feuil1!A1:A" & Sheets("Feuil1").Cells(1, 1).End(xlDown).Row 
  3. End Sub


Code d'activation du formulaire 

  1. Private Sub UserForm_Activate()
  2.         Me.Constructeur.ListIndex = -1 
  3. End Sub


Code des boutons

1 / Bouton OK 
  1. Private Sub OK_Click()
  2.       Me.Hide
  3.       If Me.Constructeur.ListIndex = -1 Then
  4.             Sheets("Feuil1").Cells(1, 1).End(xlDown).Offset(1, 0).Value = Me.Constructeur.Value
  5. ' Tri de la plage de données suite à l'ajout d'un élément
  6.             Sheets("Feuil1").Range([A1], [A1].End(xlDown)).Select
  7.             Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
  8.                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  9.       Else
  10.       End If
  11. ' Mise en place de la valeur choisie en D2
  12.       Sheets("Feuil1").Cells(2, 4).Value = Me.Constructeur.Value
  13. End Sub

2 / Bouton Annuler 
  1. Private Sub Annuler_Click()
  2.       ListeDeroulanteModifiable.Hide
  3. End Sub




Avatar :: sysprep Un article de sysprep

Source : ericrenaud.free.fr


Commenter l'article

Modifier la clé de Windows XPAccélérer l'arrêt du système [Windows XP/2000/2003]

Sélection, tri et recherche d'articles
FILTRER :
TRIER :1er critère : 2e critère :
CHERCHER : Dans les titres Dans le contenu


[Afficher les liens en fonction des critères du formulaire ci-dessus]

Deutsche Übersetzung

Sie haben gebeten, diese Seite auf Deutsch zu besuchen. Momentan ist nur die Oberfläche übersetzt, aber noch nicht der gesamte Inhalt.

Wenn Sie mir bei Übersetzungen helfen wollen, ist Ihr Beitrag willkommen. Alles, was Sie tun müssen, ist, sich auf der Website zu registrieren und mir eine Nachricht zu schicken, in der Sie gebeten werden, Sie der Gruppe der Übersetzer hinzuzufügen, die Ihnen die Möglichkeit gibt, die gewünschten Seiten zu übersetzen. Ein Link am Ende jeder übersetzten Seite zeigt an, dass Sie der Übersetzer sind und einen Link zu Ihrem Profil haben.

Vielen Dank im Voraus.

Dokument erstellt 13/09/2004, zuletzt geändert 26/10/2018
Quelle des gedruckten Dokuments:https://www.gaudry.be/de/ast-rf-251.html

Die Infobro ist eine persönliche Seite, deren Inhalt in meiner alleinigen Verantwortung liegt. Der Text ist unter der CreativeCommons-Lizenz (BY-NC-SA) verfügbar. Weitere Informationen auf die Nutzungsbedingungen und dem Autor.