CheckBox et TextBox...
Résolu
lrag
Messages postés
4
Statut
Membre
-
lrag Messages postés 4 Statut Membre -
lrag Messages postés 4 Statut Membre -
Bonjour.
J'ai une bonne centaine de CheckBox et TextBox qui fonctionne sur ce code.
Private Sub CheckBox1_Click()
If Me.CheckBox1 = True Then
Me.TextBox1.Value = "1"
Else
Me.TextBox1.Value = ""
End If
End Sub
j'ai tenté dans le UserForm_Initialize() pour raccourcir mon code
Dim j As String
For J = 1 To 158
If Me.Controls("CheckBox" & J).Value = True Then
Me.Controls("textbox" & J).Value = "1"
Else
Me.Controls("textbox" & J).Value = ""
Next
Quelqu'un peut il m’expliquer ou est le problème????
Merci
J'ai une bonne centaine de CheckBox et TextBox qui fonctionne sur ce code.
Private Sub CheckBox1_Click()
If Me.CheckBox1 = True Then
Me.TextBox1.Value = "1"
Else
Me.TextBox1.Value = ""
End If
End Sub
j'ai tenté dans le UserForm_Initialize() pour raccourcir mon code
Dim j As String
For J = 1 To 158
If Me.Controls("CheckBox" & J).Value = True Then
Me.Controls("textbox" & J).Value = "1"
Else
Me.Controls("textbox" & J).Value = ""
Next
Quelqu'un peut il m’expliquer ou est le problème????
Merci
A voir également:
- CheckBox et TextBox...
- Jtable checkbox - Forum Java
- VBA CheckBox - Forum VB / VBA
- Cocher et décocher une checkbox ✓ - Forum Bureautique
- Problème CheckBox compatibilité - Forum Word
- Checkbox excel 2007 - Forum Excel
2 réponses
Re,
https://www.cjoint.com/c/FCqodt8uwiI dans le lien tu as le fichier pdf sur les modules de classe et aussi un fichier vite-fait, basé sur le principe, adapté à ton cas.
[Édition]
Il manquait un End If à ton code et la variable J n'est pas de type String mais Byte (puisqu'inférieure à 256)
À plus,
ThauTheme
https://www.cjoint.com/c/FCqodt8uwiI dans le lien tu as le fichier pdf sur les modules de classe et aussi un fichier vite-fait, basé sur le principe, adapté à ton cas.
[Édition]
Il manquait un End If à ton code et la variable J n'est pas de type String mais Byte (puisqu'inférieure à 256)
À plus,
ThauTheme
Bonjour Irag, bonjour le forum,
Ton code est correct mais il n'agit qu'à l'Initialisation de ta UserForm. Donc complètement inefficace à cet endroit là puisqu'il faudrait qu'il agisse sur n'importe quel click dans une CheckBox.
Il te faudra je pense passer par un module de classe... Si t'es intéressé je dois avoir un document relativement clair à ce sujet que je pourrais te faire passer (si je le retrouve)...
Ton code est correct mais il n'agit qu'à l'Initialisation de ta UserForm. Donc complètement inefficace à cet endroit là puisqu'il faudrait qu'il agisse sur n'importe quel click dans une CheckBox.
Il te faudra je pense passer par un module de classe... Si t'es intéressé je dois avoir un document relativement clair à ce sujet que je pourrais te faire passer (si je le retrouve)...
Je pense que en creusant profondément j'aurais pas trouvé
Encore merci
Y a plus qu'a...