Reprise de valeurs de Box et Label par For/NextRésolu

Question

Bonsoir à tous, Comment récupérer les valeurs de Boxes et Labels appelés par une boucle For/Next ? Un bout de code,qui ne marche pas, mais qui vaut mieux mieux qu'un long discours... Sub SerialBox() 'Séries de TextBoxes: ' TestWRT.Test(1 à 2)PrA(2 à 10)Box.Value ' TestWRT.Test(1 à 2)Input(2 à 10)Box.Value ' TestWRT.Test(1 à 2)Range(2 à 10)Box.Value 'Séries de Labels: ' TestWRT.Test(1 à 2)Flow(2 à 10)Box.Caption For i = 1 To 2 For j = 2 To 10 a = TestWRT.Controls("Test" & i & "PrA" & j & "Box").Value b = TestWRT.Controls("Test" & i & "Input" & j & "Box").Value c = TestWRT.Controls("Test" & i & "Range" & j & "Box").Value d = TestWRT.Controls("Test" & i & "Flow" & j & "Box").Caption If TestWRT.Controls("Test" & i & "PrA" & j & "Box").Value <> "" And _ TestWRT.Controls("Test" & i & "Input" & j & "Box").Value <> "" And _ TestWRT.Controls("Test" & i & "Flow" & j & "Box").Caption = "Débit" _ Then TestWRT.Controls("Test" & i & "Range" & j & "Box").BackColor = &HFF& MsgBox "Débit WRT " & i & " - " & j & " trop faible : Changer de calibre", vbCritical TestWRT.butClose.Enabled = False End If Next j Next i End Sub Merci beaucoup d'une aide très précieuse qui me permettrait de bien commencer l'année... Meilleurs voeux à tous! Cordialement Rataxes64

cs_loulou69 · Accepted Answer

Bonjour
Si les objets de nom ?Box sont des textbox et que le langage est VB6 leur contenu est donné par la propriété Text et non la propriété Value. N'est-ce pas cela l'erreur?

Reprise de valeurs de Box et Label par For/Next

1 réponse

Votre réponse

Discussions similaires