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
35469
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 mai 2022
- 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

2 réponses

jordane45
Messages postés
35469
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 mai 2022
4 154
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/

Cordialement,
Jordane
0
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
0
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
0
jordane45
Messages postés
35469
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 mai 2022
4 154 > 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
0
yg_be
Messages postés
19283
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 mai 2022
1 101
19 janv. 2020 à 21:44
bonjour, que sont les enf?
0