Une variable dans le nom d'un TextBox
lecanu.jordan
Messages postés
41
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
j'ai cherché un peu partout sans trouver de réponse
mon problème est que j'ai un tableau Excel qu'une macro rempli ligne par ligne suivant ce modèle
" Cellule(1,1) = TextBox1
Cellule(2,1) = TextBox2
..."
Je voulais savoir si on pouvais (et si oui comment) faire pour intégrer une variable dans le nom TextBox dans ce genre là
" Cellule ( i ,1) = TextBox & i"
Et faire tourner ça avec une boucle
Merci d'avance pour la réponse,
en espérant avoir été assez clair
j'ai cherché un peu partout sans trouver de réponse
mon problème est que j'ai un tableau Excel qu'une macro rempli ligne par ligne suivant ce modèle
" Cellule(1,1) = TextBox1
Cellule(2,1) = TextBox2
..."
Je voulais savoir si on pouvais (et si oui comment) faire pour intégrer une variable dans le nom TextBox dans ce genre là
" Cellule ( i ,1) = TextBox & i"
Et faire tourner ça avec une boucle
Merci d'avance pour la réponse,
en espérant avoir été assez clair
A voir également:
- Une variable dans le nom d'un TextBox
- Ajouter un nom dans une liste déroulante excel - Guide
- Nom de l'adresse - Forum Réseaux sociaux
- Dans son restaurant, igor utilise une application pour gérer les réservations. dans le schéma (structure) de la base de données de l’application représenté ci-dessous : de quoi « telephone » est-il le nom ? de quoi « reservations » est-il le nom ? associez chaque terme avec un attribut, une donnée, un enregistrement, une table, une valeur ou une variable. - Forum Webmastering
- Changer le nom de son iphone - Guide
- Nom sonnerie iphone - Forum iPhone
1 réponse
Bonjour,
'textbox feuille de calcul
'ou textbox Userform
'textbox feuille de calcul
Dim Ctrl As OLEObject
With Worksheets("feuil1")
For i = 1 To 4
Set Ctrl = .OLEObjects("TextBox" & i)
.Cells(i, 1).Value = Ctrl.Object.Value
Next
End With
'ou textbox Userform
With Worksheets("feuil1")
For i = 1 To 4
.Cells(i, 1).Value = Me.Controls("TextBox" & i).Value
Next
End With