Discussion :

[GoFio]

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 :

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

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.

[joe.levrai]

Bonjour,

comment procèdes-tu ?


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

Code :

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

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

[Philippe Tulliez]

Bonjour,

Code :

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

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

[GoFio]

Merci pour vos aides.

Code :

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

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 :

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

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.

[Philippe Tulliez]

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 :

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

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 :

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

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.

[GoFio]

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

Code :

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

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

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

Merci

[SfJ5Rpw8]

bonjour,

quel est ton problème ..?

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

Code :

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

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