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 wrote:
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
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)))
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
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
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)))
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)))
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
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
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
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
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" wrote:
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)))
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" <nom...@nomail.net> wrote:
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
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" wrote:
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
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)))
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)))
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)))