Modifier petit code pour afficher nombre de "controls" Fermé

Question

Bonjour a toutes et tous, forum bonjour 

Configuration: Windows 7 / Internet Explorer 9.0

Excel 2007 VBA windows 7 32 bits


je souhaiterai svp compter le nombre de controls (Tous) de mon Userform1

et l'afficher dans l'ordre dans la colonne (S) a partir de S1 

j'ai bidouiller ce petit code mais ca marche pas bien pour l'ordre d'affichage.

Merci a vous pour votre temps et bonne journée 

Cdlt Ray

'Compte le nombre de contrôles dans l'userform(1)Dim Ctrl As Control, Cpt As LongCpt = 1For Each Ctrl In Me.ControlsCells(Cpt, 19).Value = Ctrl.NameRange("S1").Value = Ctrl.Name   Cpt = Cpt + 1Next Ctrl

Zoul67 · Answer

Bonjour Raymond,

Ceci est faux : 
Cells(Cpt, 19).Value = Ctrl.Name
Range("S1").Value = Ctrl.Name
car S1 est écrasé à chaque passage de boucle.
Il ne faut conserver que la première ligne.
Ensuite, tu parles d'ordre... Quel ordre ? alphabétique ? TabIndex ? position dans le UserForm ?

A+

dudulleray · Answer

Salut Zoul67,

Merci bien pour ta réponse

ça démarre mal, LOL, mais, je ne sais pas faire autrement.

Ceci est faux : Cells(Cpt, 19).Value = Ctrl.NameRange("S1").Value = Ctrl.Name


Bon je souhaiterai svp juste savoir le nombre de controls tout confondu que j'ai dans mon USF

Quand je dis dans l'ordre c'est tout simplement compter tous le Labels puis les 

Textboxs les Frames etc etc

J'avais vu un petit code sur le net qui faisait ce que tu dit  (Quel ordre ? alphabétique ? TabIndex ? position dans le UserForm ? )

mais bien sur, je ne retrouve plus.

Merci beaucoup pour ton aide 

Cdlt Ray

dudulleray · Answer

Re Zoul67

Merci pour le petit code, j'ai essayer ca fonctionne bien.

Mais comment svp je peux faire pour lister tous les controls en une seule fois 

et afficher le tout dans la colonne S

Merci beaucoup 

a plus tard 

Cdlt Ray

dudulleray · Answer

Re,

Si cela fonctionne mais l'affichage n'ai pas comme je souhaitai

Exemple qui serai afficher dans la colonne (S)

label1
label2
label3
textbox1
textbox2
textbox3
frame1
frame2
combobox1
combobox2

etc etc etc

Merci a toi

Ray

lermite222 · Answer

Bonjour,
Un exemple pour afficher tout les contrôles par catégorie
Private Sub CommandButton4_Click()
Dim Ctl As Control
Dim Lab() As String, Command() As String, Txt() As String, Autre() As String
Dim Lb As Integer, Cd As Integer, Tx As Integer, Aut As Integer
ReDim Lab(0): ReDim Command(0): ReDim Txt(0): ReDim Autre(0)
Dim Mess As String, i As Integer, CR
CR = Chr(13)
    For Each Ctl In Me.Controls
        Select Case TypeName(Ctl)
        Case "Label": ReDim Preserve Lab(Lb): Lab(Lb) = Ctl.Name: Lb = Lb + 1
        Case "CommadButton": ReDim Preserve Command(Cd): Command(Cd) = Ctl.Name: Cd = Cd + 1
        Case "TextBox": ReDim Preserve Txt(Tx): Txt(Tx) = Ctl.Name: Tx = Tx + 1
        Case Else: ReDim Preserve Autre(Aut): Autre(Aut) = Ctl.Name: Aut = Aut + 1
        End Select
    Next Ctl
    'Exemple d'affichage par catégorie de contrôles.
    Mess = "Il y a " & Lb & " Label" & CR
    For i = 0 To Lb - 1
    Mess = Mess & Lab(i) & CR
    Next i
    Mess = Mess & "Il y a " & Tx & " TextBox" & CR
    For i = 0 To Tx - 1
    Mess = Mess & Txt(i) & CR
    Next i
    '... la suite
    Mess = Mess & "Il y a " & Me.Controls.Count & " controls dans l'userform"
    MsgBox Mess
