Dans un userform, j'ai des textbox et des checkbox superpos=E9es.
Quand je coche la checkbox, je voudrai ouvrir la textbox.
Quand je d=E9coche la checkbox, je voudrais fermer la texbox.
J'ai mis un code qui trouve vite ses limites d=E8s lors que les paires (che=
ckbox/textbox) sont nombreuses.
Comment puis je faire pour limiter l'=E9criture?
Merci pour les conseils.
JP
Private Sub CheckBox1_Change()
For i =3D 1 To 12
If Me.Controls("CheckBox" & i).Value =3D True Then
Me.Controls("Textbox" & i).Visible =3D True
Else
Me.Controls("Textbox" & i).Visible =3D False
End If
Next i
End Sub
Private Sub CheckBox2_Change()
For i =3D 1 To 12
If Me.Controls("CheckBox" & i).Value =3D True Then
Me.Controls("Textbox" & i).Visible =3D True
Else
Me.Controls("Textbox" & i).Visible =3D False
End If
Next i
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir, '----------- Private Sub CheckBox1_Click() Me.TextBox1.Visible = Me.CheckBox1.Value = True End Sub '------------ Private Sub CheckBox2_Click() Me.TextBox2.Visible = Me.CheckBox2.Value = True End Sub '------------- etc....
PS: Si tu n'attribues pas de cellule a tes CheckBox, ils seront à "false" a chaque lancement. -- Salutations JJ
"JP" a écrit dans le message de news:
Bonsoir,
Dans un userform, j'ai des textbox et des checkbox superposées. Quand je coche la checkbox, je voudrai ouvrir la textbox. Quand je décoche la checkbox, je voudrais fermer la texbox. J'ai mis un code qui trouve vite ses limites dès lors que les paires (checkbox/textbox) sont nombreuses. Comment puis je faire pour limiter l'écriture?
Merci pour les conseils.
JP
Private Sub CheckBox1_Change() For i = 1 To 12 If Me.Controls("CheckBox" & i).Value = True Then Me.Controls("Textbox" & i).Visible = True Else Me.Controls("Textbox" & i).Visible = False End If Next i End Sub Private Sub CheckBox2_Change() For i = 1 To 12 If Me.Controls("CheckBox" & i).Value = True Then Me.Controls("Textbox" & i).Visible = True Else Me.Controls("Textbox" & i).Visible = False End If Next i
Bonsoir,
'-----------
Private Sub CheckBox1_Click()
Me.TextBox1.Visible = Me.CheckBox1.Value = True
End Sub
'------------
Private Sub CheckBox2_Click()
Me.TextBox2.Visible = Me.CheckBox2.Value = True
End Sub
'-------------
etc....
Ton classeur ici
http://cjoint.com/?CJgupW1Nw6h
PS: Si tu n'attribues pas de cellule a tes CheckBox, ils seront à "false" a chaque lancement.
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
3d41df4f-28cd-4984-8914-9bf815bc3bd9@googlegroups.com...
Bonsoir,
Dans un userform, j'ai des textbox et des checkbox superposées.
Quand je coche la checkbox, je voudrai ouvrir la textbox.
Quand je décoche la checkbox, je voudrais fermer la texbox.
J'ai mis un code qui trouve vite ses limites dès lors que les paires (checkbox/textbox) sont nombreuses.
Comment puis je faire pour limiter l'écriture?
Merci pour les conseils.
JP
Private Sub CheckBox1_Change()
For i = 1 To 12
If Me.Controls("CheckBox" & i).Value = True Then
Me.Controls("Textbox" & i).Visible = True
Else
Me.Controls("Textbox" & i).Visible = False
End If
Next i
End Sub
Private Sub CheckBox2_Change()
For i = 1 To 12
If Me.Controls("CheckBox" & i).Value = True Then
Me.Controls("Textbox" & i).Visible = True
Else
Me.Controls("Textbox" & i).Visible = False
End If
Next i
Bonsoir, '----------- Private Sub CheckBox1_Click() Me.TextBox1.Visible = Me.CheckBox1.Value = True End Sub '------------ Private Sub CheckBox2_Click() Me.TextBox2.Visible = Me.CheckBox2.Value = True End Sub '------------- etc....
PS: Si tu n'attribues pas de cellule a tes CheckBox, ils seront à "false" a chaque lancement. -- Salutations JJ
"JP" a écrit dans le message de news:
Bonsoir,
Dans un userform, j'ai des textbox et des checkbox superposées. Quand je coche la checkbox, je voudrai ouvrir la textbox. Quand je décoche la checkbox, je voudrais fermer la texbox. J'ai mis un code qui trouve vite ses limites dès lors que les paires (checkbox/textbox) sont nombreuses. Comment puis je faire pour limiter l'écriture?
Merci pour les conseils.
JP
Private Sub CheckBox1_Change() For i = 1 To 12 If Me.Controls("CheckBox" & i).Value = True Then Me.Controls("Textbox" & i).Visible = True Else Me.Controls("Textbox" & i).Visible = False End If Next i End Sub Private Sub CheckBox2_Change() For i = 1 To 12 If Me.Controls("CheckBox" & i).Value = True Then Me.Controls("Textbox" & i).Visible = True Else Me.Controls("Textbox" & i).Visible = False End If Next i
Comme ce serait très long à expliquer, voici un fichier exemple dans lequel j'ai inséré un module de classe. Ce sera très facile de reproduire cet exemple dans ton fichier...
Comme ce serait très long à expliquer, voici un fichier exemple
dans lequel j'ai inséré un module de classe. Ce sera très facile
de reproduire cet exemple dans ton fichier...
Comme ce serait très long à expliquer, voici un fichier exemple dans lequel j'ai inséré un module de classe. Ce sera très facile de reproduire cet exemple dans ton fichier...
