Boucle "if"

Fermé

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 - 19 janv. 2020 à 21:34
jordane45 Messages postés 38268 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 novembre 2024 - 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

A voir également:

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38268 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 novembre 2024 4 694
Modifié le 19 janv. 2020 à 22:37

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 jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6
19 janv. 2020 à 22:31

une boite de dialogue de débogage, erreur

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6 > abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022
19 janv. 2020 à 22:32

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

jordane45 Messages postés 38268 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 2 novembre 2024 4 694 > abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022
19 janv. 2020 à 22:37

Y'a un espace en trop

Réponse 2 / 2

yg_be Messages postés 23309 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 2 novembre 2024 Ambassadeur 1 550
19 janv. 2020 à 21:44

bonjour, que sont les enf?

Discussions similaires

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

Fonction if exist et else

faire une boucle sans VBA

Boucle en Batch

tele s'eteind et s'allume en boucle