filtrer par type d'objet

mromain

XLDnaute Barbatruc
Bonjour le forum

J'aimerai savoir quelle fonction permet de vérifier le type d'un objet.

je vous ai mis un petit exemple où j'affiche tous les noms des contrôles d'un UF.
j'aimerai n'afficher que le nom des contrôles de type TextBox.

voici le code

Code:
Option Explicit

Private Sub CommandButton1_Click()

Dim curCtrl As Control
Dim nameList As String

For Each curCtrl In Me.Controls
    'je souhaiterai filtrer ici en fonction du type de control
    nameList = nameList + curCtrl.Name + vbNewLine
Next curCtrl

MsgBox nameList

End Sub

et mon fichier en PJ.


Merki
 

Pièces jointes

  • Classeur1.xls
    26 KB · Affichages: 45
  • Classeur1.xls
    26 KB · Affichages: 43
  • Classeur1.xls
    26 KB · Affichages: 43
G

Guest

Guest
Re : filtrer par type d'objet

Bonjour Romain,
bonjour à toutes et tous,

voici la boucle for corrigée:

Code:
For Each curCtrl In Me.Controls
    'je souhaiterai filtrer ici en fonction du type de control
    [COLOR=red]If TypeName(curCtrl)="TextBox" Then[/COLOR]  nameList = nameList + curCtrl.Name + vbNewLine
Next curCtrl
Bonne journée
 

Discussions similaires

Statistiques des forums

Discussions
312 896
Messages
2 093 388
Membres
105 716
dernier inscrit
jrmdprt