End Sub 
A adapter bien entendu.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

dudulleray · Answer

Salut lermite222

Merci pour ta réponse et pour le code

impossible de prendre ton code en copier coller pour faire l'essai

ca mets tout les lignes de code bout a bout, ça donne une ligne de code de 300 metres LOL

je vais imprimer et le taper 

Merci a toi bonne après midi

Cdlt Ray

lermite222 · Answer

Bizarre,
tu a quel navigateur ?
Avec Google Chrome pas de problème.

dudulleray · Answer

Google Chrome sous windows 7 32 bits

ca marchai encore bien tout a l'heure, ca arrive assez souvent mème quand je réponds aux gens le curseur se bloque pour écrire disparait

c'est uniquement sur ce forum, sinon jamais d'ennuie particulier

tant pis je vais le taper tout a l'heure

dudulleray · Answer

Salut pijaku

Merci de faire remonter l'info

Bon W-end

Cordialement Ray

dudulleray · Answer

Re lermite222

Bon après ce petit soucis , j'ai pu copier ton code

je l'ai essayer ca m'a l'air de fonctionner mais a l'affichage dans la MSGBOX 

comme il y a beaucoup de controls

la msgbox s'affiche sur toute la hauteur de l'ecran et je ne peux pas la faire défiler

ce qui fait que je ne vois que le début de la liste.

Mais si on pouvais svp faire en sorte d'afficher la liste dans ma colonne (S) ça 

m'arrangerai bien

Merci pour ton aide

Ray

lermite222 · Answer

Je pensais que tu serais assez "fort" pour transcrire sur une feuille. :=)
Private Sub CommandButton9_Click()Dim Ctl As ControlDim Lab() As String, Command() As String, Txt() As String, Autre() As StringDim Lb As Integer, Cd As Integer, Tx As Integer, Aut As IntegerReDim Lab(0): ReDim Command(0): ReDim Txt(0): ReDim Autre(0)Dim i As Integer    For Each Ctl In Me.Controls        Select Case TypeName(Ctl)        Case "Label": ReDim Preserve Lab(Lb): Lab(Lb) = Ctl.Name: Lb = Lb + 1        Case "CommadButton": ReDim Preserve Command(Cd): Command(Cd) = Ctl.Name: Cd = Cd + 1        Case "TextBox": ReDim Preserve Txt(Tx): Txt(Tx) = Ctl.Name: Tx = Tx + 1        Case Else: ReDim Preserve Autre(Aut): Autre(Aut) = Ctl.Name: Aut = Aut + 1        End Select    Next Ctl    'Exemple d'affichage par catégorie de contrôles.Dim Lig As Long    Lig = 2    With ActiveSheet        .Columns("S:S").ClearContents        .Cells(Lig, "S") = "Il y a " & Lb & " Label"        Lig = Lig + 1        For i = 0 To Lb - 1            .Cells(Lig, "S") = Lab(i)            Lig = Lig + 1        Next i        Lig = Lig + 1        .Cells(Lig, "S") = "Il y a " & Tx & " TextBox"        Lig = Lig + 1        For i = 0 To Tx - 1           .Cells(Lig, "S") = Txt(i)            Lig = Lig + 1        Next i        '... la suite        Lig = Lig + 1        .Cells(Lig, "S") = "Il y a " & Me.Controls.Count & " controls dans l'userform"    End WithEnd Sub
A+

Modifier petit code pour afficher nombre de "controls"

11 réponses

Discussions similaires