nom des textbox qui change par variable

[umkapolka]

bonjour
je voudrais faire une boucle pour ne pas répèter les different nom de textbox comme exemble si dessus.


If Cells(112, 13) = 5 Then
TextBox5 = TextBox
End If

If Cells(112, 13) = 6 Then
TextBox6 = TextBox
End If

If Cells(112, 13) = 7 Then
TextBox7 = TextBox
End If

If Cells(112, 13) = 8 Then
TextBox8 = TextBox
End If

in si de suite....

comme je pensais

I = Cells(112, 13) ' qui change quand les differente textbox active change,
' Cells(112, 13) = 5 d'autre fois = 7 ou 8......

TextBox (I) = TextBox
end sub

Mais cela ne marche pas

Merci

 

[pierrejean]

Bonjour umkapolka

A tester

If Cells(112, 13) =n Then
   Me.controls("TextBox" & n) = TextBox
End If

 

[umkapolka]

merci pour ta réponce

mais ce la me donne comme erreur
"method or data member not found"

 

[mapomme]

Bonjour umkapolka, pierrejean 🙂,

Essayez:

Controls("textbox" & Cells(112, 13)) = TextBox

 

[Bebere]

bonsoir
bienvenue umkapolka,bien le bonjour à Pierre Jean
n doit être un nombre
si Cells(112, 13) est toujours un nombre
un exemple
me("TextBox" & Cells(112, 13))=Cells(112, 13).address & "=" & Cells(112, 13)

 

[umkapolka]

merci pour ta réponce

Controls("textbox" & Cells(112, 13)) = TextBox
mais ce la me donne une nouvel erreur
"sud or fonction not defined"

oui pour Cells(112, 13) = a un nombre, qui change a plusieur reprise c'est elle qui me dit la quel textbox est active

 

[umkapolka]

salut, bebere
ta formule me donne une erreur aussi
"Object doesn't support this property or method"
merci de ton aide

 

[Bebere]

bonsoir Mapomme
la feuille est elle active
met la ligne qui donne l'erreur ou un fichier
à tout hasard,c'est çà que tu veux

Dim NomTextbox
NomTextbox = Me("TextBox" & Cells(112, 13)).Name
MsgBox NomTextbox

 

[umkapolka]

merci mais c'est la meme erreur
"Object doesn't support this property or method"

 

[Bebere]

bonjour
umkapolka
on peut continuer comme cela indéfiniment
met nous du solide ou fait une recherche sur internet