Discussion :

[ooyeah]

Bonjour,

J'ai un formulaire qui est composé avec des textbox, combobox et autres propriétés. Je voudrai pouvoir faire un boucle dans laquelle je pourrais récupérer automatiquement le nom de chacune de ces textbox,... afin de les placer dans un tableau de string. Est-ce possible, si oui quelq'un pourrait-il me donner une piste svp?


Merci d'avance

[Invité]

Bonjour

Il faut faire un parcours de la collection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then
            ctrl.Name
        End If
    Next ctrl

Il faut donc faire une boucle de ce type pour récupérer les noms des textbox

A l'intèrieur de ta boucle met un tableau

Je viens d'écrire le code à la main, pas testé de tête

Starec

[ooyeah]

Merci je n'ai vu ceci qu'apres avoir posté le message, désolé pour le dérangement.

[dilkas]

C'est pas grave, je vais profiter de ton poste car j'ai un peu une question similaire...

Sur la base du code de Starec qui marche très bien pour parcourir les contrôles d'une collection, je voudrais en connaitre un peu plus sur l'utilisation de TypeOf.
Quand je suis en debug pas à pas et que j'affiche les variables locales, j'ai des types du genre Variant/Object/ListBox ; Variant/Object/TextBox ; Variant/Object/OptionButton ; etc ...
Mais Excel ne détecte pas le type ListBox, TextBox, OptionButton... Comment contourner ce problème ou bien quelle est l'explication ?

Merci

[Invité]

Re

c'est une transposition d'un code VB et Access, pour Excel les contrôles font partie de MSForms, il faut donc transformer le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MsForms.TextBox Then
            ctrl.Name
        End If
    Next ctrl

Starec

[dilkas]

Et ben voilà l'explication que j'attendais !!!
Le code marche nickel pour Excel aussi !

Faut le savoir !

[ooyeah]

Merci, je vais l'esayer