Activer nTextbox selon la valeur "n" d'une cellule Excel

Bonjour tout le monde,

Je suis un grand débutant en VBA et je bug complet là.

J'ai des Textbox que j'ai nommé SN1, SN2, SN3... jusqu'à SN12.

J'ai une valeur dans une cellule de mon tableau excel qui peut-être compris de 1 jusqu'à 12.

Mes Textbox SN1-SN12 sont en *.visible=false.

Je souhaiterais que:

Selon la valeur de ma cellule, les SN1-SN12 s'active.

Par exemple:

Si la valeur de ma cellule est égale à 4, les textbox SN1 à SN4 s'active, donc que je les passe en*.visible=true.

Donc que cellule=n --> les textbox de SN1 jusqu'à SNn , je les passes en*.visible=true.

Y'a-t-il un moyen d'écrire ça s'il vous plaît en vba ?

J'ai un début, mais je pense pas que ce soit bon:

Dim n As Integer

n = Sheets("Feuille de l'Administrateur").Cells(3, 7).Value

For n = 1 To n

Next

[("SN_"& n)].Visible = True

Merci pour votre temps et vos idées.

Bonjour

A tester

Private Sub UserForm_Initialize()
Dim I As Byte

  For I = 1 To Sheets("Feuille de l'Administrateur").Cells(3, 7)
    Me.Controls("SN" & I).Visible = True
  Next I
End Sub
Banzai64 a écrit :

Bonjour

A tester

Private Sub UserForm_Initialize()
Dim I As Byte

  For I = 1 To Sheets("Feuille de l'Administrateur").Cells(3, 7)
    Me.Controls("SN" & I).Visible = True
  Next I
End Sub

Ok merci,

Je testerai ça demain en arrivant au boulot.

Je te tiens au courant.

Merci vraiment pour ton aide.

Ok SUper ta formule fonctionne du tonerre!!

J'ai planché une journée dessus

Merci.

Rechercher des sujets similaires à "activer ntextbox valeur"