Boucle sur TextBox pour les "Enabled" suivant une condition

Bonjour,

Je dois poursuivre le code de quelqu'un
Le code permet d'aller chercher tous les sous dossier d'un fichier (donc le nombre variable suivant le dossier initial sélectionné).
Une UserForm est générée avec la liste en Label de tous les noms des sous dossiers.
A coté de chaque nom j'ai créé une Textbox associée contenant par défault 0.
J'ai également une ChexBox.

J'aimerais pouvoir boucler sur toutes les Texbox qui s'appellent "Texbox" & i en les désactivant si la ChexBox est cochée.

Code:

---

1 2 3 4

Dim i As Integer For i = 1 To 5 Controls("TextBox" & i).Text = "" Next

---

J'ai vu que c'est boucle fonctionnait pour nommer des TextBox, mais je n'arrive pas à effectuer la même chose avec la propriété Enabled.

Merci pour votre aide.

Bonjour,

comment procèdes-tu ?


exemple pour te mettre sur la piste, si le Textbox est vide, on le désactive :

Code:

---

1 2 3 4 5 6 7

Dim i As Integer For i = 1 To 5 if Me.Controls("TextBox" & i).Text = "" Then Me.Controls("TextBox" & i).Enabled = False End if Next i

---

bonjour,

quel est ton problème ..?

modifier la propriété enabled dans une boucle ne cause aucune difficulté :

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 3 Controls("Textbox" & i).Enabled = Not Controls("Textbox" & i).Enabled   Next End Sub

---

Bonjour,

Code:

---

1 2 3 4

Dim i As Integer For i = 1 To 5 With Controls("TextBox" & i): .Enabled = Len(.Text): End With Next

---

Merci pour vos aides.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CheckBox1_Click()   Dim i As Integer, Nbseq As Integer   Nbseq = calculernbseq()   If CheckBox1.Value = False Then For i = 1 To Nbseq Controls("TextBoxTemps" & i).Enabled = Not Controls("TextBoxTemps" & i).Enabled Controls("Labeltempsh" & i).Enabled = Not Controls("Labeltempsh" & i).Enabled Next Else For i = 1 To Nbseq Controls("TextBoxTemps" & i).Enabled = Not Controls("TextBoxTemps" & i).Enabled Controls("Labeltempsh" & i).Enabled = Not Controls("Labeltempsh" & i).Enabled Next End If   End Sub

---

Je n'ai pas très bien compris l'action de ce que tu as écris mais en bidouillant j'ai réussit.
Je pensais qu'il fallait supprimer le NOT dans le Else, mais non ...

En tout cas franchement un grand MERCI!
Du coup j'ai fais pareil pour mais label.

J'avais déjà eu le même problème, et ça ait une semaine que je cherchais, mais du coup j'avais fait autrement.

Mais si quelqu'un a une solution, je suis prenneur.
Au lieu d'avoir une checkBox générale désactivant des TextBox
Je souhaitait avoir une CheckBox par ligne permettant d'activer (enabled) ou non deux OptionButton de cette même ligne

J'avais un code de ce genre, mais cela ne fonctionnait pas :

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To Nbseq If CheckBox & i.Value = True Then OptionButton1&i.Enabled = False OptionButton2&i.Enabled = False Else OptionButton1&i.Enabled = True OptionButton2&i.Enabled = True End If Next i

---

Enfin c'est compliqué, car je ne voudrait pas qu'il fasse une boucle, juste "faire", si je coche cette checkbox, ça désactive sa ligne.

Bonjour,
Le NOT que tu voulais enlever de la proposition de BBIL renverse la valeur booléenne (TRUE/FALSE) donc NOT(TRUE) donne FALSE (dit en français) ce qui n'est pas VRAI est FAUX.
Les propriétés Value de CheckBox et Enabled de TextBox et d'autres contrôles d'ailleurs sont des valeurs booléenne il est donc parfaitement inutile de passer par un IF
Donc ton code ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If CheckBox1.Value = False Then For i = 1 To Nbseq Controls("TextBoxTemps" & i).Enabled = Not Controls("TextBoxTemps" & i).Enabled Controls("Labeltempsh" & i).Enabled = Not Controls("Labeltempsh" & i).Enabled Next Else For i = 1 To Nbseq Controls("TextBoxTemps" & i).Enabled = Not Controls("TextBoxTemps" & i).Enabled Controls("Labeltempsh" & i).Enabled = Not Controls("Labeltempsh" & i).Enabled Next End If

