boucle "if"

Question

Bonjour, 
Voila j'ai une macro a répétition
et je veux la remplacé par une boucle
Private Sub CommandButton3_Click()If Me.OptionButton1 = True ThenUserForm1.TextBox3.Value = enf1.ValueEnd IfIf Me.OptionButton2 = True ThenUserForm1.TextBox3.Value = enf2.ValueEnd IfIf Me.OptionButton3 = True ThenUserForm1.TextBox3.Value = enf3.ValueEnd IfIf Me.OptionButton4 = True ThenUserForm1.TextBox3.Value = enf4.ValueEnd If

merci pour votre aide les amis

Configuration: Windows / Firefox 72.0

jordane45 · Answer

Bonjour,,

Je suppose que tu veux boucler sur chaque OptionButton de ton UserForm
Dans ce cas, un code du genre peux t'y aider

Dim Ctrl As Control

For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.OptionButton Then 
     MsgBox Ctrl.Object.Value
    EndIf
Next Ctrl
 

Sinon, tu peux utiliser une boucle du genre

Dim i As Integer
    
    For i = 1 To 10
      if Me.Controls("OptionButton" & i) = true Then
        UserForm1.TextBox3.Value = Me.Controls("enf" & i).Value
      End if
    Next i

 Édit : suppression d'un espace en trop


Enfin bon.. voila de quoi t'aider à avancer
https://silkyroad.developpez.com/VBA/ControlesUserForm/

yg_be · Answer

bonjour, que sont les enf?

Boucle "if"

2 réponses

Discussions similaires

Newsletters