Un Exemple illustrant l'utilisation du contrôle ProgressBar.

Testé sous XL97/XL2000/XL2002 (Windows XP ou 2000).


Tutoriel: Utiliser les contrôles dans un UserForm, en VBA Excel.

Lister les fichiers d'un répertoire dans un contrôle ListView.

Testé sous XL97/XL2000/XL2002 (Windows XP ou 2000).


Tutoriel: Utiliser le contrôle ListView en VBA Excel.

Il est possible d'animer l'affichage d'un UserForm.
Cet exemple affiche l'USF progressivement lors de son lancement.

Utilisez un contrôle ChartSpace dans l'UserForm, afin de créer le graphique dynamiquement et d'interagir avec celui-ci.
Le complément Microsoft Office Web Components (Composants Web) est une collection de contrôles pour modèles d'objets composants (Component Object Model ou COM) permettant de publier sur le Web des feuilles de calcul, des graphiques et des bases de données. Ces contrôles peuvent aussi être utilisés dans vos classeurs Excel.

Complément d'Office 2003: composants Web Office.

Office XP Tool: Web Components.

Placez un contrôle TreeView et un bouton dans un UserForm pour visualiser la structure du fichier xml.

Nécessite d'activer la référence Microsoft XML, vx.x.

Option Explicit
Dim oDoc As MSXML2.DOMDocument


Private Sub CommandButton1_Click()
    Set oDoc = New DOMDocument
    
    oDoc.async = False
    oDoc.Load "C:\NomFichier.xml"
    
    TreeView1.Nodes.Clear
    AddNode oDoc.DocumentElement
End Sub

Private Function AddNode(ByRef oElem As MSXML2.IXMLDOMNode, _
        Optional ByRef oTreeNode As MSComctlLib.Node)
    Dim oNewNode As MSComctlLib.Node
    Dim oNodeList As MSXML2.IXMLDOMNodeList
    Dim i As Long
      
    If oTreeNode Is Nothing Then
        Set oNewNode = TreeView1.Nodes.Add  'Creation du noeud racine
        oNewNode.Expanded = True
        Else
        Set oNewNode = TreeView1.Nodes.Add(oTreeNode, tvwChild) 'Ajout d'un noeud enfant
        oNewNode.Expanded = True
    End If
      
    Select Case oElem.NodeType
        Case MSXML2.NODE_ELEMENT 'type Element
        oNewNode.Text = oElem.nodeName & " (" & GetAttributes(oElem) & ")"
        Set oNewNode.Tag = oElem
        
        Case MSXML2.NODE_TEXT 'type texte
        oNewNode.Text = "Text: " & oElem.NodeValue
        Set oNewNode.Tag = oElem
        
        Case MSXML2.NODE_CDATA_SECTION 'type Cdata
        oNewNode.Text = "CDATA: " & oElem.NodeValue
        Set oNewNode.Tag = oElem
        
        Case Else
        oNewNode.Text = oElem.NodeType & ": " & oElem.nodeName
        Set oNewNode.Tag = oElem
    End Select
      
      
    Set oNodeList = oElem.ChildNodes 'boucle récursive pour ajouter tous les noeuds enfants
    
    For i = 0 To oNodeList.Length - 1
        AddNode oNodeList.Item(i), oNewNode
    Next i
End Function

Private Function GetAttributes(ByRef oElm As MSXML2.IXMLDOMNode) As String
    Dim sAttr As String
    Dim i As Long
    
    sAttr = ""
    
    For i = 0 To oElm.Attributes.Length - 1 'boucle sur tous les attributs
        sAttr = sAttr & oElm.Attributes.Item(i).nodeName & "='" & _
            oElm.Attributes.Item(i).NodeValue & "' "
    Next i
    
    GetAttributes = sAttr
End Function

Cet exemple rend le Frame d'un UserForm transparent afin de voir l'image située en arrière plan.

Le classeur montre comment identifier la prise ou la perte de focus du contrôle TextBox, dans un UserForm.

Un deuxième exemple montre comment procéder si les TextBox sont placés dans des Frames.

Le complément Microsoft Office Web Components (Composants Web) est une collection de contrôles pour modèles d'objets composants (Component Object Model ou COM), permettant de publier sur le Web des feuilles de calcul, des graphiques et des bases de données.

Complément d'Office 2003 : composants Web Office
Office XP Tool: Web Components


Le fichier Zip contient deux classeurs:
Une version Excel2007-OWC11
Une version Excel2002-OWC10

La démo utilise le contrôle PivotTable afin de créer et manipuler un tableau croisé dynamique dans un UserForm.
Dans cet exemple, les données sources sont stockées dans la Feuil2 du même classeur, mais vous pouvez facilement l'adapter et utiliser une source externe (table Access, fichier texte, feuille d'un classeur Excel fermé ...)


Le tutoriel associé.

Cette démo permet de paramétrer un niveau de transparence (de 0 à 100%) dans un UserForm.

La procédure remplit chaque Combobox en fonction de la sélection précédente, et sans doublon:
La sélection du ComboBox1 définit le contenu du ComboBox2. La sélection du ComboBox2 définit le contenu du ComboBox3 ?etc...