[RESOLU] - Boucle FOR

[zeltron24]

Bonsoir à tous,

Je souhaiterai avoir de l'aide pour faire une boucle avec FOR. J'ai recherché un peu partout, mais je ne trouve pas la réponse.
Voilà, j'ai une cellule I2 pouvant contenir une valeur comprise entre 2 et 8.
Dans un Formulaire (Frm_Region) j'ai 8 TextBox (TxtChL_01 à TxtChL_08)
Je désirerai que selon la valeur en I2 soit visible le nombre de TxtBox correspondnat.
Si en I2 j'ai la valeur 3 il faut donc trois TXTBox visibles les autres étant en FALSE.
Merci par avance pour votre aide.

Voici la formule que j'utilise.

Private Sub UserForm_Initialize()
Dim x As Integer
    Frm_Region.Caption = " Région" & Range("B2").Value

'Affichage des Départements
    Frm_Region.TxtNbrDep.Value = Range("I2").Value

For x = 3 To 8

'If Frm_Region.TxtNbrDep.Value = 2 Then
    Frm_Region.TxtChL_(x).Visible = False
'End If
Next x

' Récupération des Données
Sheets("Carte").Activate
    Frm_Region.TxtRegion.Value = Range("H2").Value
    Frm_Region.TxtChefLieu.Value = Range("J4").Value
    
End Sub

 

[Staple1600]

Re : Boucle FOR

Bonsoir à tous

zeltron24
Tu peux joindre un fichier exemple avec l'userform, stp ?
Cela évitera de devoir recréer quelque chose qui existe déjà sur ton disque dur 🙄

 

[zeltron24]

Re : Boucle FOR

Bonsoir Staple1600

Voici un extrait du fichier en espérant que cela pourra t’être utile.
Merci à toi.

PS: Voici le bon Fichier avec mes excuses mais nos messages se sont croisés.

 

[Staple1600]

Re : Boucle FOR

Re

zeltron24
Un fichier *.xlsx ne saurait contenir ni code vba ni userform.
Donc non.
Tel quel ton fichier ne me sera pas utile 😉

Il faut au moins l'userform et le code VBA qu'il contient pour pouvoir faire des tests.

Tu peux prendre ton temps pour créer un fichier exemple avec l'userform et son code VBA, car là, présentement je vais rejoindre les bras de Morphée.

 

[zeltron24]

Re : Boucle FOR

Re

Erreur de ma part il ne faut pas prendre I2 mais H3 comme cellule de référence

 

[Staple1600]

Re : Boucle FOR

Re

Relis mon message précédent 😉

Bonne nuit à toi.

 

[Misange]

Re : Boucle FOR

Bonjour

 x = Sheets("carte").Range("H3")
 For i = x + 1 To 8
 Controls("TxtDept_" & i).Visible = False
 Controls("TxtChL_" & i).Visible = False
Controls("TxtNum_" & i).Visible = False
Next i

Attention, j'ai du réécrire les noms des txtbox8 qui étaient en erreur

 

[zeltron24]

Re : Boucle FOR

Bonjour Misange

Merci Bcp pour votre aide, c'est ce que je recherché. Y aurait il moyen d'adapter le cadre (Violet) au nombre de TxtBox affiché?

 

[Misange]

Re : Boucle FOR

Là je passe. Le redimensionnement des formulaires, franchement c'est casse pieds, surtout si ton formulaire doit être affiché sur des PC avec des résolutions différentes.

 

[Paf]

Re : [RESOLU] - Boucle FOR

Bonjour à tous

Dans un Formulaire (Frm_Region) j'ai 8 TextBox (TxtChL_01 à TxtChL_08)

On trouve bien 8 TextBox dans l'Userform de votre classeur mais elles sont nommées TxtDept_1 à TxtDept_8

Si en I2 j'ai la valeur 3 il faut donc trois TXTBox

en I2 on trouve la valeur "Cantons"

Erreur de ma part il ne faut pas prendre I2 mais H3 comme cellule de référence

en H3 on trouve la valeur : 13 !!!

La demande est elle correcte et la pièce jointe erronée ou bien l'inverse ?

sinon pour modifier la taille du cadre violet (Frame1 ?):

dans Private Sub UserForm_Initialize() rajouter le code suivant:

Frame1.Height = 48 + 24 * Worksheets("Administration").Range("H3").Value

Les textbox ne seront pas visibles, donc pas la peine de mettre leur propriété visible à False

Bon courage