(RESOLU)Verrouillage de TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

[chaelie2015]

Bonjour Forum
Je souhaite verrouiller la saisie dans des TextBox d’un UserForm2 (de TextBox1 au TextBox32) selon la valeur de TextBox10 de UserForm1
Exemple :
Si la valeur de TextBox10 de UserForm1 égale 3 donc verrouiller les TextBox4 – TextBox32 de UserForm2
et ainsi de suite...
SALUTATIONS

 

[Pierrot93]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Bonjour,

tu devrais facilement trouver des exemples de boucles sur le forum....

bonne journée
@+

 

[chaelie2015]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Bonjour Pierrot
Merci pour le 1er signe ( boucle TextBox)
j'ai déjà trouvé un code mais je n'arrive pas ajouter la condition de 1UsrForm

Dim i As Byte 'déclare la variable i
For i = 1 To 32
    'rend inaccessible le textbox i
    Me.Controls("textbox" & i).Enabled = False
Next i 'prochaine valeur de la boucle

merci par avance
SALUTATION

 

[Pierrot93]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re,

Dim i As Byte 'déclare la variable i
If UserForm1.TextBox10 = 3 Then
For i = 1 To 32
    'rend inaccessible le textbox i
    Me.Controls("textbox" & i).Enabled = False
Next i 'prochaine valeur de la boucle
End If

 

[chaelie2015]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re
merci pour la réponse PIERROT, si vous permettez j'ai signalé dans mon 1post la valeur de TextBox10 de USF1 est variable (de1 a 32)
MERCI
salutations

 

[Pierrot93]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re,

j'ai signalé dans mon 1post la valeur de TextBox10 de USF1 est variable (de1 a 32)
MERCI

bah... c'est ta boucle "for" non....

For i = 1 To 32

ou alaros j'ai pas compris... fort possible...

 

[chaelie2015]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re
je réexplique mon souci
dans USF2 j'ai 32 TextBox Verrouiller par défaut (j'ai mets propriété: Enabled = False), dans le USF1 j'ai un TextBox10
a partir de la valeur saisie dans ce TextBox10 de USF1 je deverrouillé les TextBox de USF2
EXEMPLE
SI je saisie dans TextBox10 = 5 Donc j'aurai les TextBox de 1 a 5 déverrouillé
si je saisie dans TextBox10 = 10 donc j'aurai de TextBox1 a TextBox10 déverrouillé
et ainsi de suite
SALUTATIONS

 

[chaelie2015]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re,

Dim i As Byte 'déclare la variable i
If UserForm1.TextBox10 = 3 Then
For i = 1 To 32
    'rend inaccessible le textbox i
    Me.Controls("textbox" & i).Enabled = False
Next i 'prochaine valeur de la boucle
End If

Re
oui certe c'est une boucle
mais j'ai essayé de faire

Dim i As Byte 'déclare la variable i
UserForm1.TextBox10 = i
For i = 1 To 32
    'rend inaccessible le textbox i
    Me.Controls("textbox" & i).Enabled = False
Next i 'prochaine valeur de la boucle

[/QUOTE]
mais ça n'a rien donné🙁
MERCI

 

[Pierrot93]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re,
modifie comme suit :

Dim i As Byte 'déclare la variable i
With UserForm1.TextBox1
    If IsNumeric(.Value) And .Value <= 32 Then
        For i = 1 To .Value
            'rend inaccessible le textbox i
            Me.Controls("textbox" & i).Enabled = False
        Next i 'prochaine valeur de la boucle
    End If
End With

 

[laetitia90]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

bonjour chaelie ,Pierrot 🙂🙂

a mon avis une combo plus facile a manipuler que le textbox 10 enfin si il fait que cela faute de frappe ect...

 

[chaelie2015]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re
j'ai inséré ton code dans le code de bouton valider de USF2 mais ça n'a pas marché ????
SORRY
salutations

 

[Pierrot93]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re,
bonjour Laetitia🙂🙂

j'ai inséré ton code dans le code de bouton valider de USF2 mais ça n'a pas marché ????

comment ca pas marché ?? message d'erreur ou pas le résultat attendu ?? tu as bien changé le nom du textbox, textbox 10 au lieu textbox1 ..

 

[chaelie2015]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re

comment ca pas marché ?? ........ pas le résultat attendu ?? ..

Re,
bonjour Laetitia🙂🙂


comment ca pas marché ?? ..... tu as bien changé le nom du textbox, textbox 10 au lieu textbox1 ..

oui
A+

 

[Pierrot93]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re,

bah... mets un bout de fichier que l'on puisse testé...

 

[chaelie2015]

Re : Verrouillage des TextBoxs d'un USF selon la valeur d'un TextBox d'un autre USF

Re,

bah... mets un bout de fichier que l'on puisse testé...

Re,
ci joint un fichier test
SALUTATIONS