textbox incrementés

Le
RGI
Bonjour

je ne sais plus

Sub essai()
For i = 1 To 5
pos = Sheets(1).TextBox & i.Value
MsgBox pos
Next
End Sub

pouvez vous me dire ce qu'il faut faire pour que ce code fonctionne

Merci

RGI
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4553131
Bonjour,

For Each c In Sheets(1).OLEObjects
If Left(c.Name, 7) = "TextBox" Then
MsgBox c.Object.Value
End If
Next

JB


On 24 mai, 11:20, RGI
Bonjour

je ne sais plus

Sub essai()
For i = 1 To 5
pos = Sheets(1).TextBox & i.Value
MsgBox pos
Next
End Sub

pouvez vous me dire ce qu'il faut faire pour que ce code fonctionne

Merci

RGI


RGI
Le #4553101
Merci JB

Super sympa

@++

RGI

Bonjour,

For Each c In Sheets(1).OLEObjects
If Left(c.Name, 7) = "TextBox" Then
MsgBox c.Object.Value
End If
Next

JB


On 24 mai, 11:20, RGI
Bonjour

je ne sais plus

Sub essai()
For i = 1 To 5
pos = Sheets(1).TextBox & i.Value
MsgBox pos
Next
End Sub

pouvez vous me dire ce qu'il faut faire pour que ce code fonctionne

Merci

RGI






Modeste
Le #4553041
Bonsour® RGI avec ferveur ;o))) vous nous disiez :

Sub essai()
For i = 1 To 5
pos = Sheets(1).TextBox & i.Value
MsgBox pos
Next
End Sub

pouvez vous me dire ce qu'il faut faire pour que ce code fonctionne


Sub essai()
For i = 1 To 5
nom = Sheets(1).OLEObjects("TextBox" & i).Name
contenu = Sheets(1).OLEObjects(nom).Object.Value
MsgBox contenu, vbInformation, ActiveSheet.Name & " Objet " & nom
Next
End Sub



--
--
@+
;o)))

Modeste
Le #4553021
Bonsour® JB avec ferveur ;o))) vous nous disiez :

Bonjour,

For Each c In Sheets(1).OLEObjects
If Left(c.Name, 7) = "TextBox" Then
MsgBox c.Object.Value
End If
Next


;o)))
Attention JB ...il n'est pas évident que le premier "value" retourné
appartiennne à la textbox1
du fait de l'utilisation de la collection OLEObjects, cela dépend de l'ordre de
création et éventuellement "renommage" des textboxes
et ne tient plus compte de la notion incrementation (objet de la question
initiale)...

exemple ;o)))
Sub JB()
'-------------
on error resume next
Sheets(1).OLEObjects("TextBox1").Name = "TextBox_JB"
'-------------
For Each c In Sheets(1).OLEObjects
If Left(c.Name, 7) = "TextBox" Then
nom = c.Name
MsgBox c.Object.Value, vbInformation, ActiveSheet.Name & " Objet " & nom
End If
Next
End Sub
;o)))

--
--
@+
;o)))

RGI
Le #4552991
merci également à vous Modeste

Cdlt

RGI

Bonsour® RGI avec ferveur ;o))) vous nous disiez :

Sub essai()
For i = 1 To 5
pos = Sheets(1).TextBox & i.Value
MsgBox pos
Next
End Sub

pouvez vous me dire ce qu'il faut faire pour que ce code fonctionne


Sub essai()
For i = 1 To 5
nom = Sheets(1).OLEObjects("TextBox" & i).Name
contenu = Sheets(1).OLEObjects(nom).Object.Value
MsgBox contenu, vbInformation, ActiveSheet.Name & " Objet " & nom
Next
End Sub






JB
Le #4552841
La première ligne nom=... n'est pas indispensable:

For i = 1 To 5
contenu = Sheets(1).OLEObjects("TextBox" & i).Object.Value
MsgBox contenu
Next

JB
On 24 mai, 13:23, "Modeste"
Bonsour® RGI avec ferveur ;o))) vous nous disiez :

Sub essai()
For i = 1 To 5
pos = Sheets(1).TextBox & i.Value
MsgBox pos
Next
End Sub

pouvez vous me dire ce qu'il faut faire pour que ce code fonctionne


Sub essai()
For i = 1 To 5
nom = Sheets(1).OLEObjects("TextBox" & i).Name
contenu = Sheets(1).OLEObjects(nom).Object.Value
MsgBox contenu, vbInformation, ActiveSheet.Name & " Objet " & nom
Next
End Sub

--
--
@+
;o)))



Modeste
Le #4552361
Bonsour® JB avec ferveur ;o))) vous nous disiez :

La première ligne nom=... n'est pas indispensable:
For i = 1 To 5
contenu = Sheets(1).OLEObjects("TextBox" & i).Object.Value
MsgBox contenu
Next


;o)))
en effet la variable contenu non plus !!!!
dans ces conditions pourrait même ecrire
For i = 1 To 5 : MsgBox Sheets(1).OLEObjects("TextBox" & i).Object.Value :
Next
;o)))
--
--
@+
;o)))

Publicité
Poster une réponse
Anonyme