Comprendre la fonction " for each c in controls"

Version imprimable

Voir 40 message(s) de cette discussion en une page

05/09/2018, 17h06
Mr l'Ashanti

Comprendre la fonction " for each c in controls"
rebonjour

ça fait un bail que je cherche à comprendre ce petit code
Code:

1 2 dim c as controls for each c in controls
pour l'étaler à mes activités.
j'ecris souvent plus de code et je voudrais maintenant passer à une autre étape de la progession celle de regrouper plusieurs controls dans un seul code. par exemple mettre tous les textbox en majuscules; desactiver et activer plusieurs boutons dans un frame etc...
ma préoccupation est la suivante: quelqu'un pourrait m'expliquer terre à terre comment procéder avec cette fonction car j'ai écris plusieurs mais au lancement, débogage.

je voudrais en théorie une petite démarche ou un canevas de comment "débuter" , comment "énoncer" et comment "terminer". j'ai lu plusieurs rubriques pdf, faq, tutos mais je n'arrive toujours pas.
merci pour votre compréhension

Citation:

mieux vaut apprendre à pêcher au près de lui que de demander du poisson à chaque fois car son absence te portera préjudice
05/09/2018, 23h17
clementmarcotte

Bonjour,

D'une manière générale, la boucle For Each permet de boucler sur tous les éléments d'une collection.

Donc, grâce à la tolérance de VBA tu a une collection de contrôles appelée C

Code:

dim c as controls

et un contrôle du nom de c qui désigne le contrôle courant dans tous les contrôles de la collection

Code:

for each c in controls

Ce qui est juste extrêmement dangereux.

et heureusement que tu n'as pas

Code:

for each c in c
05/09/2018, 23h23
Mr l'Ashanti

je comprends maintenant. il me reste un dernier. meme si la question est un peu idiote j'aimerais connaitre le développement car l'intoduction et la conclusion je les maitrise
06/09/2018, 08h20
eriiic

Bonjour,

Code:

dim c as control

sans le s non ?
controls est la collection, dans Dim tu veux le type d'objet.
eric
06/09/2018, 08h25
Mr l'Ashanti

Citation:

Envoyé par eriiic

Bonjour,

Code:

dim c as control

sans le s non ?
controls est la collection, dans Dim tu veux le type d'objet.
eric

oui c'est vrai j'ai omis le "s".
j'ai remarqué que chacun pouvait donner un nom dans la fonction

Code:

for each c in controls

. souvent d'autres mettent

Code:

for each c in parents.controls

ou

Code:

for each c in userform.controls

.
pourquoi est-ce ainsi?
06/09/2018, 08h33
Invité

Bonjour,

Si la boucle ce trouve dans un module standard on dira UserForm1 par exemple.

Si la boucle est dans un UserForm on dira Me.

Si la boucle est dans une userform mais concerne les contrôles d'une Fram on dira me.fram.controls.

Parent remonte d'un cran dans la hiérarchie de collection.

Classeur =sheets(1).parent.name.
06/09/2018, 08h39
Mr l'Ashanti

Citation:

Envoyé par dysorthographie

Bonjour,

Si la boucle ce trouve dans un module standard on dira UserForm1 par exemple.

Si la boucle est dans un UserForm on dira Me.

Si la boucle est dans une userform mais concerne les contrôles d'une Fram on dira me.fram.controls.

Parent remonte d'un cran dans la hiérarchie de collection.

Classeur =sheets(1).parent.name.

super. j'ai enfin compris en plus de cela je ne comprenais pas pourquoi on utilisait le "me.controls" dans les procédures. c'est piger.
un grand merci à vous et à tous ceux qui m'ont guidés sur la voie.

je suis un formulaire! moi.Controls (Me).

je suis un module de classe Me.
userform1 est une instance de la classe userform.

me représente une classe vue de l'intérieur de la classe!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ERSION 5.00Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   5025
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   5130
   OleObjectBlob   =   "UserForm1.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Code:

1
2
3
4
5
6
7
8
VERSION 1.0 CLASSBEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ADODBRD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

06/09/2018, 09h16
Mr l'Ashanti

je comprends maintenant.
une derniere question. que signifie le " := " devant les propriétés

explication par l'absurde!

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Optionel
Optionel "A", "B", "C"
Optionel C:="A", B:="B", A:="C"
Optionel C:="TOTO"
End Sub
 
 
Sub Optionel(Optional A As String = "1", Optional B As String = "2", Optional C As String = "3")
MsgBox A & B & C
End Sub

06/09/2018, 10h58
eriiic

Re,

Citation:

que signifie le " := " devant les propriétés

Dit autrement :
Quand tu passes des paramètres, soit tu les passes tous dans l'ordre jusqu'au dernier qui t'intéresse, soit tu les désignes nommément en passant la valeur avec :=
eric

Citation:

Envoyé par eriiic

Re,

