filtrer par type d'objet

mromain · 12 Juin 2008

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

kjin · 12 Juin 2008

Re : filtrer par type d'objet

Bonjour,
Essaies ceci :

Private Sub CommandButton1_Click()
Dim CurCtrl As Control
Dim nameList As String
For Each CurCtrl In Me.Controls
If TypeName(CurCtrl) = "TextBox" Then
nameList = nameList + CurCtrl.Name + vbNewLine
End If
Next CurCtrl
MsgBox nameList
End Sub

Cliquez pour agrandir...

A+
kjin

Guest · 12 Juin 2008

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

skoobi · 12 Juin 2008

Re : filtrer par type d'objet

Bonjour,

pour cela utilise la fonction TypeName:

TypeName(curCtrl).

Bonne journée.

Edit: oupppsss, collision, bonjour Hasco, kjin.

mromain · 12 Juin 2008

Re : filtrer par type d'objet

bonjour kjin, bonjour Hasco

C'est exactement ce que je voulais faire.
Merci pour ces réponses rapides et à bientôt

A+

filtrer par type d'objet

mromain

XLDnaute Barbatruc

Pièces jointes

kjin

XLDnaute Barbatruc

Guest

Guest

skoobi

XLDnaute Barbatruc

mromain

XLDnaute Barbatruc

Discussions similaires