CheckBox et TextBox...

Résolu/Fermé

lrag Messages postés 4 Date d'inscription vendredi 28 décembre 2012 Statut Membre Dernière intervention 16 mars 2016 - 16 mars 2016 à 13:42
lrag Messages postés 4 Date d'inscription vendredi 28 décembre 2012 Statut Membre Dernière intervention 16 mars 2016 - 16 mars 2016 à 16:03

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

A voir également:

CheckBox et TextBox...
Vba textbox date format dd/mm/yyyy ✓ - Forum VB / VBA
Checkbox onchange ✓ - Forum Webmastering
Propriété textbox vba - Forum VB / VBA
Format de saisie dans textbox userform excel ✓ - Forum Excel
Checkbox vba ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
Modifié par ThauTheme le 16/03/2016 à 15:07

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

lrag Messages postés 4 Date d'inscription vendredi 28 décembre 2012 Statut Membre Dernière intervention 16 mars 2016
16 mars 2016 à 16:03

Impeccable....
Je pense que en creusant profondément j'aurais pas trouvé
Encore merci

Y a plus qu'a...

Réponse 2 / 2

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
16 mars 2016 à 14:18

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)...

lrag Messages postés 4 Date d'inscription vendredi 28 décembre 2012 Statut Membre Dernière intervention 16 mars 2016
16 mars 2016 à 14:24

Bonjour ThauTheme.

Merci. Avec grand plaisir (Si tu le retrouve bien sur).
Je vais gratter un peu le module de classe.

Discussions similaires

VBA : If CheckBox.Value = True Or CheckBox.Value = True Then ...

[VBA] format de date dans textbox

Récupérer la valeur d'un textbox a partir d'un formulaire différ

TextBox au format date

[PHP] Récuperer la valeur d'une checkbox

Discussions similaires

Newsletters