Je n'ai pas bien compris ton explication dysorthographie :-)

Quand tu passes des paramètres, soit tu les passes tous dans l'ordre jusqu'au dernier qui t'intéresse, soit tu les désignes nommément en passant la valeur avec :=
eric

c'est vrai, moi même je n'ai pas bien compris son explication.
donc si je comprends bien votre explication, pour éviter de tramer dans l'ordre jusqu'au dernier c'est mieux d'utiliser :=
ok.

maintenant, je crois que j'ai le cerveau qui commence à frémir.
dans ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function initiate(ByRef uf As Object) Dim i&, ctrl As Object For Each ctrl In uf.Controls i = i + 1: ReDim Preserve cls(1 To i) Select Case TypeName(ctrl) Case "TextBox" Set cls(i).txtB = ctrl: Set cls(i).usf = uf Case "ComboBox" Set cls(i).CmbX = ctrl: Set cls(i).usf = uf End Select Next End Function
pourquoi les deux points":" sont devant ctrl? :(:(8O8O

je reviendrai su le ForEach

mais finissons ave :=?

das la sub Optionnel le paramètres son facultatif.
je défini un paramètre et je lui donne " 1" comme valeur par défaut. (Sub Optionel(Optional A AsString = "1",) traduis Optional comme pas obligatoire!

Code:

Optionel 'affiche un message 123

je peux écrire Optionel "A" vue que les autre valeur son optionnel, c'est comme Optionel A:="A"

Optionel C:="C" affect au paramètre C la valeur "C" {:=} est un signe d'assignation c'est une obligation si la valeur est affecté à une variable qui n'est pas la première ou dans l'ordre de déclaration comme Optionel C:="A", B:="B", A:="C"

Optionel "A", "B", "C" 'on utilise toutes les variables dans l'ordre de déclaration!
Optionel C:="A", B:="B", A:="C" 'on utilise toutes les variables dans le désordre de déclaration! Optionel(Optional A As String = "1",
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public cls() As New MyClasse Function initiate(ByRef uf As Object) Dim i&, ctrl As Object For Each ctrl In uf.Controls i = i + 1: ReDim Preserve cls(1 To i) Select Case TypeName(ctrl) Case "TextBox" Set cls(i).txtB = ctrl: Set cls(i).usf = uf Case "ComboBox" Set cls(i).CmbX = ctrl: Set cls(i).usf = uf End Select Next End Function

06/09/2018, 11h49
Mr l'Ashanti

donc si je vous suis ,ici A est un parametre et "A" est une valeur representative
06/09/2018, 11h50
Invité

exact
06/09/2018, 11h54
eriiic

Un autre exemple :
Application.InputBox admet 8 paramètres (Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type) dont seul le 1er est obligatoire.
Toi tu veux juste lui spécifier le type = 1 car tu veux un nombre et rien d'autre.

2 possibilités :
soit tu les listes tous en laissant vide ceux qui ne t'intéresse pas :

Code:

a = Application.InputBox("Entrer nombre", , , , , , , 1)

soit tu nommes le paramètre :

Code:

a = Application.InputBox("Entrer nombre", Type:=1)

Là on n'a pas besoin de compter les paramètres pour savoir lequel tu as fixé, tu as gagné du temps et de la clarté, et nous aussi.
eric
06/09/2018, 11h54
Mr l'Ashanti

Citation:

Envoyé par dysorthographie

exact

en d'autres termes quelque soit le desordre de déclaration ," :=" mettra dans l'ordre d'ou msgbox 123
06/09/2018, 11h58
Invité

reprends mon exemple et exécute la sub test en pas à pas touche [F8]
06/09/2018, 12h01
Mr l'Ashanti

Citation:

Envoyé par eriiic

Un autre exemple :
Application.InputBox admet 8 paramètres (Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type) dont seul le 1er est obligatoire.
Toi tu veux juste lui spécifier le type = 1 car tu veux un nombre et rien d'autre.

2 possibilités :
soit tu les listes tous en laissant vide ceux qui ne t'intéresse pas :

Code:

a = Application.InputBox("Entrer nombre", , , , , , , 1)

soit tu nommes le paramètre :

Code:

a = Application.InputBox("Entrer nombre", Type:=1)

Là on n'a pas besoin de compter les paramètres pour savoir lequel tu as fixé, tu as gagné du temps et de la clarté, et nous aussi.
eric

pour ne pas trop laisser l'application chercher longtemps il faut au préalable lui définir l' endroit de l'exécution d'ou la rapidité de l' exécution?!!. je vois.
06/09/2018, 12h06
Mr l'Ashanti

Citation:

Envoyé par dysorthographie

reprends mon exemple et exécute la sub test en pas à pas touche [F8]

à l'exécution le message affiche
123
ABC
CBA
12toto

c'est le 12toto je n'ai pas compris alors que dans la procédure c'est toto seulement qui y figure

Voir 40 message(s) de cette discussion en une page