Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

nom des textbox qui change par variable

umkapolka

XLDnaute Nouveau
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
 

Bebere

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
 

Bebere

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

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…