---

Se limite à

Code:

---

Controls("TextBoxTemps" & i).Enabled = NOT(CheckBox1.Value)

---

La propriété Enabled de TextBoxTemps prendra la valeur booléenne inverse de CheckBox1.Value
Tu fais la même chose pour Labeltempsh et tu imbriques ces deux lignes dans la boucle.

Merci !
C'est sur qu'il y a a moins à coder comme ça :)
Par contre je n' ai pas mis le NOT

Code:

---

Controls("TextBoxTemps" & i).Enabled = (CheckBox1.Value)

---

Auriez vous une piste pour le problème posé à mon précédent message?

Merci

Bonjour,

Citation:

---

Par contre je n' ai pas mis le NOT

---

Oui tout dépends de ce que tu souhaites.
Sans le NOT la propriété Enabled du contrôle TextBox prend la même valeur que la propriété Value (qui est la propriété par défaut) du CheckBox avec le NOT, il prend la valeur inverse.

Citation:

---

Auriez vous une piste pour le problème posé à mon précédent message?

---

S'il s'agit de cette question

Citation:

---

Au lieu d'avoir une checkBox générale désactivant des TextBox
Je souhaitait avoir une CheckBox par ligne permettant d'activer (enabled) ou non deux OptionButton de cette même ligne

---

Quel est le problème exactement ?
Si tu sais faire une boucle sur un contrôle, il suffit de faire la même chose sur le deuxième.
Soit

Code:

---

Controls("TextBoxTemps" & i).Enabled = Controls("CheckBox" & i).Value

---

(Attention, je n'ai pas testé mais je ne vois pas d'erreur de syntaxe)

Merci de nouveau

Code:

---

Controls("TextBoxTemps" & i).Enabled = Controls("CheckBox" & i).Value

---

J'avais contourné le problème, et cela me prendrais pas mal de temps de re coder, car il y a pas mal d'inbrications de le code.
Mais si je reprends ce que tu m'as dis cela donnerait quelquechose comme ça :

Code:

---

1 2 3 4

For i= 1 to n Controls("Combobox1" & i).Enabled = Controls("CheckBox" & i).Value Controls("Combobox2" & i).Enabled = Controls("CheckBox" & i).Value Next

---

Et lorsqu'il y a des combobox, il y en a forcément une d'activer. Mais si je veux forcer en plus la désactivation :

Code:

---

1 2 3 4 5 6

For i= 1 to n Controls("Combobox1" & i).Enabled = Controls("CheckBox" & i).Value Controls("Combobox2" & i).Enabled = Controls("CheckBox" & i).Value Controls("Combobox1" & i).Value = Controls("CheckBox" & i).Value Controls("Combobox2" & i).Value = Controls("CheckBox" & i).Value Next

---

En plus de mal codé je crois que j'avais fais l'erreur de mal placer le code. Il était placé dans la sub de la génération de la userform dans un module et non dans le code de la userform elle même (en private sub).

Bonjour,
D'abord TextBox puis ComboBox . Deux contrôles qui ne font pas du tout la même chose.
Si tu expliquais ce que tu souhaites faire en français et pas avec des bouts de code, l'aide que l'on pourrait t'apporter serait sans doute plus efficace.

J'ai refait rapidement mon cas dans une userform, se sera plus simple à expliquer, ci dessous l'image illustrant la chose

Pièce jointe 139797
http://www.heberger-image.fr/images/...adazd.png.html

Le nombre de cas est variable, je ne les ai pas créés, ils sont générés en fonctions du nombre de sous dossiers d'un dossiers.
Ensuite pour chaque cas, j'aimerais, si la case activation est coché ; pouvoir "enabled" et mettre leur valeur à "false" pour les 2 optionbutton de la ligne, ainsi que les labels des noms des cas.

Ai-je été assez explicit?

Bonjour,
Alors d'après l'image que tu as mise en vue, il y a par ligne dans le UserForm, Un contrôle Label, deux OptionButton et un CheckBox.
Que veux tu obtenir concrètement ?

Citation:

---

