Boucle "if"

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention -
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention - 19 janv. 2020 à 22:37

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 Then
UserForm1.TextBox3.Value = enf1.Value
End If

If Me.OptionButton2 = True Then
UserForm1.TextBox3.Value = enf2.Value
End If

If Me.OptionButton3 = True Then

UserForm1.TextBox3.Value = enf3.Value
End If

If Me.OptionButton4 = True Then

UserForm1.TextBox3.Value = enf4.Value
End If

merci pour votre aide les amis

Configuration: Windows / Firefox 72.0

Afficher la suite

A voir également:

Boucle "if"
Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
Boucle excel sans macro - Forum Excel
Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
Vlc lire en boucle ✓ - Forum Lecteurs et supports vidéo

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

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/

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention 6

une boite de dialogue de débogage, erreur

abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention 6 > abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention

If Me.Controls("OptionButton " & i) = True Then........il le souligne en jaune

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752 > abdellah_tadjine Messages postés 191 Date d'inscription Statut Membre Dernière intervention

Y'a un espace en trop

Réponse 2 / 2

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour, que sont les enf?

Discussions similaires

Mon pc s'allume et s'éteint en boucle

Mon ordinateur s'allume et s'eteint en boucle

A quoi sert la sortie IF OUT démodulateur?

tele s'eteind et s'allume en boucle

problème tv décodeur orange

Votre réponse

Discussions similaires