Ensuite pour chaque cas, j'aimerais, si la case activation est coché ; pouvoir "enabled" et mettre leur valeur à "false" pour les 2 optionbutton de la ligne, ainsi que les labels des noms des cas.

---

Si je traduis ce que tu écris, tu aimerais que si le CheckBox de la ligne (variable i) est coché (valeur TRUE), la propriété des contrôles Label, OptionButon 1 et 2 (mais comment sont-il nommés ?) Label soit à FALSE (c'est à dire inaccessible).
En supposant que les différents contrôles soient nommés Label+i, OptionButton1+i, OptionButton2+i et CheckBox+i

Voici un exemple avec mise à jour si on clique sur un CommandButton nommé CommandButton1

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 3 Controls("Label" & i).Enabled = Not (Controls("CheckBox" & i).Value) Controls("OptionButton1" & i).Enabled = Not (Controls("CheckBox" & i).Value) Controls("OptionButton2" & i).Enabled = Not (Controls("CheckBox" & i).Value) Next End Sub

---

Oui c'est ça je pense.
Ce code je peux le mettre dans le "Userform_Activate" au lieu d'un CommandButton ?

Je suis désoler, je viens de me rendre compte que j'avais confondu ComboBox et OptionButton.

Autre question :

Quand s'affiche la userform, pour chaque ligne j'ai au moins 1 OptionButton qui à la Valeur = True .
Si je veux leur donner la valeur False à tout les deux, je dois rajouter cette ligne dans la boucle for ?

Code:

---

Controls("OptionButton2" & i).Value = Not (Controls("CheckBox" & i).Value)

---

Merci beaucoup pour toutes vos solutions !

Bonjour

coder pour coder
tu avais aussi la double condition simplifié

Code:

---

1 2 3 4

For i = 1 To Nbseq Controls("TextBoxTemps" & i).Enabled = IIf(CheckBox1.Value, CheckBox1.Value, True) Controls("Labeltempsh" & i).Enabled = IIf(CheckBox1.Value, CheckBox1.Value, True) Next

---

Bonjour Patrick,

Citation:

---

Envoyé par patricktoulon

Bonjour
coder pour coder
tu avais aussi la double condition simplifié

Code:

---

1 2 3 4

For i = 1 To Nbseq Controls("TextBoxTemps" & i).Enabled = IIf(CheckBox1.Value, CheckBox1.Value, True) Controls("Labeltempsh" & i).Enabled = IIf(CheckBox1.Value, CheckBox1.Value, True) Next

---

---

Tu es vraiment certain que c'est plus simple de passer par un IIF plutôt que de passer tout suite la valeur ou la non valeur (NOT) ?

Bonjour,

Citation:

---

Quand s'affiche la userform, pour chaque ligne j'ai au moins 1 OptionButton qui à la Valeur = True .
Si je veux leur donner la valeur False à tout les deux, je dois rajouter cette ligne dans la boucle for ?

---

Il faudrait savoir avant tout à quoi correspond les OptionButton, dans quel cas l'un doit être activé ou pas.
Si une option doit être activée en fonction d'un critère, il faut savoir lequel
Faire une analyse de tes besoins est la priorité.

Bonjour Philippe

je suis d'accords avec toi c'est pour ca que j'ai dis coder pour coder

j'ai simplement repris sa double condition if, else ,end if en une seule

Re

d'apres ce que j'ai vu sur la capture d'ecran

il y a des ligne de controls

1label ,1optionbutton , un 2eme optionbutton,1checkbox

si c'est que je crois

checkbox coché = les controls de la même ligne enabled et inverse si checkbox décoché

alors une solution ultra simple

Un truc du genre

mettre dans le tag de chaque control y compris le checkbox un numéro de ligne

mettre ceci dans le click de chaque checkbox

Code:

---

routine_enable_disable nom du checkbox

---

ensuite la routine

Code:

---

1 2 3 4 5

sub routine_enable_disable (check as object) 'ensuite tout simplement faire un boucle for each ctrl in me.controls if typename (ctrl)<>"CheckBox" and ctrl.tag=check.tag then ctrl.enabled=check.value next

---

la on pourrais même parler de classe pour contrôles si vous voulez

voila un exemple parle mieux que des mots
récupère l'exemplaire je le laisserais pas longtemps
Au plaisir